Discussion :

[Wolfsrain]

Bonjour à tous

Je souhaiterais savoir comment griser un bouton d'un userform (c'est à dire qu'il ne soit pas cliquable) tant que les optionbuttons ne sont pas choisis.

Je joins ci-après une photo de mon userforme.
En gros, il faut d'abord sélectionner le type de menuiserie ("porte" ou "fenêtre") et selon ce choix, il y a un deuxième frame (type de porte ou type de fenêtre) qui s'affiche avec des options relatifs à "porte" ou fenêtre". Cette étape est déjà codée. Il me manque seulement le fait de bloquer le bouton OK tant que le type de menuiserie et le type de porte/fenêtre ne sont pas choisis.

Si quelqu'un peut m'aider ça sera très sympa, merci à vous !

[Invité]

Code :

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

1
2
3
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
End Sub

[Wolfsrain]

Salut rdurupt, merci mais je connais bien la commande. Ça ne m'aide pas vraiment.

[Invité]

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
20
21
22
Sub OptionButtonsClick()
Dim B As Boolean
For i = 1 To 4
   B = B + Me.Controls("OptionButton" & CStr(i)).Value
Next
CommandButton1.Enabled = B
End Sub
Private Sub OptionButton1_Click()
OptionButtonsClick
End Sub
Private Sub OptionButton2_Click()
OptionButtonsClick
End Sub
Private Sub OptionButton3_Click()
OptionButtonsClick
End Sub
Private Sub OptionButton4_Click()
OptionButtonsClick
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Enabled = False
End Sub

[Wolfsrain]

Re
Ta solution rdurupt est une version beaucoup plus propre de ce que j'avais tenté en premier lieu sans grand succès. En fait, il me manquait la réinitialisation de la fonction OptionButtonsClick à chaque changement entre porte/fenêtre car j'ai plusieurs frames à gérer et non pas une seule (et du coup, plusieurs groupes de boutons).

Merci en tout cas.

Problème résolu !