Boucle Me.controls commandButton [Résolu]

Signaler
Messages postés
209
Date d'inscription
jeudi 5 août 2004
Statut
Membre
Dernière intervention
15 juillet 2009
-
Messages postés
17
Date d'inscription
mercredi 13 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2008
-
Bonjour

je travaille dans excel et visual basic. j'ai un userform avec beaucoup de boutons.
J'ai beaucoup de commandButton et je voudrais qu'une boucle aille chercher une valeur en fonction du caption des commandButtons. et je tente de faire cette boucle mais cela ne fonctionne pas.

Dim i As Integer
For i = 1 To 5
While ActiveCell <> Me.Controls("commandButton" & i).Caption
ActiveCell.Offset(1, 0).Select
Wend
next

est ce que quelqu'un peut me donner la syntaxe exacte ?
merci beaucoup

1 réponse

Messages postés
17
Date d'inscription
mercredi 13 octobre 2004
Statut
Membre
Dernière intervention
6 mars 2008

Salut,
La boucle While est de trop, ce que tu veux faire ce n'est pas une boucle mais seulement un test.

Dim i As Integer
For i = 1 To 5
    If ActiveCell <> Me.Controls("commandButton" & i).Caption Then
        ActiveCell.Offset(1, 0).Select
    End if
next

Dans la logique je pencherais pour cette solution, reste à vérifier la syntaxe ;)

Bon courage.

-=KeKe4483=-