Valeur ref pour mise en forme conditionnelle VBA

[Buji_ang]

Bonjour,

Pour faire de la mise en forme conditionnelle avec VBA, je peux utiliser ces lignes :

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:='10'
Selection.FormatConditions(1).Interior.ColorIndex = 3

Je peux remplacer Formula1:='10' par Formula1:='G3' si je souhaite faire référence à une cellule plutot qu'une valeur.

Mais coment faire pour faire reference a une cellule variable definie par exemple par cells(nb_lig+2, nb_col-1) ou nb_lig et nb_col sont des entiers definis au prealable?

Merci d'avance pour votre aide

 

[myDearFriend!]

Bonsoir Buji_ang,

Ci-dessous, une solution possible :

Dim AdrCell As String
Dim nb_lig As Long
Dim nb_col As Integer
      ...
      ...
      ...
   AdrCell = Cells(nb_lig + 2, nb_col - 1).Address
      Selection.FormatConditions.Delete
      Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
            Formula1:='=' & AdrCell
      Selection.FormatConditions(1).Interior.ColorIndex = 3

Cordialement,

 

[Buji_ang]

Merci pour cette reponse
En plus, ca m'ouvre pas mal de perspectives avec les 'Formula' que je maitrisais plutot mal!