Pb d'objet requis dans création automatique de macros

Alors voila mon projet en parti réalisé, j'ai créé une macro qui créé une CheckBox dans la case sélectionné (ça, c'est fait), charge une userform pour demander une couleur, une opération et tout(jusque là c'est bon).
Et après j'associe ma checkbox à une nouvelle macro que je créé(c'est bon).

Mais le problème, c'est que la nouvelle macro ne trouve pas l'"objet requis"!!!

Voilà un bout de mon code :

Code:

---

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

ActiveSheet.CheckBoxes.Add(Left:=GaucheBouton, Top:=SommetBouton, Width:=LargeurBouton, Height:=HauteurBouton).Select Selection.Characters.Text = "" Selection.Name = couleur & op   With ActiveWorkbook.VBProject.VBComponents("Module2").CodeModule X = .CountOfLines .InsertLines X + 1, "Sub Mac" & ActiveSheet.Name() & op & couleur & " ()" .InsertLines X + 2, "If " & couleur & op & ".value = True Then" .InsertLines X + 3, "Sheets(2).Cells(" & ActiveSheet.Name + 2 & "," & op + 2 & ").Interior.Color = " & col .InsertLines X + 4, "Else Sheets(2).Cells(" & ActiveSheet.Name + 2 & "," & op + 2 & ").Interior.TintAndShade = 0" .InsertLines X + 5, "End If" .InsertLines X + 6, "End Sub"   Selection.OnAction = "Mac" & ActiveSheet.Name() & op & couleur End With   End Sub

---

En gros, la checkbox va surligner une case de la feuille 2 en une certaine couleur donnée, la rendre transparente sinon.

Le problème vient de la nouvelle macro créée, mais je n'arrive pas à gérer ces boutons:evilred:

C'est un peu compliqué vu comme ça
Par exemple, la nouvelle checkbox aura pour nom "Jaune4"
Et on créé la macro

Code:

---

1 2 3 4 5 6

Sub Mac14Jaune() If Jaune4.Value = True Then Sheets(2).Cells(3,6).Interior.Color = 65535 Else Sheets(2).Cells(3,6).Interior.TintAndShade = 0 End If End Sub

---

Je l'ai remplacé par ce code sans affecter la CheckBox à cette macro mais là ca ne fait plus rien quand je lance la case à cocher

Code:

---

1 2 3 4 5 6

Private Sub Jaune4_Click() If Jaune4.Value = True Then Sheets(2).Cells(3,6).Interior.Color = 65535 Else Sheets(2).Cells(3,6).Interior.Pattern = xlNone End If End Sub

---

Que dois-je faire?

Bonsoir,

Ton dernier code est pourtant tout à fait correct, hormis le fait que la CheckBox ne se nommerait pas Jaune4.
Je ne vois pas pour quelle raison ça ne fonctionnerait pas, j'ai copié ton code tel quel et le test est positif.

bonsoir

refait un essai en remplaçant

Code:

---

.InsertLines X + 2, "If " & couleur & op & ".value = True Then"

---

par

Code:

---

1 2	.InsertLines x + 2, "If ActiveSheet.Shapes(" & Chr(34) & _ couleur & op & Chr(34) & ").ControlFormat.Value = xlOn Then"

---

bonne soirée
michel

Merci
C'est vrai que j'ai pas tout compris mais ça marche et c'est l'important.:yaisse2:

Problème résolu?

Bouton :resolu:!