Microsoft 365 Mise en forme conditionnelle en vba et formule dynamique

Rouday · 24 Juillet 2019

Salut à tous,

Je bugue avec une formule VBA pour une MEFC. C'est une histoire de guillemets mais j'avoue sécher un peu.

VB:

Range(Cells(88, col3 + 3), Cells(nb_lines, col3 + 3 + var_vis)).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
                                    "=SI(" & Cells(88, col3).Address(RowAbsolute:=False, ColumnAbsolute:=True)  & """=Assemblage KO"";VRAI;FAUX)"

C'est pour appliquer dynamiquement des MEFC.
Comment résoudre l'erreur dans la formule svp ?

Merci
Rouday

frangy · 24 Juillet 2019

Bonjour,

Essaie avec

VB:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(88, Col3).Address(0, 1) & "=""Assemblage KO"""

Cordialemment

mapomme · 24 Juillet 2019

Bonjour,

Essayez avec:

VB:

Formula1:="=" & Cells(88, col3).Address(False, True) & "=""Assemblage KO"""

edit : bonjour @frangy - en retard sur ce coup

Rouday · 24 Juillet 2019

frangy à dit:
Bonjour,

Essaie avec

VB:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(88, Col3).Address(0, 1) & "=""Assemblage KO"""

Cordialemment

Impec, ça marche nickel ! Merci beaucoup. Je note l'expression

Code:

.Address(0, 1)

moins lourde que

VB:

.Address(RowAbsolute:=False, ColumnAbsolute:=True)

Rouday · 24 Juillet 2019

mapomme à dit:
Bonjour,

Essayez avec:

VB:

Formula1:="=" & Cells(88, col3).Address(False, True) & "=""Assemblage KO"""

edit : bonjour @frangy - en retard sur ce coup

Super, cette solution marche également ! Merci !

Microsoft 365 Mise en forme conditionnelle en vba et formule dynamique

Rouday

XLDnaute Nouveau

frangy

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Rouday

XLDnaute Nouveau

Rouday

XLDnaute Nouveau

Discussions similaires