Coloration des cellules
sikasika
Messages postés
74
Statut
Membre
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
Bonjour tout le monde,
j'ai besoin de votre aide
en fait j'ai écrit un code qui à marché pour une partie et non pour l'autre
le voilà
Sheets("VENTE").Range("A" & ligne) = UserForm2.vdr.Value
Range("A5").Select
Range(Selection, "A20000").Select
For i = 5 To 20000
If Range("A" & i).Value <> "" Then
With Range("A" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
End If
Next i
Sheets("VENTE").Range("B" & ligne) = UserForm2.emt.Value
Range("B5").Select
Range(Selection, "B20000").Select
For i = 5 To 20000
If Range("B" & i).Value <> "" Then
With Range("B" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End If
Next i
pour la ligne A ça a marché ça me met la cellule non vide en gris
mais pour l'autre colonne ( la colonne B ) bein rien ne se passe ça reste sans couleur
sachant que le numéro des couleur je l'ai pris depuis l'enregistreur des macro voilà
est ce que vous pouvez m'aider
j'ai besoin de votre aide
en fait j'ai écrit un code qui à marché pour une partie et non pour l'autre
le voilà
Sheets("VENTE").Range("A" & ligne) = UserForm2.vdr.Value
Range("A5").Select
Range(Selection, "A20000").Select
For i = 5 To 20000
If Range("A" & i).Value <> "" Then
With Range("A" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
End If
Next i
Sheets("VENTE").Range("B" & ligne) = UserForm2.emt.Value
Range("B5").Select
Range(Selection, "B20000").Select
For i = 5 To 20000
If Range("B" & i).Value <> "" Then
With Range("B" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End If
Next i
pour la ligne A ça a marché ça me met la cellule non vide en gris
mais pour l'autre colonne ( la colonne B ) bein rien ne se passe ça reste sans couleur
sachant que le numéro des couleur je l'ai pris depuis l'enregistreur des macro voilà
est ce que vous pouvez m'aider
A voir également:
- Coloration des cellules
- Verrouiller des cellules excel - Guide
- Excel additionner plusieurs cellules - Guide
- Colorer des cellules excel sous condition - Guide
- Fusionner deux cellules excel - Guide
- Pourquoi je ne peux pas fusionner des cellules dans excel ✓ - Forum Excel
3 réponses
Bonjour,
Chez moi (sous Excel 2010) ça fonctionne, cela donne une couleur "vert d'eau" sombre.
Il faut peut-être vérifier si sur ces cellules il n'y a pas une "mise en forme conditionnelle" qui vient contredire la macro.
A+
Cordialement,
Chez moi (sous Excel 2010) ça fonctionne, cela donne une couleur "vert d'eau" sombre.
Il faut peut-être vérifier si sur ces cellules il n'y a pas une "mise en forme conditionnelle" qui vient contredire la macro.
A+
Cordialement,
Bonjour,
merci tout d'abord d'avoir répondu
oui c'est exactement cette couleur que je veux
j'ai regardé pour la mise en forme et elle est normale ,comme celles des autres cellules donc je ne vois toujours pas pourquoi ça ne marche pas
merci tout d'abord d'avoir répondu
oui c'est exactement cette couleur que je veux
j'ai regardé pour la mise en forme et elle est normale ,comme celles des autres cellules donc je ne vois toujours pas pourquoi ça ne marche pas
Peut-être alors nous communiquer un extrait de ce classeur (sans données confidentielles) pour voir si nous pouvons comprendre le problème.
Déposer le classeur sur ce site : https://www.cjoint.com/ et publier le lien dans un post.
Déposer le classeur sur ce site : https://www.cjoint.com/ et publier le lien dans un post.
