Discussion :

[jbggg]

bonjour,

je souhaite utiliser plusieurs boutons d'option.
le premier s'il est cliqué donnera la valeur 2, pour le deuxième la valeur 1 et le troisième la valeur 0.5.

comment écrire pour que vba sache si le bouton a été cliqué.
Voici le code que j'ai tapé, mais je ne sais pas comment le faire fonctionner.

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
23
24
25
26
'eco
Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        Range(Feuil1!E14) = 2
    Else
        Range(Feuil1!E14) = ""
    End If
End Sub
 
'peu polluant
Private Sub OptionButton2_Click()
 If OptionButton2 = 1 Then
        Range(Feuil1!E14) = 1
    Else
        Range(Feuil1!E14) = ""
    End If
End Sub
 
'polluant
Private Sub OptionButton3_Click()
 If OptionButton3 = 1 Then
        Range(Feuil1!E14) = 0.5
    Else
        Range(Feuil1!E14) = ""
    End If
End Sub

merci.

[ouskel'n'or]

Où se trouvent tes optionButtons ? Dans la feuille de calculs ou dans un userform ?
A+

[jbggg]

dans un userform. mais alors je viens de me souvenir le code ne serait pas

Code :

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

UserForm1.OptionButton1

mais le problème est qu'il ne veut pas écrire dans la cellule la valeur indiquée

[zyhack]

Bonsoir

il manquait quelques parenthèses et des optionButton2 et 3 qui sont égal à 1 qui ne fonctionnent pas, rien de grave

essaye ça et ça devrait rouler

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
23
24
25
Private Sub OptionButton1_Click()
    If OptionButton1.Value = True Then
        Range("Feuil1!E14") = 2
    Else
        Range("Feuil1!E14") = ""
    End If
End Sub
 
'peu polluant
Private Sub OptionButton2_Click()
 If OptionButton2.Value = True Then
        Range("Feuil1!E14") = 1
    Else
        Range("Feuil1!E14") = ""
    End If
End Sub
 
'polluant
Private Sub OptionButton3_Click()
 If OptionButton3.Value = True Then
        Range("Feuil1!E14") = 0.5
    Else
        Range("Feuil1!E14") = ""
    End If
End Sub

a+

[OrDonc]

Bonjour,

Dés que l'un des boutons est coché on ne peut revenir aux 3 décochés autrement que par une autre action, donc, tout simplement :

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
 
Private Sub UserForm_Initialize()
  Range("Feuil1!E14") = "" 'pour partir d'une cellule vide
End Sub
'eco
Private Sub OptionButton1_Click()
    Range("Feuil1!E14") = 2
End Sub
 'peu polluant
Private Sub OptionButton2_Click()
Range("Feuil1!E14") = 1
End Sub
 'polluant
Private Sub OptionButton3_Click()
 Range("Feuil1!E14") = 0.5
End Sub

Il faut rajouter une macro si tu veux revenir à l'état premier (aucune option choisie). Par exemple, avec un bouton supplémentaire :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim I&  
For I = 1 To 3
    Controls("optionbutton" & I) = False
  Next
  Range("Feuil1!E14") = Empty
  End Sub