Discussion :

[roidurif]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ca n'a pas l'air de fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir
dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[roidurif]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour roidurif, le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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