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