superieur OU egal

[Moreno076]

Bonjour,

dans cette macro je voudrais que ce soir supérieur ou égal à la place de supérieur. Je ne vois pas à quel endroit remplacer ce qui ne va pas.

merci de votre aide

Dim Cel As Range
For Each Cel In Range("j2:j" & Lg)
If Range(Cel.Offset(0, 2).Address).HasFormula = True Then
With Cel
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
Formula1:="=" & Cel.Offset(0, 2).Address
.FormatConditions(1).Interior.ColorIndex = 3
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
End If

 

[Pierrot93]

Re : superieur OU egal

Bonsoir,

peut être comme ceci :

bonne soirée
@+

Edition : voir message suivant....

 

[Pierrot93]

Re : superieur OU egal

Re,

Aarf.. plutôt l'opérateur à modifier :

Operator:=xlGreaterEqual

 

[Moreno076]

Re : superieur OU egal

Oui ca fonctionne merci Pierrot !