boucle Me.controls commandButtonRésolu

Question

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

keke4483 · Accepted Answer

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=-

Boucle Me.controls commandButton

1 réponse

Votre réponse

Discussions similaires