Mon code de macro ne fonctionne pas !!
sebdu27
-
sebdu27 -
sebdu27 -
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
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
Configuration: Windows XP Firefox 3.0.4
3 réponses
-
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 -
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+ -
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...
