Discussion :

[Chris171717]

Bonjour,

ma question est peut-être bête mais je ne trouve pas ma solution... j'ai le code suivant qui fait une boucle sur les controls de mon userform afin de vérifier que chacun d'entre eux est rempli... mais voilà, j'ai ajouté un texbox pour un commentaire éventuel et je ne souhaite donc pas que ce textbox soit vérifié avec le reste...

autrement dit ce textbox peut être le seul control de mon userform non rempli...

avez-vous une solution pour moi SVP !?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each CTRL In Me.Controls
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical: CTRL.SetFocus: Exit Sub
Next CTRL

[Philippe Tulliez]

Bonjour,
La propriété Name de Ctrl te donnera son nom.

[Chris171717]

ok mais qu'est-ce que j'en fait après... !?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ctrl.name<>"text?"then
'ton code
end if

[Chris171717]

Bonsoir,

J'ai utilisé le code de la façon suivante, mais il me met une erreur

"Next sans For"

Comment résoudre celà... !?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each CTRL In Me.Controls
If CTRL.Name <> "TextBox10" Then
If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical: CTRL.SetFocus: Exit Sub
Next CTRL
End If

[Philippe Tulliez]

Bonsoir,

Sans avoir testé. Le Next Ctrl doit être après le End If

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each CTRL In Me.Controls
If CTRL.Name <> "TextBox10" Then
  If CTRL = "" Then MsgBox "Donnée Incomplete", vbCritical: CTRL.SetFocus: Exit Sub: End If
End If
 
Next CTRL