OptionButton aide

Calvus

XLDnaute Barbatruc

• 27 Janvier 2018

• #2

Bonsoir,

VB:

If OptionButton1 Then
Range("D" & Rows.Count).End(xlUp).Rows(2) = "oui"
Range("E" & Rows.Count).End(xlUp).Rows(2) = "x"
End If
If OptionButton2 Then
Range("E" & Rows.Count).End(xlUp).Rows(2) = "oui"
Range("D" & Rows.Count).End(xlUp).Rows(2) = "x"
End If

A+

 

Dernière édition: 27 Janvier 2018

Vote positif 0 Vote négatif

R

rem13

XLDnaute Nouveau

• 27 Janvier 2018

• #3

Merci, mais comment envoyer les réponses sur ma feuille "Test" et la programation que vous venez de me donner, je dois l'insérer dans "Private Sub CommandButton1_Click()" ?

merci d'avance

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 27 Janvier 2018

• #4

Re,

Code:

Sheets("Test").Range("D" & Rows.Count).End(xlUp).Rows(2) = "oui"

Dans Private Sub OptionButton1_Click()

A+

 

Vote positif 0 Vote négatif

R

rem13

XLDnaute Nouveau

• 28 Janvier 2018

• #5

Super cela fonctionne, merci encore.

Bonne soirée.

 

Vote positif 0 Vote négatif

R

rem13

XLDnaute Nouveau

• 28 Janvier 2018

• #6

J’en profite pour une dernière demande, grâce à ta programmation j’ai pu faire un graphique camenbert et j’aurai voulu savoir comment faire pour le faire apparaître sur un userform, qu’il soit dynamique à chaque nouvelle valeur le camenbert change.

En espérant que cela soit possible.. merci d’avance

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Janvier 2018

• #7

Bonjour le fil, le forum

Histoire de varier les plaisirs (ou tout du moins la syntaxe)

VB:

Private Sub CommandButton1_Click()
X = Switch(OptionButton1 = True, "oui|x", OptionButton1 = False, "x|oui")
Cells(Rows.Count, "D").End(3)(2).Resize(, 2) = Split(X, "|")
End Sub

Et pour le fun, la version one-liner 😉

VB:

Private Sub CommandButton1_Click()
Cells(Rows.Count, "D").End(3)(2).Resize(, 2) = Split(Switch(OptionButton1 = -1, "oui|x", OptionButton1 = 0, "x|oui"), "|")
End Sub

 

Vote positif 0 Vote négatif

R

rem13

XLDnaute Nouveau

• 28 Janvier 2018

• #8

Merci 🙂

Bonne fin de journée 🙂

 

Vote positif 0 Vote négatif