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à...
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...
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 IfLe 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: