Passer de Case d'option à OptionButton

[marcelio]

Bonjour le forum,

Je travail avec Excel 2003 et j'utilise des cases d'option (7) qui se trouve dans le contrôle de formulaire.

Elles sont toutes liées avec la cellule A1

En cliquant sur la Case d'option 1 cela m'inscrit 1
la Case d'option 2 m'inscrit 2 etc.. jusqu'à la case d'option 7

A la place des cases d'option j'aimerais utiliser des OptionButton.
Mais après plusieurs tentative je ne suis pas arrivé à trouver le code qui me permettrais d'obtenir la même chose.
OptionButton1 = 1
OptionButton2 = 2
OptionButton3 = 3
etc ..
tous liées avec la cellule A1

Si vous avez une solution je suis preneur.
Merci d'avance
Marcelio

 

[Lone-wolf]

Bonjour marcelio,

Regarde le classeur exemple. Tu as un module de classe. Clique sur exporter un fichier et ensuite tu l'importe dans le tiens(ou tu le copie). Esuite tu copie le code du formulaire.

 

[marcelio]

Bonjour Lone-wolf,
Merci pour ta réponse.
Mais c'est vrai que je n'ai pas préciser, ce n'est pas dans un USF que je veux les OptionButton mais directement sur la feuille.
Si tu à une solution
Merci
marcelio

 

[Lone-wolf]

Bonjour marcelio,

Dans le module de la feuille, si ce sont des contrôles activex.

Private Sub OptionButton1_Click()
[A1] = Right(OptionButton1.Caption, 1)
End Sub

Fait de même pour les autres.

 

[marcelio]

Bonjour Lone-wolf et le forum,
Merci pour ton code cela fonctionne bien,
mais dès que je change les noms des OptionsButton dans caption et aussi dans le VBA cela ne fonctionne plus.
Merci pour ton aide
Marcelio

 

[marcelio]

Re,
C'est bon Lone-wolf j'ai réussi à faire fonctionner mon fichier.
Merci beaucoup de ton aide.
Bonne fin d'après midi à toi et au forum.
Marcelio