Discussion :

[thetotof91]

Bonjour à toutes et à tous.
Je débute en formulaire VBA et je vous expose mon problème.
Je souhaiterais dégriser un bouton de mon formulaire lorsque j'ai 2 champs particuliers de remplis.
le bouton étant par défaut grisé

J'ai donc fait ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub nomj_Change()
 
    If nomj <> "" Then
       bajouter.Enabled = True
    Else
       bajouter.Enabled = False
    End If
 
End Sub

pour le premier champs. Mais je ne sais pas comment y ajouter mon 2ème champs comme condition !

Merci par avance de votre aide !

[Thautheme]

Bojour TheToto, bonjour le forum,

Peut-être comme ça (à adapter) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub nomj_Change()
If Autre_Controle.Value <> "" Then bajouter.Enabled = nomj.Value <> ""
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Autre_Controle_Change()
If nomj <> "" Then bajouter.Enabled = Autre_Controle.Value <> ""
End Sub

[patricktoulon]

re
l'idée de tautheme n'est pas mauvaise
je pense en avoir une meilleure a fin de ne pas etre pobligé de tester a chaque change de tout les champ

tout simplement comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Bajouter_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim critere
critere = champ_j <> "" And champ_x <> "" ' etc.....
Bajouter.Enabled = critere
End Sub

des que tu va passer la souris dessus ;si champ_j et champ_x ne sont pas duement remplis bein walouhhh retourne au champ
rien ne t'empeche d'ajouter des champ dans la ligne critere
voila un seul evenement regle le probleme

[thetotof91]

Merci de votre aide.
J'ai retenu la solution de Thauteme qui assure mon besoin.
Désolé Patrick, je n'ai pas réussi à faire fonctionner ta solution. Mais merci quand même de ton aide.

[patricktoulon]

re
l'idée de tautheme n'est pas mauvaise
je pense en avoir une meilleure a fin de ne pas etre pobligé de tester a chaque change de tout les champ

tout simplement comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Bajouter_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim critere
critere = champ_j <> "" And champ_x <> "" ' etc.....
Bajouter.Enabled = critere
End Sub

des que tu va passer la souris dessus ;si champ_j et champ_x ne sont pas duement remplis bein walouhhh retourne au champ
rien ne t'empeche d'ajouter des champ dans la ligne critere
voila un seul evenement regle le probleme

tu a juste a mettre les bon nom de champ c'est tout j'ai mis champ_j et champ_x mais toi c'est peut etre pas pareil (voir les majuscule aussi la casse est importante)

en l'occurence toi c'est nomj pour le premier donc il faut bien changer les noms

le defaut de la methode de thautheme
si tu a un champs c'est bon
si tu a deux champs il te faut comparer les leux
si tu a 3 champs il te faut comparer les 3
etc....
et ca represente selon son principe tester le nombre de champ global dans chaque evenement tel qu'il l a présenté
autrement dit si tu en a 10 dans chaque champs_change tu devra tester les 10
vue la ligne de code pour en tester deux dans le 2d de sa methode j'imagine la ligne pour les 10


ma methode
si tu a 10 champs se sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Bajouter_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Dim critere
 critere = champ <> "" And champ2 <> ""And champ3 <> ""And champ4 <> "" And champ5 <> ""And champ6 <> "" And champ7 <> "" And champ8 <> "" And champ9 <> ""And champ10 <> ""    
Bajouter.Enabled = critere
 End Sub

et c'est TOUT !!!
pas d'evenement change ou quoi que se soit
voila

[patricktoulon]

re
au mieux pour avoir l'aller et le retour avec les evenement change des textboxs
il s'appellent nom1,nom2,nom3,etc........
pour 10 champ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
 
Private Sub enable_ajouter()
 Dim critere
 critere = nom1 <> "" And nom2 <> "" And nom3 <> "" And nom4 <> "" And nom5 <> "" And nom6 <> "" And nom7 <> "" And nom8 <> "" And nom9 <> "" And nom10 <> ""
Bajouter.Enabled = critere
End Sub
 
Private Sub nom1_Change(): enable_ajouter: End Sub
Private Sub nom2_Change(): enable_ajouter: End Sub
Private Sub nom3_Change(): enable_ajouter: End Sub
Private Sub nom4_Change(): enable_ajouter: End Sub
Private Sub nom5_Change(): enable_ajouter: End Sub
Private Sub nom6_Change(): enable_ajouter: End Sub
Private Sub nom7_Change(): enable_ajouter: End Sub
Private Sub nom8_Change(): enable_ajouter: End Sub
Private Sub nom9_Change(): enable_ajouter: End Sub
Private Sub nom10_Change(): enable_ajouter: End Sub

[thetotof91]

merci pour toutes ces informations.
Patrick, si j'ai bien compris, ta soluce permet de positionner le curseur sur les champs non remplis, alors que moi je cherche à dégriser le bouton quand les champs sont remplis.

[patricktoulon]

re
bonjour
tu devrais tester avant de poser une question
en aucun cas je donne le focus a un textbox dans mes exemples
il sagit ici simplement de griser le bouton tant que les 10 textboxs ne sont pas remplie et l'inverse si ils le sont

[thetotof91]

Désole Patrick, j'avais mal compris ton premier post, d'ou ma confusion.
Ta version me tente bien dans le principe.
Mais j'ai essayé le code de ton dernier post en l'adaptant aux nom de mes champs comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub enable_ajouter()
   Dim critere
   critere = nomj <> "" And prenomj <> ""
   bajouter.Enabled = critere
End Sub
Private Sub nomj_Change(): enable_ajouter: End Sub
Private Sub prenom_Change(): enable_ajouter: End Sub

et rien ne se passe.
Donc 2 questions me viennent, dois je ajouter avant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Bajouter_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim critere
critere = nomj <> "" And prenomj <> "" 
Bajouter.Enabled = critere
End Sub

Et là toujours aucune réaction du bouton qui reste désespérément gris et faut il que j'adapte la variable critere ?
Et dans ce cas la je ne vois pas comment.
Merci d'avance

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub nomj_Change(): enable_ajouter: End Sub
Private Sub prenomj_Change(): enable_ajouter: End Sub
Private Function enable_ajouter()
Dim critere
critere = nomj <> "" And prenomj <> ""
Bajouter.Enabled = critere
End Function

[thetotof91]

Marche nickel
Il me reste plus qu'a analyser ou j'ai merdu !
Encore merci

[Arkham46]

Bonjour,

Désactiver un contrôle sur mousemove c'est la première fois que je vois ça.

J'espère qu'on ne peut pas naviguer avec tabulation jusqu'au bouton.