Eliminer des cellules vides

[ufernet]

Bonjour,

Pour faire un publipostage permettant l'impression d'étiquettes j'ai un tableau excel plein de cellule vide. J'ai besoin que les données soient à cté les unes des autres. Je n'y arrive pas. Si la fonction trier existait pour les lignes mon problème serait en partie résolu. l'idéal serait de pouvoir récupérer le tableau sans cellule vide dans un autre onglet. J'ai mis un exemple en pièce jointe avec sur un onglet le résultat attendu avec une macro sans doute?
D'avance merci car le tableau fait environ 1000 lignes et à travailler chaque semaine!

 

[phlaurent55]

Re : Eliminer des cellules vides

Bonjour ufernet,

ton fichier en retour

à+
Philippe

 

[ufernet]

Re : Eliminer des cellules vides

Bonjour Philippe,

Merci de ta solution elle marche super bien et super vite.

A+

 

[phlaurent55]

Re : Eliminer des cellules vides

Re,

Bonjour Philippe,

Merci de ta solution elle marche super bien et super vite.

A+

.......... et pourtant je ne suis pas satifait de la vitesse d'exécution
je suis certain qu'il est possible d'aller beaucoup plus vite mais je ne trouve pas la solution

à+
Philippe

Edit: ce code est un peu plus rapide

Sub Macro1()
    Range("A1:U" & Range("A65535").End(xlUp).Row).Copy
    Sheets("Tableau aprés").Select
    Range("A1").Select
    ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = False
Dim cellule As Range
For i = 5 To 21
For Each cellule In Range("F2:U" & Range("A65535").End(xlUp).Row)
If cellule = "" Then
cellule = Cells(cellule.Row, cellule.Column + 1)
Cells(cellule.Row, cellule.Column + 1) = ""
End If
Next cellule
Next i
Application.ScreenUpdating = True
[A1].Select
MsgBox ("Opération terminée")
End Sub

 

[ufernet]

Re : Eliminer des cellules vides

Effectivement cela va un peu plus vite mais ce n'était pas un problème pour moi, je dois avoir un bon processeur...

Encore merci

 

[ufernet]

Re : Eliminer des cellules vides

Bonjour,

La macro que j'ai tenté de faire à partir des éléments de Philippe...ne marche plus. J'ai mis le fichier en exemple. La macro "
ElimineLesCelluleVides" transfert les données de la feuille Total données vers la feuille Tableau Aprés mais elle plante. Je ne vois pas pourquoi car elle marche sur un petit tableau.

Si vous pouvez m'aider...cela m'arrangerait

Merci