Case d'option

[VTLE]

Bonjour à tous,

J'ai pu voir, via les discussions déjà ouvertes, que les cases d'option pose pas mal de problème. Eh bien pour moi aussi :S
J'ai crée deux case d'options que j'ai respectivement nommé "case_anomalies" et "case_dir_div" et je voudrais simplement crée une macro qui écrit dans une cellule "Anomalies" ou "Direction/Division" en fonction de la case selectionner.
Mon problème : Je n'arrive pas a récuperer le résultat qui indique quel case a été coché.

Une solution?

Cordialement,

VTLE

 

[Pierrot93]

Re : Case d'option

Bonjour,

quel type de "case" utilises t u ? celle de la barre d'outils formulaire ou de la boite à outils contrôles ?

bonne journée
@+

 

[mth]

Re : Case d'option

Bonjour,

Tes cases d'option sont dans une feuille, dans un Userform ?

Tu devrais joindre un extrait de ton fichier en indiquant où tu bloques, ainsi tu auras des réponses plus adaptées ...

Bonne journée,

mth

Edit: bonjour pierrot

 

[VTLE]

Re : Case d'option

Re,

J'utilise les "cases" de la barre d'outils formulaire
Voici un fichier qui de mon problème (rien ne s'actualise en A1)

Ps:merci a vous 2 de répondre aussi vite!

 

[Pierrot93]

Re : Case d'option

Re, bonjour Mireille

ton fichier en retour avec des objets de la boîte à outils contrôles, plus facile à gérer par vba...

 

[VTLE]

Re : Case d'option

Re,

C'est vrai que c'est plus facile a gérer, merci beaucoup pierrot93.
En revanche je lance le test suivant :
If OptionButton1.Value = True Then
'action
Else
'action2
End If

et il m'indique une erreur de compilation sur la ligne de test qui dit "objet requis" (erreur "424") ?....

 

[Pierrot93]

Re : Case d'option

Re,

tu as placé où ton code ? dans le module de la feuille ou dans un module standard ? si module standard, préciser le nom de la feuille devant le non du contrôle...

 

[VTLE]

Re : Case d'option

Re ,

Je l'avais placé dans un module standard en effet. Ca marche nickle maintenant!
Merci beaucoup !
Et bonne continuation

 

[stefan373]

Bonjour VTLE, pierrot, mth et le forum.

If OptionButton1.Value = True Then
MsgBox "coucou"
Else
MsgBox "bonjour"
End If

Chez moi, cela fonctionne.

A +