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
A voir également:
- Mon code de macro ne fonctionne pas !!
- Code ascii - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
- Code activation windows 10 - Guide
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
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+
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+
Excuse moi j'ai posté 2 fois le même mess car j'arrivais pas à afficher mon mess sur télécharger.com
Merci, merci et encore merci
Séb