L'indice n'appartient pas à la sélection
Bonjour à vous,
J'ai un petit code VBA pour ajouter une mise en forme conditionnelle. lorsque je le test sur un onglet vierge ça fonctionne parfaitement mais lorsque je prend mon onglet R-F sur laquelle je veux appliquer ma macro j'ai toujours la même erreur...
bouge toujours à la même ligne :
Sub ajouter_couleur2()
Sheets("R-F").Select
Dim MaPlage As Range
Dim i As Integer
Dim J As String
Dim k As String
'lundi jour B1
For i = 5 To 13
J = "D"
k = "F"
Set MaPlage = Range(J & i & ":" & k & i)
MaPlage.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$C$" & i & "=""GO"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16711680
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Next i
'lundi soir B1
For i = 15 To 22
J = "D"
k = "F"
Set MaPlage = Range(J & i & ":" & k & i)
MaPlage.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$C$" & i & "=""GO"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16711680
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Next i
End Sub
quelqu'un peux m'aider?
un grand merci
Bonsoir,
Est-ce que Theme est une propriété de Font ?
Peut-être que non...
@ bientôt
LouReeD
merci de votre aide,
je ne suis pas certain de comprendre, la ligne où j'ai le problème sert à mettre l'écriture blanc, parce que le fond de couleur que j'utilise est trop foncé pour que l'écriture soit noir
Avec ceci :
With Selection.FormatConditions(1).Font
.Color = RGB(255,255,255)
@ bientôt
LouReeD
Je vais essayer demain matin, merci
J'ai encore la même erreur
J'ai trouvé
Bonjour,
Alors c'est quoi ?
@ très bientôt alors ?
LouReeD
Fausse espoir
j'y travail toujours
300ko maxi pour déposer sur le forum...
@ bientôt
LouReeD