Discussion :

[vally74]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vally74]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vally74]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[fring]

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.

[SilkyRoad]

bonsoir

refait un essai en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bonne soirée
michel

[vally74]

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

[AlainTech]

Problème résolu?

Bouton !