Discussion :

[Franc]

Bonjour,

J'aimerais pouvoir sélectionner une plage de cellules et en supprimer toutes celles qui sont vides. J'ai testé le code ci-dessous mais j'ai l'erreur 'Run time error 424' Object required. Quelqu'un sait comment faire ? Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range([Selection.Cells(1).Address:Selection.Cells(Selection.Cells.Count).Address].Find("*", , , , , xlPrevious)).SpecialCells(xlCellTypeBlanks).Delete

[AlainTech]

Essaye déjà de remplacer le double point par une virgule et enlève les [] et les .address inutiles...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Selection.Cells(1),Selection.Cells(Selection.Cells.Count).Find("*", , , , , xlPrevious)).SpecialCells(xlCellTypeBlanks).Delete

Pour le reste, je n'ai pas testé.

[Franc]

Ca fonctionne nickel! Merci.