Macro Delete

Résolu
cindy001 -  
Bonjour,

J'ai 6 colonnes de données, colonne A jusqu'à colonne F, j'aurai besoin d'une petite macro qui me supprime toute la ligne si en colonne C la cellule est vide.

Merci d'avance pour votre aide

4 réponses

  1. michel_m Contributeur
    Bonjour 
    Sub Supprimer_si_vide() 
    Dim Ligne As Long 
    'on pourrait écrire activesheet au lieu de "Me" 
    Ligne = Me.UsedRange.Rows.Count 
    Me.Range("C1:C" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub

    Michel
    1. cindy001 Auteur
      Merci pour ton aide

      J'ai le message d'erreur suivant : Utilisation incorrecte du mot clé Me

      Meme quand je remplace Me par ActiveSheet j'ai toujours le message d'erreur sur cette ligne:

      ActiveSheet.Range("C20:C" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      1. michel_m Contributeur
        essaies peut être + simplement

        Sub Supprimer_si_vide()

        Range("C1:C10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End Sub
    2. cindy001 Auteur
      Merci encore d'essayer mais
      toujours meme erreur avec un IsEmpty ca serait ptetre plus simple?
      1. cindy001 Auteur
        C bon j'ai trouvé ca ca marche

        For i = 1219 To 1 Step -1

        If Cells(i, 3) = "" Then Rows(i).Delete

        Next

        Discussions similaires

        Suppression de boot option
        Atlante21

        4 réponses
        mémoire saturé sur Samsung
        cado86

        4 réponses
        Transformer un chiffre en lettres dans excel sans macro
        vincentphilippos

        6 réponses