IF pour propriété enabled d'un commandbutton

Airone784

XLDnaute Occasionnel
Bonsoir,

Je dispose dans une UF de 5 textbox et un bouton OK (commandbutton1).

J'ai tapé ce code dans la partie textbox1_change, textbox2_change, textbox3_change, textbox4_change, textbox5_change.

Si la valeur d'une textbox égale la valeur d'une autre, alors j'ai une image qui s'affiche avec un panneau attention. bref, le pb n'est pas là...

Code:
Private Sub TextBox2_Change()
'vérifie si coureur déjà dans le classement
If TextBox2 = TextBox1 Then
Me.Image1.Visible = True
Me.CommandButton1.Enabled = False
Else
Me.Image1.Visible = False
End If

'permet de gérer le bouton OK en fonction du nombre de coureur à saisir
If Controls("TextBox" & c) = "" Then
Me.CommandButton1.Enabled = False
Else
Me.CommandButton1.Enabled = True
End If

Code:
Private Sub TextBox3_Change()
'vérifie si coureur déjà dans le classement
If TextBox3 = TextBox1 Or TextBox3 = TextBox2 Then
Me.Image2.Visible = True
Me.CommandButton1.Enabled = False
Else
Me.Image2.Visible = False
End If

'permet de gérer le bouton OK en fonction du nombre de coureur à saisir
If Controls("TextBox" & c) = "" Then
Me.CommandButton1.Enabled = False
Else
Me.CommandButton1.Enabled = True
End If

Code:
Private Sub TextBox4_Change()
'vérifie si coureur déjà dans le classement
If TextBox4 = TextBox1 Or TextBox4 = TextBox2 Or TextBox4 = TextBox3 Then
Me.Image3.Visible = True
Me.CommandButton1.Enabled = False
Else
Me.Image3.Visible = False
End If

'permet de gérer le bouton OK en fonction du nombre de coureur à saisir
If Controls("TextBox" & c) = "" Then
Me.CommandButton1.Enabled = False
Else
Me.CommandButton1.Enabled = True
End If

Code:
Private Sub TextBox5_Change()
'vérifie si coureur déjà dans le classement
If TextBox5 = TextBox1 Or TextBox5 = TextBox2 Or TextBox5 = TextBox3 Or TextBox5 = TextBox4 Then
Me.Image4.Visible = True
Me.CommandButton1.Enabled = False
Else
Me.Image4.Visible = False
End If

'permet de gérer le bouton OK en fonction du nombre de coureur à saisir
If Controls("TextBox" & c) = "" Then
Me.CommandButton1.Enabled = False
Else
Me.CommandButton1.Enabled = True
End If

Le problème est que je souhaite que si une textbox est égale à une autre le commandbutton1 soit enabled=false.

Je veux également qu'en fonction d'une variable c (comprise entre 1 et 5) que mon bouton commandbutton1 soit aussi enabled=false.

Le problème est que si je remplis qu'une seule des contraintes décrites au-dessus, le boutons est actif alors que je souhaite que le bouton soit actif UNIQUEMENT lorsque les 2 conditions sont remplies (toutes les textbox différentes et que mes textbox soient remplies en fonction de ma variable c).

En espérant avoir été clair.

Merci pour votre aide ;)

EDIT : AUTANT POUR MOI, JAI TROUVE LA SOLUTION!!! DESOLE DE VOUS AVOIR EMBETE...
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 069
Messages
2 085 037
Membres
102 762
dernier inscrit
Ucef