Bonjour,
Je cherche à mettre un format conditionnel dans une cellule en fonction du
contenu de 2 cellules :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=
"=""et(A6=""AREV"";H6="""")"""
Selection.FormatConditions(1).Interior.ColorIndex = 3
J'aimerais que A6 et H6 soit en relatif du style :
Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):=
"=""ET(activecell=""AREV"";activecell.offset(,8)="""")"""
Mais cela ne fonctionne pas ....
Merci
Caroual
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
Caetera
"Caroual" a écrit dans le message de news:
Bonjour, Je cherche à mettre un format conditionnel dans une cellule en fonction du contenu de 2 cellules :
Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=""et(A6=""AREV"";H6="""")""" Selection.FormatConditions(1).Interior.ColorIndex = 3 J'aimerais que A6 et H6 soit en relatif du style : Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):= "=""ET(activecell=""AREV"";activecell.offset(,8)="""")""" Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection x = ActiveCell.Address(0, 0) x1 = ActiveCell.Offset(0, 8).Address(0, 0) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x & "=""AREV"";" & x1 & "="""")" .FormatConditions(1).Interior.ColorIndex = 6 End With
Etc
"Caroual" <param@orange.fr> a écrit dans le message de news:
utLY4ZgUKHA.3720@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à mettre un format conditionnel dans une cellule en fonction du
contenu de 2 cellules :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=
"=""et(A6=""AREV"";H6="""")"""
Selection.FormatConditions(1).Interior.ColorIndex = 3
J'aimerais que A6 et H6 soit en relatif du style :
Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):=
"=""ET(activecell=""AREV"";activecell.offset(,8)="""")"""
Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection
x = ActiveCell.Address(0, 0)
x1 = ActiveCell.Offset(0, 8).Address(0, 0)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x & "=""AREV"";" &
x1 & "="""")"
.FormatConditions(1).Interior.ColorIndex = 6
End With
Bonjour, Je cherche à mettre un format conditionnel dans une cellule en fonction du contenu de 2 cellules :
Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=""et(A6=""AREV"";H6="""")""" Selection.FormatConditions(1).Interior.ColorIndex = 3 J'aimerais que A6 et H6 soit en relatif du style : Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):= "=""ET(activecell=""AREV"";activecell.offset(,8)="""")""" Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection x = ActiveCell.Address(0, 0) x1 = ActiveCell.Offset(0, 8).Address(0, 0) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x & "=""AREV"";" & x1 & "="""")" .FormatConditions(1).Interior.ColorIndex = 6 End With
Etc
Caroual
Bonjour, Cela marche bien . Merci Caroual
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news: %
"Caroual" a écrit dans le message de news:
Bonjour, Je cherche à mettre un format conditionnel dans une cellule en fonction du contenu de 2 cellules :
Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=""et(A6=""AREV"";H6="""")""" Selection.FormatConditions(1).Interior.ColorIndex = 3 J'aimerais que A6 et H6 soit en relatif du style : Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):= "=""ET(activecell=""AREV"";activecell.offset(,8)="""")""" Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection x = ActiveCell.Address(0, 0) x1 = ActiveCell.Offset(0, 8).Address(0, 0) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x & "=""AREV"";" & x1 & "="""")" .FormatConditions(1).Interior.ColorIndex = 6 End With
Etc
Bonjour,
Cela marche bien .
Merci
Caroual
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news:
%23R9PfOhUKHA.508@TK2MSFTNGP06.phx.gbl...
"Caroual" <param@orange.fr> a écrit dans le message de news:
utLY4ZgUKHA.3720@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à mettre un format conditionnel dans une cellule en fonction
du contenu de 2 cellules :
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=
"=""et(A6=""AREV"";H6="""")"""
Selection.FormatConditions(1).Interior.ColorIndex = 3
J'aimerais que A6 et H6 soit en relatif du style :
Selection.FormatConditions.Add Type:=xlExpression,
activecell.offset(,8):=
"=""ET(activecell=""AREV"";activecell.offset(,8)="""")"""
Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection
x = ActiveCell.Address(0, 0)
x1 = ActiveCell.Offset(0, 8).Address(0, 0)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x &
"=""AREV"";" & x1 & "="""")"
.FormatConditions(1).Interior.ColorIndex = 6
End With
"Caetera" <EtiennePloufCahé@wanadoo.fr> a écrit dans le message de news: %
"Caroual" a écrit dans le message de news:
Bonjour, Je cherche à mettre un format conditionnel dans une cellule en fonction du contenu de 2 cellules :
Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=""et(A6=""AREV"";H6="""")""" Selection.FormatConditions(1).Interior.ColorIndex = 3 J'aimerais que A6 et H6 soit en relatif du style : Selection.FormatConditions.Add Type:=xlExpression, activecell.offset(,8):= "=""ET(activecell=""AREV"";activecell.offset(,8)="""")""" Mais cela ne fonctionne pas ....
************************
Exemple :
With Selection x = ActiveCell.Address(0, 0) x1 = ActiveCell.Offset(0, 8).Address(0, 0) .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, Formula1:="=ET(" & x & "=""AREV"";" & x1 & "="""")" .FormatConditions(1).Interior.ColorIndex = 6 End With