Macro Delete

Résolu/Fermé

cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 - Modifié par cindy001 le 10/01/2011 à 14:01
cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 - 10 janv. 2011 à 15:02

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

A voir également:

Macro Delete
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Just delete me - Guide
Hiberfil.sys delete - Guide
Macro word - Guide
Jitbit macro recorder - Télécharger - Confidentialité

4 réponses

Réponse 1 / 4

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié par michel_m le 10/01/2011 à 14:03

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

Réponse 2 / 4

cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 2
10 janv. 2011 à 14:25

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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
10 janv. 2011 à 14:29

essaies peut être + simplement

Sub Supprimer_si_vide()

Range("C1:C10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Réponse 3 / 4

cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 2
10 janv. 2011 à 14:37

Merci encore d'essayer mais
toujours meme erreur avec un IsEmpty ca serait ptetre plus simple?

Réponse 4 / 4

cindy001 Messages postés 102 Date d'inscription lundi 20 décembre 2010 Statut Membre Dernière intervention 17 août 2011 2
10 janv. 2011 à 15:02

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

mémoire saturé sur Samsung

faire une boucle sans VBA

Transformer un chiffre en lettres dans excel sans macro

recup couleur de cellule sans macro