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. 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
    1. cindy001 Auteur
      Merci encore d'essayer mais
      toujours meme erreur avec un IsEmpty ca serait ptetre plus simple?
      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. 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

        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