Re-bonjour,
Tu avais été assez clair, mais je n’avais pas poussé mes tests assez loin.
Voici un nouveau code qui devrait répondre à ton attente.
Comme je ne sais pas si c’est important pour toi d’avoir le même ordre en ce qui concerne tes clients dans le résultat que dans les données de base, j’ai dû ajouter plusieurs passages afin que justement ce soit le même ordre. Si ça t’intéresse, je peux supprimer ces passages.
Lepeno a écrit :
Si je comprends bien, la condition de ton code est un OU (produit B* ou N*),
Non, pas vraiment. C'était un AND seul alors qu'il fallait un OR suivit de ce même AND. Dans la première ligne ci-dessous (malheureusement écrite sur le Forum avec un retour à la ligne), on ne fait que comparer certaines données afin - dans la deuxième ligne - de supprimer ou non la ligne contrôlée (donc la ligne correspondant à la variable i).
If Range("I" & i) <> Range("I" & i - 1) Or Range("I" & i) = Range("I" & i - 1) And Left(Range("J" & i), 1) = Left(Range("J" & i - 1), 1) Then
Range("I" & i & ":M" & i).Delete Shift:=xlUp
Amicalement.