Re: [fr-users] Formulaire de demande d'aide

Le 10/04/2014 20:54, eliotnaiss@outlook.com 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 : -
>   - 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
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 à 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