Suppression ligne excel
Patlechat
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
j'ai un doc en excel qui contient une colonne avec plusieurs lignes dont des lignes vides.
je voudrais supprimer uniquement les lignes vides comment fait on cela en VBA.
Merci pour votre aide
A+
j'ai un doc en excel qui contient une colonne avec plusieurs lignes dont des lignes vides.
je voudrais supprimer uniquement les lignes vides comment fait on cela en VBA.
Merci pour votre aide
A+
A voir également:
- Suppression ligne excel
- Forcer suppression fichier - Guide
- Liste déroulante excel - Guide
- Partager photos en ligne - Guide
- Formule somme excel ligne - Guide
- Word et excel gratuit - Guide
2 réponses
mille excuse mais j'ai trouvé voila le prog trouvé dans le forum ici:
Sub SupprLignesVides()
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
' désactiver les alertes pour empêcher l'affichage
' des messages du genre "Voulez-vous etc."
Application.DisplayAlerts = False
' se placer sur la dernière ligne contenant des données
Range("A65536").End(xlUp).Select
Do
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.Row = 1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
A+
Sub SupprLignesVides()
' désactiver le rafraîchissement de l'écran pour accélérer le traitement
Application.ScreenUpdating = False
' désactiver les alertes pour empêcher l'affichage
' des messages du genre "Voulez-vous etc."
Application.DisplayAlerts = False
' se placer sur la dernière ligne contenant des données
Range("A65536").End(xlUp).Select
Do
If IsEmpty(ActiveCell) Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.Row = 1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
A+
