lanzarotte
XLDnaute Nouveau
Bonjour à tous !
Je cherche à automatiser une mise en forme conditionnelle sous vba excel. Mon problème est que je dois rentrer une formule qui compare la valeur de deux cellules. Or je n'arrive pas à utiliser < et >.
Je recherche l'operateur inféreur en francais (car je manipule des dates en format francais) type Imp ou eqv qui si j'ai bien compris compare.
En effet, ESTVIDE() fonctionne alors que "=""" ne fonctionne pas
Mon Code :
Dim Condition1 as String
Dim B As Range
Dim A As Range
Dim C As Range
Cells(3,3).Select
Set B = Cells(6, 7)
Set A = Cells(6, 8)
Set C = Cells(6, 9)
Condition1 = "=ET(ESTVIDE(" & B.Address(False, False) & ");ESTVIDE(" & A.Address(False, False) & ");" & ICI JE VOUDRAIS METTRE A EST INFERIEUR à B & ")"
With Selection
'Supprime les MFC existantes
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=Condition1
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.Color = RGB(255, 0, 0) 'Rouge
End With
End With
merci de votre aide !
Je cherche à automatiser une mise en forme conditionnelle sous vba excel. Mon problème est que je dois rentrer une formule qui compare la valeur de deux cellules. Or je n'arrive pas à utiliser < et >.
Je recherche l'operateur inféreur en francais (car je manipule des dates en format francais) type Imp ou eqv qui si j'ai bien compris compare.
En effet, ESTVIDE() fonctionne alors que "=""" ne fonctionne pas
Mon Code :
Dim Condition1 as String
Dim B As Range
Dim A As Range
Dim C As Range
Cells(3,3).Select
Set B = Cells(6, 7)
Set A = Cells(6, 8)
Set C = Cells(6, 9)
Condition1 = "=ET(ESTVIDE(" & B.Address(False, False) & ");ESTVIDE(" & A.Address(False, False) & ");" & ICI JE VOUDRAIS METTRE A EST INFERIEUR à B & ")"
With Selection
'Supprime les MFC existantes
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=Condition1
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.Color = RGB(255, 0, 0) 'Rouge
End With
End With
merci de votre aide !