XL 2019 boucle Enlever blanc decaler cellules

[Hoareau]

Bonjour

Avec la macro ci-dessous, j'essaie d'enlever les blancs en allant vers la gauche (cellules non remplies)

Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

fonctionnait avec des colonnes

Pour simplifier cette syntaxe en allant de la droite vers la gauche en enlevant les blancs

ci-joint fichier

merci

Sub test()
Set test = Range("A1:f10")

For Each c In test

Range(c.Offset(0, 0), c.Offset(0, 42)).Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp


Next




End Sub

 

[Dranreb]

Bonjour.
Pourquoi laissez vous Shift:=xlUp au lieu de xlShiftToLeft ?

 

[Jacky67]

Bonjour,
Essayer comme ceci

Sub test1()
Range("B2:AL15").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Ou

Sub test1()
Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

 

[Hoareau]

Bonjour

Ma première recherche ne m'avait pas permis de trouver, pourquuoi ?
Je croyais que cela n'existait pas
m'étant aperçu que cela existait, entre temps j'ai trouvé cette solution, mais certaines lignes sautent

peut être à cause du libéllé du contenu

Range(c.Offset(0, 0), c.Offset(0, -39)).Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

sinon cela fonctionne

En partant directement de la gauche cela ne fonctionne pas

merci

 

[Dranreb]

Vous voulez dire que simplement :
C.Resize(, 40).SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
ne fonctionne pas ?

 

[Hoareau]

Rien de tel
Selection.Resize(, 40).SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
fonctionne mais je ne comprend pas pourquoi
Quand j'ai essayé xlShiftToLeft en partant de la droite avec offset, cela semblait ne pas fonctionner
d'ou colonne en negatif