Supprimer ligne

Résolu

pascal3110 Messages postés 139 Statut Membre -
pascal3110 Messages postés 139 Statut Membre - 26 oct. 2015 à 18:17

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

Afficher la suite

3 réponses

diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872

Bonjour

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 :)

Réponse 2 / 3
Gyrus Messages postés 3360 Statut Membre 526
Bonjour,

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+
0
1. diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872
  
  Hmmm J'ai pas encore l'habitude d'optimiser le code a ce point grrrr :)
  
  0
  1. Gyrus Messages postés 3360 Statut Membre 526 > diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention
    
    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é
    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+
    
    0
  2. diablo13800 Messages postés 3469 Date d'inscription Statut Membre Dernière intervention 1 872 > Gyrus Messages postés 3360 Statut Membre
    
    Ce qui est bien c'est qu'on ne sait toujours pas si la personne qu'on essai d'aider est satisfaite:)
    
    0
Réponse 3 / 3
pascal3110 Messages postés 139 Statut Membre

Bonjour
la personne est surprise de la rapidité de réponse....
c'est impressionnant
je n'ai qu'à dire un grand bravo et un encore plus grand merci cela fonctionne du feu de dieu

merci merci merci
0

Supprimer ligne

3 réponses

Discussions similaires

Newsletters