Macro Delete Résolu

Question

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



Configuration: Windows XP / Internet Explorer 7.0

michel_m · Answer

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

cindy001 · Answer

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

cindy001 · Answer

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

cindy001 · Answer

C bon j'ai trouvé ca ca marche

For i = 1219 To 1 Step -1

If Cells(i, 3) = "" Then Rows(i).Delete

Next

Macro Delete

4 réponses

Votre réponse

Discussions similaires

Newsletters