Rapport de message :*
 

Re: Macro pour suppression de lignes

Titre du sujet : Re: Macro pour suppression de lignes
par Guy le 20/02/2011 20:09:35

Bonjour Sylvain,

Quelque chose comme
Sub SupprimerB1B10()

  Dim Plage As Range
  Dim Cellule As Range
 
  ' Feuil1 est et doit être le nom de code de la feuille visée
  ' Si ce n'est pas le cas modifier en conséquence.
    Set Plage = Feuil1.Range("B1:B10")
   
    For Each Cellule In Plage.Cells
     
      If Cellule = 0 Then
     
        Cellule.EntireRow.Delete
       
      End If
     
    Next
 
End Sub
 
devrait faire l'affaire je crois.

Cordialement,

Guy

P.S. On peut aussi supprimer la ligne lorsqu'un zéro est saisi en colonne B sans qu'il soit nécessaire de parcourir B1:B10.