[macro] modifier le chemin d'une condition dans une boucle

[fbertran]

Bonjour,
Je tombe sur un "cas d'école", mais comme je ne suis pas allez à cette école... En gros je travail sur un userform, j'ai une dizaine de case à cocher a la suite ( nommée B1,B2,B3,...), l'utilisateur coche les cases qu'il souhaite, en suite je dois vérifier les cases cochés et pour chaque case valide je colle une série de valeur sur une colonne.
Mon problème ce situe sur la création de la boucle, je n'arrive pas à trouver le bon code pour ma condition, voici mon code:

For i = 1 To 10
chargement="make_scen.B" & i & ".Value
If chargement = True Then
'action
End If
Next i

Quelle est la bonne syntaxe?

Merci beaucoup

 

[pierrejean]

Re : [macro] modifier le chemin d'une condition dans une boucle

bonjour fbertran

A tester

For i = 1 To 10
[COLOR=blue]If  Controls("make_scen.B" & i).Value Then[/COLOR]
'action
End If
Next i

 

[fbertran]

Re : [macro] modifier le chemin d'une condition dans une boucle

Bonjour,

Merci pour votre réponse, cependant elle ne marche pas, l'erreur est la suivante : objet spécifié introuvable

 

[pierrejean]

Re : [macro] modifier le chemin d'une condition dans une boucle

Re

Sans un fichier exemple il sera difficile de t'aider !!
Existe-t-il un controle nommé = make_scen.B1 ?
ou est-ce l'userform qui est nommé make_scen ?

 

[fbertran]

Re : [macro] modifier le chemin d'une condition dans une boucle

Le fichier d'exemple est lourd, sinon pour vous répondre, l'userform se nomme make_scen, et les cases à cocher se nomme respectivement B1, B2, B3....

Merci

 

[pierrejean]

Re : [macro] modifier le chemin d'une condition dans une boucle

Re

Alors

For i = 1 To 10
[COLOR=blue]If  make_scen.Controls("B" & i).Value Then[/COLOR]
'action
End If
Next i

 

[fbertran]

Re : [macro] modifier le chemin d'une condition dans une boucle

Eh ben voila!

Ca marche impeccablement bien, merci beaucoup!!!!

Cordialement