[fr-users] Formulaire de demande d'aide

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
 

-- 
Envoyez un mail à users+unsubscribe@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