Mon code de macro ne fonctionne pas !! Fermé

Question

Bonjour,

Je cherche à réaliser un code à l'aide d'une macro pour obtenir ceci:
- quand je clique sur une case à cocher (checkbox) une cellule que je définit se colore en gris et se décolore en re-cliquant déçu. Comment faire ?
Excel me dit qu'il y a une erreur ds mon code, je trouve pas...

Private Sub CheckBox1_Click()
Dim rg As Range
Set rg = Range("F4")
If CheckBox1.Value Then
    With rg.Interior
    .ColorIndex = 15
    .Pattern = xlSolid
    .PatternColorIndex = x1Automatic
    End With
Else
    rg.Interior.ColorIndex = x1None
End If
End Sub

michel_m · Answer

willyplaisir a écrit :
j'espère que SEBdu28 appréciera la macro.

http://forum.telecharger.01net.com/forum/high-tech/LOGICIELS/Bureautique/macro-fonctionne-excel-sujet_281102_1.htm

Mike-31 · Answer

Salut,

Il est préférable d'associer chaque Checkbox à une cellule, ça peut être la cellule sous la checkbox si la checkbox est sur la feuille de calcul ou une cellule qui peut être cachée ou  colorée etc ...

Donc pour associer chaque checkbox à une cellule, tu te mets en mode création ou sur ta UserForm et double clic sur chekbox cela va t’ouvrir une page code VBA avec la fenêtre des propriétés, tu vas trouver dans la liste LinkedCell ou ControlSource en face tu saisis la référence de ta cellule exemple A1 

ensuite colles

Private Sub CheckBox1_Click()
Dim rg As Range
Set rg = Range("F4")
If Range("A1").Value = True Then
With rg.Interior
.ColorIndex = 15
End With
Else
rg.Interior.ColorIndex = x1None
End If
End Sub

A+

michel_m · Answer

Bonjour mike,

Mon message indiquait que le problème était résolu sur un autre site et Sebdu vient d'y aller remercier les contributeurs...

Mon code de macro ne fonctionne pas !!

3 réponses

Discussions similaires