optionbutton

[violaine]

bonjour le forum

je suis parvenue a renvoyer la valeur d'une optionbutton dans une cellule de ma feuille excel mais je ne trouve comment coder la fonction inverse

dans la cellule A1 => chat

valider l optionbutton dans ma userform correspondant au mot chat

merci

 

[arnaud]

Salut 🙂,

je ne sais pas si il y a une solus plus simple mais moi je ferai comme ça :

Select Case ActiveWorkbook.Sheets(1).Range("A2").Value
Case "tyty"
OptionButton1.Value = True
Case "toto"
OptionButton2.Value = True
Case "tutu"
OptionButton3.Value = True
End Select

et met lcase(ActiveWorkbook.Sheets(1).Range("A2").Value) si tu ne veux pas que cela tienne compte des majuscule

 

[violaine]

merci
mais ca ne va pas
il me marque une erreur sur la premiere ligne de code
Select Case ActiveWorkbook.Sheets(1).Range("A2").Value
qd je l applique a mon application
en ce qui concerne mon application je mat vos ligne de code sur un bouton

 

[arnaud]

re,

c pas simple a dubuger a distance comme ça sans rien voir 🙁
c'est quoi la description de l'erreur ?? tu le place ou ce code ?? derrière le bouton d'un usf ou un bouton placé sur une feuille ??

 

[violaine]

je comprend bien mais mon application est trop volumineuse pour vous l envoyer

 

[violaine]

pouvez vous me faire un exemple
avec un peu de chance ceci me debloquera
merci

 

[arnaud]

re,

je te joint donc un exemple en utilisant mon code.

 

[violaine]

pouvez vous me detailleer la ligne suivante car lors de l exécution une boite de dialogue m indique une erreur de syntaxe sur


Select Case ActiveWorkbook.Sheets(1).Range("A2").Value


ps pour la cellule A2 pour moi ca correspond a une colonne a partir de la ligne 10

merci pour l exemple

 

[arnaud]

re,

je ne sais pas trop coment t'aider vu que ton classeur a l'air spécifique 🙁
mais tu as dis que tu avais réussi a le faire dans le sens inverse donc normalement le code doit relativement ressembler a ce que tu as déja.

la ligne ActiveWorkbook.Sheets(1).Range("A2").Value n'est qu'un exemple et il faut surement que tu l'adapte a ton classeur selon la page et la cellule que tu souhaite inspecter.

 

[violaine]

pour la fonction que g utilisé c est la suivante


Cells(I, 1).Select

Selection.Value = reference_usinee


Selection.Offset(0, 1).Select
If cu1.Value = True Then Selection.Value = "cu1"
If cu2.Value = True Then Selection.Value = "cu2"
If cu3.Value = True Then Selection.Value = "cu3"
If cu4.Value = True Then Selection.Value = "cu4"
If cu5.Value = True Then Selection.Value = "cu5"
If cu6.Value = True Then Selection.Value = "cu6"
If cu7.Value = True Then Selection.Value = "cu7"
If cu8.Value = True Then Selection.Value = "cu8"
If cu9.Value = True Then Selection.Value = "cu9"
If ddh.Value = True Then Selection.Value = "ddh"
End If


ce qui correspond a
le choix parmi les optionbutton renvoyer dans ma cellule de mon classeur

 

[CHti160]

Salut "violaine"
bonsoir le"Forum"
un petit fichier joint pour peut être faire avancer le chimilim'blick....;-)
A+++
Jean Marie