Valeur ref pour mise en forme conditionnelle VBA

Buji_ang · 8 Août 2005

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! · 8 Août 2005

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 · 10 Août 2005

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

Valeur ref pour mise en forme conditionnelle VBA

Buji_ang

Guest

myDearFriend!

XLDnaute Barbatruc

Buji_ang

Guest

Discussions similaires