optionbutton

A

arnaud

Guest

• 21 Septembre 2004

• #2

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

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 21 Septembre 2004

• #3

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

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 21 Septembre 2004

• #4

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 ??

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 21 Septembre 2004

• #5

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

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 21 Septembre 2004

• #6

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

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 21 Septembre 2004

• #7

re,

je te joint donc un exemple en utilisant mon code.

 

Pièces jointes

• Classeur1.zip

  9.1 KB · Affichages: 50
• Classeur1.zip

  9.1 KB · Affichages: 51
• Classeur1.zip

  9.1 KB · Affichages: 49

Vote positif 0 Vote négatif

V

violaine

Guest

• 21 Septembre 2004

• #8

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

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 21 Septembre 2004

• #9

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.

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 21 Septembre 2004

• #10

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

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 22 Septembre 2004

• #11

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

 

Pièces jointes

• OptionButton.zip

  21.2 KB · Affichages: 59
• OptionButton.zip

  21.2 KB · Affichages: 56
• OptionButton.zip

  21.2 KB · Affichages: 61

Vote positif 0 Vote négatif