Bonjour

Voici une petite astuce pour savoir si tous les contrôles d'un formulaire ont été renseignés

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is ComboBox Then
            If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                MsgBox "Toutes les listes doivent avoir une information", vbOKOnly + vbExclamation, "Sélection"
                Ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next Ctrl
Ce code vous permet de savoir si toutes les combobox ont été renseignées, et cela vous place dans le premier combobox non renseigné.

Pour les texbox, il vous faut changer la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If TypeOf Ctrl Is ComboBox Then
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If TypeOf Ctrl Is TextBox Then
Trés pratique quand vous avez pleins de contrôles sur votre formulaire.

Starec