suppression ligne vides sous excel Fermé

Question

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.

hamza · Accepted Answer

salut, voila une petite astuce simple que j'utilise http://comment-astuce.blogspot.com/...

mdonnate · Answer

Tu peux peut être t'inspirer de excel macro eliminer des lignes vides

mdonnate · Answer

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

filing45 · Answer

merci, mais j'ai créé une macro avec le code tel quel et celà ne fait rien. y-a-t-il qqchose à paramèter ?

luisphillipe · Answer

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.

brizmad · Answer

merci ça marche tres bien

Suppression ligne vides sous excel

6 réponses

Discussions similaires