Eliminer des cellules vides

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Novembre 2012

• #2

Re : Eliminer des cellules vides

Bonjour ufernet,

ton fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xlsm

  20.1 KB · Affichages: 41
• 111.xlsm

  20.1 KB · Affichages: 43
• 111.xlsm

  20.1 KB · Affichages: 45

Vote positif 0 Vote négatif

U

ufernet

XLDnaute Junior

• 7 Novembre 2012

• #3

Re : Eliminer des cellules vides

Bonjour Philippe,

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

A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Novembre 2012

• #4

Re : Eliminer des cellules vides

Re,

ufernet à dit:

Bonjour Philippe,

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

A+

Cliquez pour agrandir...

.......... 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

Code:

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

 

Dernière édition: 7 Novembre 2012

Vote positif 0 Vote négatif

U

ufernet

XLDnaute Junior

• 8 Novembre 2012

• #5

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

 

Vote positif 0 Vote négatif

U

ufernet

XLDnaute Junior

• 10 Novembre 2012

• #6

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

 

Pièces jointes

• ESSAI SIVOS.xlsm

  797 KB · Affichages: 50

Vote positif 0 Vote négatif