Macro Delete

Résolu
cindy001 Messages postés 108 Statut Membre -  
cindy001 Messages postés 108 Statut Membre -
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 Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  2. cindy001 Messages postés 108 Statut Membre 2
     
    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
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      essaies peut être + simplement

      Sub Supprimer_si_vide()

      Range("C1:C10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
      End Sub
      0
  3. cindy001 Messages postés 108 Statut Membre 2
     
    Merci encore d'essayer mais
    toujours meme erreur avec un IsEmpty ca serait ptetre plus simple?
    0
  4. cindy001 Messages postés 108 Statut Membre 2
     
    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

Discussions similaires

Suppression de boot option
Atlante21 -
Flam -

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

6 réponses
mémoire saturé sur Samsung
cado86 -
cado86 -

4 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses