Supprimer ligne
Résolu
pascal3110
Messages postés
136
Date d'inscription
Statut
Membre
Dernière intervention
-
pascal3110 Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
pascal3110 Messages postés 136 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un tableau avec une colonne total
je souhaiterai avec du vba et un bouton supprimer les lignes ou cette colonne est a zéro
quel est le bon code pour ça en sachant que la colonne est la "B"
et que les lignes vont de "8" à "43"
merci d'avance pour l'aide
j'ai un tableau avec une colonne total
je souhaiterai avec du vba et un bouton supprimer les lignes ou cette colonne est a zéro
quel est le bon code pour ça en sachant que la colonne est la "B"
et que les lignes vont de "8" à "43"
merci d'avance pour l'aide
A voir également:
- Supprimer ligne
- Supprimer rond bleu whatsapp - Guide
- Partager photos en ligne - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Mètre en ligne - Guide
3 réponses
Bonjour
Peut-tu essayer avec cette Macro?
Bien sur a adapter suivant ton tableau :)
Peut-tu essayer avec cette Macro?
Sub Macro1()
For i = 43 To 8 Step -1
If ((ThisWorkbook.ActiveSheet.Range("B" & i).Value) = 0) Then
ThisWorkbook.ActiveSheet.Range("B" & i).EntireRow.Delete
End If
Next
End Sub
Bien sur a adapter suivant ton tableau :)
Bonjour,
Tu peux utiliser une simple boucle
A+
Tu peux utiliser une simple boucle
Sub SupprimerLignes()
Dim Ligne As Integer
For Ligne = 43 To 8 Step -1
If Range("B" & Ligne).Value = 0 Then Rows(Ligne).Delete
Next Ligne
End Sub
A+
Pourtant, sur le fond ton code est préférable au mien car il désigne explicitement les objets classeur et feuille.
Mon code adapté
A+
Mon code adapté
Sub SupprimerLignes()
Dim Ligne As Integer
With ThisWorkbook.Worksheets("Feuil1")
For Ligne = 43 To 8 Step -1
If .Range("B" & Ligne).Value = 0 Then .Rows(Ligne).Delete
Next Ligne
End With
End Sub
A+