format conditionnelvba

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Caetera
Le #20390851
"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 ....



************************

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
Le #20412861
Bonjour,
Cela marche bien .
Merci
Caroual

"Caetera" %
"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 ....



************************

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



Publicité
Poster une réponse
Anonyme