CommandButton actif sous condition

Bonjour à tous,

Je suis à la recherche du vba pour rendre actif un bouton sous condition :

En fait je souhaiterais rendre actif mon CommandButton1 que si les texbox1, et texbox2, et texbox3 sont remplis,

Merci de votre aide

Cordialement.

Bonjour,

Mettre CommandButton1, propriété Enabled à False par défaut (fenêtre Propriétés).

Sub ActiverBton1()
    Dim i%, nonact As Boolean
    For i = 1 To 3
        If Controls("TextBox" & i).Value = "" Then nonact = True: Exit For
    Next i
    CommandButton1.Enabled = Not nonact
End Sub

Private Sub TextBox1_AfterUpdate()
    ActiverBton1
End Sub

Private Sub TextBox2_AfterUpdate()
    ActiverBton1
End Sub

Private Sub TextBox3_AfterUpdate()
    ActiverBton1
End Sub

Cordialement.

Bonjour MFerrant

Cela ne fonctionne pas chez moi, j'ai adapté le vba pour mon fichier mais bouton reste innactif

Sub ActiverBton20()

Dim i%, nonact As Boolean

For i = 1 To 4

If Controls("TextBox" & i).Value = "" Then nonact = True: Exit For

Next i

CommandButton20.Enabled = Not nonact

End Sub

Private Sub TextBox10_AfterUpdate()

ActiverBton20

End Sub

Private Sub TextBox11_AfterUpdate()

ActiverBton20

End Sub

Private Sub TextBox12_AfterUpdate()

ActiverBton20

End Sub

Private Sub TextBox13_AfterUpdate()

ActiverBton20

End Sub

Cordialement

For i = 10 To 13

serait mieux venu que 1 à 4 !!!!

Oui c'est sur ^^ Et la ca fonctionne mieux

Et si si j'ai besoin pour des texbox qui ne se suivraient pas, exemple : texbox10; texbox13; texbox52; texbox60

faudrait que j'adapte cela comment ?

Merci.

bonjour,

Dim i
For Each i In Array(10,13,52,60)

Déjà répondu par h2so4 ! Rien à ajouter !

Bonsoir

Merci pour la réponse

Cordialement

Re !

Au vu de ta dernière citation, je me permets d'appeler ton attention sur un petit point non dénué d'importance... (au cas où...)

Dans le cas d'une boucle For... Next, i était une variable de type Integer (on incrémente la variable numérique selon un pas...). Dans le cas du parcours d'un tableau au moyen d'une boucle For Each... Next, i n'est pas une variable numérique et représente un élément du tableau, elle doit obligatoirement être de type Variant.

Cordialement.