bonjour à tous
cette sub me semble faire son boulot (supprimer une éventuelle mefc déja
présente, et en mettre une autre) mais à la fin j'ai un message d'erreur
1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux
à faire???
merci à tous et joyeuses pâques
@+
J@@
'==============
Sub mefc()
Range("B7:B298").Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C7"
.FormatConditions(1).Interior.ColorIndex = 3
'erreur 1004 impossible de définir la propriété colorindex de la classe
interior
End With
Application.CutCopyMode = False
End Sub
'==============
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonsoir J@@,
ton code ne génère pas d'erreur chez moi.
Mais tu peux remplacer le fait de sélectionner ta plage par ceci :
Sub mefc()
With Range("B7:B298") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 End With
End Sub
Salutations!
"J@@" a écrit dans le message de news: bonjour à tous cette sub me semble faire son boulot (supprimer une éventuelle mefc déja présente, et en mettre une autre) mais à la fin j'ai un message d'erreur 1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux à faire??? merci à tous et joyeuses pâques @+ J@@ '============= Sub mefc() Range("B7:B298").Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 'erreur 1004 impossible de définir la propriété colorindex de la classe interior End With Application.CutCopyMode = False End Sub '==============
Bonsoir J@@,
ton code ne génère pas d'erreur chez moi.
Mais tu peux remplacer le fait de sélectionner ta plage par ceci :
Sub mefc()
With Range("B7:B298")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C7"
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub
Salutations!
"J@@" <jipivert@-ifrance.fr> a écrit dans le message de news: ubMYc5ZMFHA.4092@tk2msftngp13.phx.gbl...
bonjour à tous
cette sub me semble faire son boulot (supprimer une éventuelle mefc déja
présente, et en mettre une autre) mais à la fin j'ai un message d'erreur
1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux
à faire???
merci à tous et joyeuses pâques
@+
J@@
'============= Sub mefc()
Range("B7:B298").Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C7"
.FormatConditions(1).Interior.ColorIndex = 3
'erreur 1004 impossible de définir la propriété colorindex de la classe
interior
End With
Application.CutCopyMode = False
End Sub
'==============
Mais tu peux remplacer le fait de sélectionner ta plage par ceci :
Sub mefc()
With Range("B7:B298") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 End With
End Sub
Salutations!
"J@@" a écrit dans le message de news: bonjour à tous cette sub me semble faire son boulot (supprimer une éventuelle mefc déja présente, et en mettre une autre) mais à la fin j'ai un message d'erreur 1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux à faire??? merci à tous et joyeuses pâques @+ J@@ '============= Sub mefc() Range("B7:B298").Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 'erreur 1004 impossible de définir la propriété colorindex de la classe interior End With Application.CutCopyMode = False End Sub '==============
J
Bonjour Denis j'ai repris ton code et testé pour comprendre pourquoi cela roule bien chez toi: Mon 1004 semble arriver parce que ma feuille est protégée, j'ai ajouté unprotect etc et cela va bien. merci encore J@@
"MichDenis"
ton code ne génère pas d'erreur chez moi.
Mais tu peux remplacer le fait de sélectionner ta plage par ceci : Sub mefc()
With Range("B7:B298") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 End With
End Sub
"J@@" <> cette sub me semble faire son boulot (supprimer une éventuelle mefc déja présente, et en mettre une autre) mais à la fin j'ai un message d'erreur 1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux à faire??? '============= > Sub mefc() Range("B7:B298").Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 'erreur 1004 impossible de définir la propriété colorindex de la classe interior End With Application.CutCopyMode = False End Sub '==============
Bonjour Denis
j'ai repris ton code et testé pour comprendre pourquoi cela roule bien chez
toi:
Mon 1004 semble arriver parce que ma feuille est protégée, j'ai ajouté
unprotect etc et cela va bien.
merci encore
J@@
"MichDenis" <michdenis@hotmail.com>
ton code ne génère pas d'erreur chez moi.
Mais tu peux remplacer le fait de sélectionner ta plage par ceci :
Sub mefc()
With Range("B7:B298")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C7"
.FormatConditions(1).Interior.ColorIndex = 3
End With
End Sub
"J@@" <> cette sub me semble faire son boulot (supprimer une éventuelle
mefc déja
présente, et en mettre une autre) mais à la fin j'ai un message d'erreur
1004. Que faire : je néglige en mettant On Error Resume Next ou il y a
mieux
à faire???
'============= > Sub mefc()
Range("B7:B298").Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=$C7"
.FormatConditions(1).Interior.ColorIndex = 3
'erreur 1004 impossible de définir la propriété colorindex de la classe
interior
End With
Application.CutCopyMode = False
End Sub
'==============
Bonjour Denis j'ai repris ton code et testé pour comprendre pourquoi cela roule bien chez toi: Mon 1004 semble arriver parce que ma feuille est protégée, j'ai ajouté unprotect etc et cela va bien. merci encore J@@
"MichDenis"
ton code ne génère pas d'erreur chez moi.
Mais tu peux remplacer le fait de sélectionner ta plage par ceci : Sub mefc()
With Range("B7:B298") .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 End With
End Sub
"J@@" <> cette sub me semble faire son boulot (supprimer une éventuelle mefc déja présente, et en mettre une autre) mais à la fin j'ai un message d'erreur 1004. Que faire : je néglige en mettant On Error Resume Next ou il y a mieux à faire??? '============= > Sub mefc() Range("B7:B298").Select With Selection .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _ Formula1:="=$C7" .FormatConditions(1).Interior.ColorIndex = 3 'erreur 1004 impossible de définir la propriété colorindex de la classe interior End With Application.CutCopyMode = False End Sub '==============
