Aurélie13008
XLDnaute Nouveau
Bonjour,
J'explique ma problématique : je dois vérifier pour chaque ligne si toutes les colonnes sont à 0 (dans mon fichier joint colonne de I à Q). Si elles sont bien à 0 je veux supprimer les lignes. Je voudrais pouvoir faire cela en automatique dès que ma requête sort.
Je souhaiterais savoir comment adapter un code VBA que j'ai vu sur votre forum pour vérifier et l'adapter à ma situation. c'est-à-dire qu'au lieu que le déclencheur soit 1 seule cellule à 0, je veux que ce soit les cellules de I à Q. J'espère que c'est assez claire, histoire de pas faire perdre du temps...
Merci bcp
Ci-dessous le code trouver sur votre forum
Option Explicit
Sub Elimine_0()
Dim Lig%
Application.ScreenUpdating = 0
For Lig = [C65536].End(xlUp).Row To 1 Step -1
If Range("C" & Lig).Value = 0 Then Rows(Lig).Delete
Next
End Sub
J'explique ma problématique : je dois vérifier pour chaque ligne si toutes les colonnes sont à 0 (dans mon fichier joint colonne de I à Q). Si elles sont bien à 0 je veux supprimer les lignes. Je voudrais pouvoir faire cela en automatique dès que ma requête sort.
Je souhaiterais savoir comment adapter un code VBA que j'ai vu sur votre forum pour vérifier et l'adapter à ma situation. c'est-à-dire qu'au lieu que le déclencheur soit 1 seule cellule à 0, je veux que ce soit les cellules de I à Q. J'espère que c'est assez claire, histoire de pas faire perdre du temps...
Merci bcp
Ci-dessous le code trouver sur votre forum
Option Explicit
Sub Elimine_0()
Dim Lig%
Application.ScreenUpdating = 0
For Lig = [C65536].End(xlUp).Row To 1 Step -1
If Range("C" & Lig).Value = 0 Then Rows(Lig).Delete
Next
End Sub