Bonjour Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide (http://fr.libreoffice.org/assistance/). Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.
De la part de : - - eliotna...@outlook.com Texte de la question : - - Bonjour, en parcourant mon fichier ici (http://cjoint.com/?3DkuSObXtIS) qui est sous excel, est-il possible de convertir la seule macro s'y trouvant, qui est déclenchée avec choix dans une liste ? La voici : Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, X As Long, Z As Variant Set Rg = Intersect([TABLO], Target) If Not Rg Is Nothing Then For Each c In Rg X = Application.CountIf(Range("TABLO"), CLng(Target)) If X = 7 Then With Feuil1.Range("Dispo") Z = Application.Match(Target, .Cells, 0) If IsNumeric(Z) Then Application.EnableEvents = False rep = MsgBox("Désolé mais cette date n'est plus disponible." & _ vbvrlf + vbCrLf & "Positionnez-vous sur une autre session.", vbOKOnly, "Gestion des places en formation") c.Select c.Value = "" SendKeys "%{Down}" Application.EnableEvents = True Else Err.Clear End If End With End If Next End If End Sub Je dois convertir "rapidos" ce fichier vers LibreOffice car on nous supprime Office de Microsoft !!! Merci d'avance. Cordialement -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
