for next

[Evelynetfrancois]

bonsoir tout le monde
, j ai un soucis de boucle
Je fais appel à votre bon sens, car je ne comprend pas !!


j ai 4 combobox , si tous sont vides , ne pas appliquer la macro
Si un des combobox est rempli, appliquer la ligne macro

For i = 1 To 4 (les 4 combobox)
Me.Controls ("combobox" & i) <> ""(si au moins un est rempli = macro sinon , next)
macro
Next i

merci d'avance pour vos solutions
bonne soirée à tous
EetF

j avais zapper un if dsl ......... bonne soirée
For i = 1 To 4
If Controls("combobox" & i).Value <> "" Then
Range("a1").Value = CDate(TextBox26.Tag)
End If
Next i

 

[Robert]

Re : for next

Bonsoir EvelyneetFrançois, bonsoir le forum,

Je comprends pas trop ta question avec deux codes différents... Mais le second code devrait fonctionner :

For i = 1 To 4
     If Controls("combobox" & i).Value <> "" Then
          Range("a1").Value = CDate(TextBox26.Tag)
     End If
Next i

Sans fichier difficile de t'aider...