Microsoft 365 Rendre des bouton inactifs si des TextBox sont remplies ou pas.

[NONO14]

Bonjour le forum,
Dans un formulaire, j'ai deux boutons (Cmb_Entrée - pour les entrées" et Cmb_Sortie - pour les sorties".
Il y a également 6 TextBox. Les Txt_Point1, 3, 5 reçoivent les entrées, et les Txt_Point2, 4, 6 les sorties.
Je souhaite que selon l'état des Txt_Point, les boutons soient actifs ou pas.
Par exemple :
- Le Txt_Point1 contient une valeur mais pas Txt_Point2 alors le Cmb_Entrée n'est pas utilisable et le Cmb_Sortie est utilisable.
- Les Txt_Point1 et 2 contiennent une valeur mais pas Txt_Point3 alors Cmb-Entrée est utilisable mais pas Cmb_Sortie.
En fait, vérifier l'état des Txt_Point impaires par rapport aux Txt_Paires et rendre les boutons actifs ou pas selon si elles sont vides ou pas.
J'ai essayé plusieurs méthodes mais sans succès.
Voici mon début de code si toutes les Txt_Point sont vides. Mais je n'arrive pas à faire la suite et surtout à simplifier le code.
Merci par avance pour votre aide

' Si toutes les TextBox sont vides
    If Len(Me.Txt_Point1.Text) = 0 And Len(Me.Txt_Point2.Text) = 0 And Len(Me.Txt_Point3.Text) = 0 And Len(Me.Txt_Point4.Text) = 0 And Len(Me.Txt_Point5.Text) = 0 And Len(Me.Txt_Point6.Text) = 0 Then
        Me.Cmb_Entrée.Visible = True
        Me.Cmb_Sortie.Visible = False
End if

 

[Dranreb]

Bonjour.
Est-ce que ce code ferait l'affaire ?

Dim P As Integer
For P = 1 To 6
   If Me("Txt_Point" & P).Text = "" Then Exit For
   Next P
Me.Cmb_Entrée.Visible = P Mod 2 = 1 And P <= 5
Me.Cmb_Sortie.Visible = P Mod 2 = 0

 

[NONO14]

Bonjour.
Est-ce que ce code ferait l'affaire ?

Dim P As Integer
For P = 1 To 6
   If Me("Txt_Point" & P).Text = "" Then Exit For
   Next P
Me.Cmb_Entrée.Visible = P Mod 2 = 1 And P <= 5
Me.Cmb_Sortie.Visible = P Mod 2 = 0

Bonjour Dranreb,
Merci beaucoup pour ton code. Te serait-il possible de me l'expliquer s'il te plaît car je nage un peu, il est sans doute efficace, mais j'aimerai comprendre, juste pour ma culture personnelle.
Merci par avance

 

[Dranreb]

Il cherche le numéro de la 1ère TextBox vide.
Si c'est un N° impair ne dépassant pas le nombre de TextBox —> Entrée
Si c'est un N° pair —> Sortie

 

[NONO14]

Bonjour.
Est-ce que ce code ferait l'affaire ?

Dim P As Integer
For P = 1 To 6
   If Me("Txt_Point" & P).Text = "" Then Exit For
   Next P
Me.Cmb_Entrée.Visible = P Mod 2 = 1 And P <= 5
Me.Cmb_Sortie.Visible = P Mod 2 = 0

Merci beaucoup, c'est exactement ce que je recherchais comme résultat.
Je n'aurai pas trouvé seul.
Mille mercis

 

[NONO14]

Il cherche le numéro de la 1ère TextBox vide.
Si c'est un N° impair ne dépassant pas le nombre de TextBox —> Entrée
Si c'est un N° pair —> Sortie

Ok, c'est plus clair dans ma petite caboche