Microsoft 365 Mise en forme conditionnelle en vba et formule dynamique

[Rouday]

Salut à tous,

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

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]

Bonjour,

Essaie avec

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

Cordialemment

 

[mapomme]

Bonjour,

Essayez avec:

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

edit : bonjour @frangy - en retard sur ce coup

 

[Rouday]

Bonjour,

Essaie avec

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

.Address(0, 1)

moins lourde que

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

 

[Rouday]

Bonjour,

Essayez avec:

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

edit : bonjour @frangy - en retard sur ce coup

Super, cette solution marche également ! Merci !