boucle comprenant une formule

ricoharpe · 5 Janvier 2014

bonsoir
je cherche a faire une boucle avec une formule dans un format conditionnel
apres beaucoup de recherches je suis arrivé a ca

Sub Macro4()
Dim numero As Integer

For numero = 2 To 937

Cells(numero, 2).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E$ numero =1"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$F$ numero =1"
Selection.FormatConditions(2).Interior.ColorIndex = 6
numero = numero + 1
Next numero
End Sub

apparement il y a une erreur au niveau de la formule ( souligné )

merci beaucoup de votre soutiens

ROGER2327 · 5 Janvier 2014

Re : boucle comprenant une formule

Bonjour ricoharpe

Essayez

Code:

 "=$E$" & numero & "=1"

au lieu de

Code:

"=$E$ numero =1"

.

ℝOGER2327
#7099

Dimanche 8 Décervelage 141 (Saint Bordue, Capitaine - fête Suprême Tierce)
16 Nivôse An CCXXII, 0,6671h - silex
2014-W01-7T01:36:04Z

kjin · 5 Janvier 2014

Re : boucle comprenant une formule

bonsoir,
Si la procédure s'applique bien 1 ligne sur 2 (numero = numero + 1)

Code:

Sub Macro4()
Dim numero As Integer
For numero = 2 To 937 Step 2
    With Cells(numero, 2)
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$E$" & numero & "=1"
        .FormatConditions(1).Interior.ColorIndex = 3
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$F$" & numero & "=1"
        .FormatConditions(2).Interior.ColorIndex = 6
    End With
Next
End Sub

kjin

ricoharpe · 5 Janvier 2014

Re : boucle comprenant une formule

merci, le "=$E$" & numero & "=1" marche tres bien
je suis content qu'il n'y ai que cette eureur dans ma macro vu que ca fait que quelques jours que j'en fait
a bientot pour d'autres aventures

boucle comprenant une formule

ricoharpe

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

ricoharpe

XLDnaute Nouveau

Discussions similaires