ligne zero as upprimer

  • Initiateur de la discussion Initiateur de la discussion etudiant72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

etudiant72

Guest
bonsoir a tous je vous demande de l'aide car je n'arrives pas a eliminer les qui se trouve avec des zero merci de votre aide [file name=ligne_20060519230722.zip size=1928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ligne_20060519230722.zip[/file]
 

Pièces jointes

Bonsoir

Sub Macro1()
Dim rng As Range, i As Integer

'Définit la plage à évaluer.
Set rng = Range('B4:B16')

'Effectue une boucle arrière sur les lignes
'de la plage à évaluer.
For i = rng.Rows.Count To 1 Step -1

'Si la cellule i de la plage contient un ' 0 ', supprime la ligne entière.
If rng.Cells(i).Value = 0 Then rng.Cells(i).EntireRow.Delete
Next
End Sub

A+

Temjeh


Message édité par: temjeh, à: 20/05/2006 01:48
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 fonction
Réponses
2
Affichages
107
Réponses
6
Affichages
712
  • Question Question
Réponses
8
Affichages
526
Retour