Discussion :

[collinchris]

Bonjour à tous,

J'ai quelques soucis avec une procédure.
J'ai un tableau de dimension variable tant dans le nombre de colonnes que dans le nombre de lignes (ne pouvant pas excéder la colonne Q et la ligne 83, néanmoins).

Je voudrais écrire une macro qui supprimerait les lignes si la somme est égale à 0.
Exemple si somme(B2:#2)=0, supprimer la ligne 2

Est-ce que quelqu'un aurait une idée pour écrire cette chose?
Merci beaucoup par avance,

Chris

[mercatog]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
Dim LastLig As Integer, LastCol As Integer, i As Integer  'LastLig As Long, mais comme tu es sur de tes données Integer ou Byte
LastLig = Cells(Rows.Count, 2).End(xlUp).Row
LastCol = Range("A1").End(xlToRight).Column
For i = LastLig To 2 Step -1
If Application.WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, LastCol))) = 0 Then Rows(i).Delete
Next i
End Sub

[collinchris]

Ca fonctionne impec! Merci beaucoup de votre aide