Verif textbox (=ok) + comb(=pasok) pour export

Bonjour à tous,

Je travail sur un formulaire et je suis bloqué à un endroit dans mon code, j'arrive maintenant à vérifier que toutes mes textbox soient remplies pour exporter mes données mais pas mes combobox (listes déroulantes j'en ai 5) qui s'appellent "ONOFF" je vous met un extrait du code :

Sub BoutonActif()
    Dim i%
    For i = 1 To 8
        If Controls("TextBox" & i).Value = "" Then
            CommandButton1.Enabled = False
            Exit Sub
        End If
    Next i
    CommandButton1.Enabled = True
End Sub
Sub BoutonActif2()
    Dim i%
    For i = 1 To 5 'Nb combobox
        If Controls("ONOFF" & i).Value = "" Then
            CommandButton1.Enabled = False
            Exit Sub
        End If
    Next i
    CommandButton1.Enabled = True
End Sub

Et en fin de code :

Private Sub TextBox8_AfterUpdate()
    BoutonActif
End Sub

Private Sub ONOFF5_AfterUpdate()
    BoutonActif
End Sub

Une idée qui illuminerait ma journée ?

Merci

Allan

Salut Allan,

Au plus simple, renomme les "ONOFF" en "textbox..." comme ca tu continues a utiliser la 1ere boucle et c'est ok.

Au plaisir 8)

Kitesurf