![[TEST] Document Foundation Community](https://communitytest.documentfoundation.org/images/discourse-logo-sketch.png){kind=logo}
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 : -
- eliotnaiss@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
