Discussion :

[Zeff.G]

Bonjour,

Je débute en VBA, et je bloque sur le point suivant :
J'ai créé un userform qui a pour fonction d'incrémenter un tableau de production.
Je souhaiterais desactiver le bouton de Validation tant que certaines valeurs ne sont pas renseignées.
Ces valeurs se trouvent dans des ComboBox
Elles sont au nombre de 3 " Combo_Dim, Programmes et Mois
M est une variable
J'ai donc procédé ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
 
CommandButton1.Enabled = False ' Desactiver le bouton a l'ouverture 
 
If Combo_DIM = M And PROGRAMMES = M And MOIS = M Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If

Le probleme c'est que le bouton ne s'active pas.

Merci par avance de votre aide.

[jfontaine]

Bonjour,

Le test des combobox ne doit pas être dans l'évenement initialize, mais dans l'évenement Change de chaque combobox.

[Zeff.G]

Bonjour,

Merci pour cette réponse rapide.
J'ai donc suivi vos conseils :

Code :

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

1
2
3
4
5
6
7
Private Sub Combo_DIM_Change()
If Combo_DIM = M Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

Et ce pour chaque Combobox.
Malheuresement le bouton reste inactif.
En me disant que M est déclaré en Private Sub UserForm_Initialize() ert donc inconnu dans cette procedure j'ai modifié le code en :

Code :

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

1
2
3
4
5
6
7
Private Sub Combo_DIM_Change()
If Combo_DIM = "" Then
CommandButton1.Enabled = False
Else
CommandButton1.Enabled = True
End If
End Sub

Il y a du mieux, mais le bouton s'active des la premiere Combobox renseignée.

J'ai alors voulu déclaré une valeur public :

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub Combobox_Value01()
Dim X As Long
 
If Combo_DIM = "" And PROGRAMMES = "" And MOIS = "" Then
X = 0
Esle
X = 1
End If
End Sub

J'ai ensuite voulu appliquer le meme schema que précedement c'est a dire :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Combo_DIM_Change()
 
If X = 0 Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

Meme résultat. Désolé d'etre si brouillon et confus dans mes demandes

[jfontaine]

Plutôt comme cela

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test_Combo()
 
If Combo_DIM <> "" And PROGRAMMES <> "" And MOIS <> "" Then
    CommandButton1.Enabled = True
Else
    CommandButton1.Enabled = False
End If
 
End Sub

puis dans chaque combobox_Change (en partant du principe que PROGRAMME et MOIS sont des combobox)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Combo_DIM_Change()
Test_Combo
End Sub
Private Sub PROGRAMMES_Change()
Test_Combo
End Sub
Private Sub MOIS_Change()
Test_Combo
End Sub

[Zeff.G]

Ca fonctionne parfaitement,
Merci beaucoup pour ces réponses rapides