OptionBouton Userform

[bloomby]

Bonjour à tous,

Je désire créer une série d'optionbouton
par exemple 2 optionbouton 1- On 2-Off

lorsque je clique sur on cela devra inscrire On dans la cellule A1
si on clique sur Off cela devra ecrire Off A1

Par la suite avec une deuxieme série d'optionBouton
lorsqu'on sélectionne 1-Macro1 (lance la Macro1) 2-Macro2 (lance la Macro2)

merci à tous

 

[alex67800]

Re : OptionBouton Userform

Bonjour bloomby,

peut-être comme ceci;

If OptionButton1.value = True then Range("A1").value = OptionBbutton1.caption
End If
If OptionButton2.value = True then Range("A1").value = OptionButton2.caption
End If

Bon fait à l'arrache. A tester donc

Edit: Oupss pas besoin de End IF

Petit essai dans fichier joint

Re Edit: même principe pour ta deuxième question mais remplacer le texte après Then par call macro1 ou Call macro2. Et encore suis pas sûr que tu es besoin de Call 😉

 

[bloomby]

Re : OptionBouton Userform

Salut Alex,
j'ai testé ton code dans un userform et malheureusement cela ne fonctionne pas
pour l'instant

merci

 

[alex67800]

Re : OptionBouton Userform

Bonjour Blommby,
Je me suis basé sur des optionbutton dans une feuille active et non un userform. D'ou l'intéret de préciser d'avance ou son placé tes controls.

Il faut donc légèrement le modifier.

Je regarde!

 

[alex67800]

Re : OptionBouton Userform

Re,

Excuse moi mon code comportait une erreur de syntaxe dans mon fil et non le fichier, tu l'auras sans doute remarqué:

If OptionButton1.value = True then Range("A1").value = OptionBbutton1.caption
End If
If OptionButton2.value = True then Range("A1").value = OptionButton2.caption
End If

Pour ce qui est de placer ce code dans un USF regarde le fichier joint en feuille2 et test les boutons.
Il ni avait pas grand chose à modifier tu le constateras.

A te lire!

 

[bloomby]

Re : OptionBouton Userform

salut Alex,

C'est parfait cela fonctionne à merveille

merci encore une fois !

 

[alex67800]

Re : OptionBouton Userform

Re,

De rien!

A bientôt pour de prochaines aventures!! 😀😉