Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel format conditionnelvba

format conditionnelvba

2 réponses
Avatar
Caroual
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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
Avatar
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