Macro pour décaler des cellules vers la gauche

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour l'écriture d'une macro afin de décaler des cellules vides vers la gauche...

Fichier joint

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Cousinhub]

Re : Macro pour décaler des cellules vers la gauche

Bonjour, j'ai regardé ton fichier, il doit provenir d'une extraction d'un programme quelconque, non?
Il y a des zéros, au format date, des cellules qui semblent vides mais qui ne le sont pas (je ne sais pas du tout ce que c'est...😱)
Pour pouvoir le traiter correctement, le code sera un peu long.
voici le code

Sub zero()
Application.ScreenUpdating = False
Cells.Select
Selection.NumberFormat = "General"
For Each cel In [A5].CurrentRegion
cel.Value = cel.Value
If cel.Value = "0" Then cel.Value = ""
Next cel
For Each cel In Range("$B$5:$B" & [a65000].End(xlUp).Row)
If cel.Value = "" And cel.Offset(0, -1).Value <> "" Then
Range(Cells(cel.Row, 2), Cells(cel.Row, cel.End(xlToRight).Column - 1)).Delete Shift:=xlToLeft
End If
Next cel
Range("B:B,M:R").NumberFormat = "m/d/yyyy"
[a1].Select
End Sub

 

[Christian0258]

Re : Macro pour décaler des cellules vers la gauche

Re,

Bonjour bhbh et merci pour ton travail,

Ta macro fonctionne pas mal, mais j'ai l'impression quelle "tourne en rond" je fais "échap" "déboguer" c'est sur (Next cel) je fais OK je relance la macro et ça marche...

Peux-tu m'éclairer

à+
Christian

 

[Cousinhub]

Re : Macro pour décaler des cellules vers la gauche

A quel niveau de Next cel?

If cel.Value = "0" Then cel.Value = ""
Next cel
ou
End If
Next cel

 

[Christian0258]

Re : Macro pour décaler des cellules vers la gauche

Re , bonjour à tous , bhbh,

If cel.Value = "0" Then cel.Value = ""
Next cel ici

En fait si je lance la macro, elle marche mais ça dure 2mns...
Merci pour ton aide
à+
Christian