Suppression ligne vides sous excel
filing45
Messages postés
35
Date d'inscription
Statut
Membre
-
brizmad -
brizmad -
bonjour,
dans un fichier excel, j'ai des lignes vides et d'autres avec des caractères. peut-on intégrer du code dans une macro pour supprimer les lignes vides ?
merci pour votre aide.
dans un fichier excel, j'ai des lignes vides et d'autres avec des caractères. peut-on intégrer du code dans une macro pour supprimer les lignes vides ?
merci pour votre aide.
Configuration: Windows 2000 Internet Explorer 6.0
A voir également:
- Macro supprimer ligne vide
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word vide - Guide
- Comment supprimer une ligne dans un tableau word - Guide
- Partager photos en ligne - Guide
- Supprimer liste déroulante excel - Guide
6 réponses
Bonjour,
J'ai utilisé ce code pour supprimer les lignes vides sur excel :
Sub Supprimer_les_lignes_vides()
Range("a1:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Ce code fonctionne parfaitement mais quand j'effectue un copier coller d'un tableau pour le mettre sur une autre feuille et que je veux utiliser le code pour supprimer les lignes vides, le macro ne fonctionne pas. On dirait que le macro ne détecte pas les valeurs copier/coller.
Merci pour votre aide.
J'ai utilisé ce code pour supprimer les lignes vides sur excel :
Sub Supprimer_les_lignes_vides()
Range("a1:a65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Ce code fonctionne parfaitement mais quand j'effectue un copier coller d'un tableau pour le mettre sur une autre feuille et que je veux utiliser le code pour supprimer les lignes vides, le macro ne fonctionne pas. On dirait que le macro ne détecte pas les valeurs copier/coller.
Merci pour votre aide.
Ou si la ligne doit être completement vide:
Sub supp_lignes()
'
'Dim myCtrl, dernLigne, I
'détermine le numéro de la dernière ligne utilisée
dernLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Count - 1
'désactive la mise à jour de l'écran afin d'accélérer les traitements
Application.ScreenUpdating = False
'Pour toutes les lignes en partant de la dernière
For I = dernLigne To 1 Step -1
'La fonction Excel CountA correspond à =NBVAL
If Application.WorksheetFunction.CountA(Rows(I)) = 0 Then
Rows(I).Delete Shift:=xlUp
End If
Next I
End Sub
Sub supp_lignes()
'
'Dim myCtrl, dernLigne, I
'détermine le numéro de la dernière ligne utilisée
dernLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Count - 1
'désactive la mise à jour de l'écran afin d'accélérer les traitements
Application.ScreenUpdating = False
'Pour toutes les lignes en partant de la dernière
For I = dernLigne To 1 Step -1
'La fonction Excel CountA correspond à =NBVAL
If Application.WorksheetFunction.CountA(Rows(I)) = 0 Then
Rows(I).Delete Shift:=xlUp
End If
Next I
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
