Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Passer de Case d'option à OptionButton

marcelio

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Boutons Options exemple.xlsm
    17.5 KB · Affichages: 15

marcelio

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
3
Affichages
223
Réponses
3
Affichages
340
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…