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