Macro avec condition

Bonjour,

J'aimerai ajouter une condition à cette macro qui controle le format prix en Colonne N.

Simplement, la condition est celle-ci :
si en colonne B, il y a un "D" alors pas de contrôle en colonne N, passe à la ligne suivante.
J'ai rajouté ce code,

Code:

---

If Range("B" & x.Row) = "D" Then Exit For

---

ca n'a pas l'air de fonctionner.

Code:

---

1 2 3 4 5 6 7 8 9

Dim Colonne(), x As Range For Each x In Sheets(DATA).Range("AH2:" & Sheets(DATA).Range("AH65536").End(xlUp).Address) If Range("B" & x.Row) = "D" Then Exit For If x.NumberFormat <> "0.00" Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant If x = 0 Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) If Not IsNumeric(x) Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant Next x End Sub

---

merci de l'aide

cordialement

Bonsoir
dans cette ligne

Code:

---

If Range("B" & x.Row) = "D" Then Exit For

---

tu demandes de sortir de la boucle uniquement si la cellule = "D"

si tu veux sortir quand la cellule contient D tu peux toujours faire

Code:

---

If Range("B" & x.Row) like "*" & "D" & "*" Then Exit For

---

edit : je croix que comme ça aussi, ça va

Code:

---

If Range("B" & x.Row) like "*D*" Then Exit For

---

Bonjour,
Autre méthode, moins gourmande en ressource.. :?

Code:

---

If Trim(Range("B" & x.Row)) = "D" Then Exit For

---

et s'il peu y avoir des D et des d peu aussi faire

Code:

---

If Ucase(Trim(Range("B" & x.Row))) = "D" Then Exit For

---

A+

Bonjour et merci à tous,
ce que je souhaite et que je n'arrive pas à exprimer, ce n'est pas de sortir de la boucle quand il y' a un D, mais de dire cela :

Vérifier si en ligne 2, il y'a un "D" en colonne B
-Si présence "D", alors passer à ligne suivante
-Si non présence de "D" à la ligne suivante, alors

Code:

---

1 2 3 4 5

If x.NumberFormat <> "0.00" Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant If x = 0 Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) If Not IsNumeric(x) Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant Next x

---

En essayant vos proposition, des qu'il y a un "D" ça me fait sortir de la boucle, alors kil devrait revenir au début de la boucle.

J'espère avoir été clair,

merci d avance

Bonjour roidurif, le forum,

C'est toi au départ qui a mis cette condition

Code:

---

If Range("B" & x.Row) = "D" Then Exit For

---

si tu reprends l'exemple à Leforestier que je salue au passage, tu fais le contraire

Code:

---

If Ucase(Trim(Range("B" & x.Row))) <> "D" Then Exit For

---

Salut
Je pense que tu n'as pas saisi le fonctionnement de Exit For, comme sont nom l'indique on sort de la boucle For, on met donc fin prématurément au déroulement de la boucle, ceci même s'il reste d'autre valeurs a traiter.
Si tu souhaites tout simplement passer a la valeur suivante de la boucle, il te suffit de faire aller ton code jusqu'à Next sans exécuter le reste du code, tu réalises cela en "protégeant" ton code dans une condition If ... End If.
Peut être ainsi.

Code:

---

1 2 3 4 5 6 7 8 9

Dim Colonne(), x As Range For Each x In Sheets(DATA).Range("AH2:" & Sheets(DATA).Range("AH65536").End(xlUp).Address) If Range("B" & x.Row) <> "D" Then If x.NumberFormat <> "0.00" Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant If x = 0 Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) If Not IsNumeric(x) Then Sheets(CONTROLE).Range("N65536").End(xlUp).Offset(1) = x.Address(REF_ABS, REF_ABS) 'N° client manquant End If Next x End Sub

---

J'ai repris ton code de départ a toi d'implémenter le code avec le code fourni par les autres membres en fonction du contenu de la colonne B, ici ton code ne fonctionnera que si la case contient "D" mais ne fonctionnera pas si tu as "Dodo" ou "D " par exemple.
Attention au signe dans le 1er If, j'ai remplacé le "=" par "<>".
A++
Qwaz