Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

boucle comprenant une formule

  • Initiateur de la discussion Initiateur de la discussion ricoharpe
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

R

ricoharpe

Guest
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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
884
Réponses
5
Affichages
752
S
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
827
S
Réponses
2
Affichages
862
B
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
970
bd.afaf
B
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…