Ma première VBA ne marche pas

Bonjour à tous

Alors voila je suis débutante dans le mode VBA, jusqu'a maintenant j'ai toujours créé mes macros a l'aide de l'enregistrement.
Seulement avec les cases à cocher, je ne pense pas que ce soit possible. J'ai donc essayé d'élaborer mon premier code VBA, mais évidemment ca ne fonctionne pas .... :roll: Pouvez vous me dire ce qui cloche ?

Merci d'avance pour votre aide :) (il me met "erreur d'execution 424 objet requis)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub caseacocher()   If checkbox54.Value = 1 Then   Range("b465").Select ActiveCell.FormulaR1C1 = ("coex") Range("b162").Select   Else   Range("465").Select Selection.ClearContents   End If     End Sub

---

Code:

---

Range("465").Select

---

ça c'est pas bon il te manque l'identifiant de la colonne ( la lettre )

J'ai recopié mais j'avais bien mis avec le B devant...

J'ai un doute sur le "CheckBox54", comment je peux savoir si je sélectionne la bonne case à cocher ?

vérifies donc ta checkbox et essaies :

Code:

---

1 2 3 4 5 6 7 8

Sub caseacocher() If checkbox54.Value = 1 Then Range("b465") = "coex" 'si c'est une expression à intégrer Range("b162").Select ' pourquoi faire Else Range("B465").ClearContents End If End Sub

---

Merci beaucoup mais ca ne marche toujours pas :(..

Comment je fais pour vérifier le nom de ma case à cocher ? Faut il que je mette une cellule liée à l'aide du format de contrôle ?

Ta case à cocher est-elle un controle Formulaire, un controle ActiveX ?

C'est un contrôle formulaire :)

Ok,
essaies comme ça
Rediges déjà ta macro dans un module standart
Click droit sur ta case à cocher
onglet propriété
tu affectes une cellule liée, exemple G1
cliques sur OK
Click droit sur ta case à cocher
cliques sur "Affecter une macro
choisis "caseacocher"
ta macro

Code:

---

1 2 3 4 5 6 7 8

Sub caseacocher() If Range("G1") = True Then Range("b465") = "coex" 'si c'est une expression à intégrer Range("b162").Select ' pourquoi faire Else Range("B465").ClearContents End If End Sub

---

Super! :ccool:

Merci beaucoup

Content pour toi, penses à cliquer sur :resolu:

Bonne fin de journée