lemarcheurfou
XLDnaute Nouveau
Bonjour à tous,
J'ai fait une boucle While mais je n'arrive pas à sortir de la boucle quant il m'a supprimé toute les bonnes lignes quelqu'un peut-il m'aidait ?
Voilà mon code :
Merci d'avance.
J'ai fait une boucle While mais je n'arrive pas à sortir de la boucle quant il m'a supprimé toute les bonnes lignes quelqu'un peut-il m'aidait ?
Voilà mon code :
Code:
i = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row
For A = 6 To i
While Sheets(ExiDCNS).Cells(A, 22).Value <> "En" And Sheets(ExiDCNS).Cells(A, 22).Value <> "Eng"
Sheets(ExiDCNS).Rows(A).Delete
If A > 6 Then GoTo Fin
Wend
Next A
Fin:
Merci d'avance.