Bonjour a tous
J'ai réussi a mettre de coté tous un ensemble de problème après de nombreux essais.
Par contre, je n'arrive pas a mettre en place une suppression sous condition multiple sans avoir recour a de nombreuses boucles
Il y a en réalté plus d'une centaine de conditions.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sheets(i).Select Dim derl As Long derl = Cells(65536, 5).End(xlUp).Row For f = 1 To derl If Cells(f, 8).Value = "." Or Cells(f, 9).Value = "0" Or Cells(f, 10).Value = "0" Then Rows(f).Select Selection.Delete Shift:=xlUp End If Next f End Sub
Merci
Partager