Le 10/04/2014 20:54, [email protected] a écrit :
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 : -
- [email protected]
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
Je ne voudrais pas être désagréable mais une macro qui définit trois
variables nommées rg, x et z et qui teste x = 7 ne mérite pas d'être
convertie.
--
Rafael Laville
--
Envoyez un mail à [email protected] 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
