Suppression cellule vide

Bonjour à tous,

j'ai un petit problème et aujourd'hui je ne vois pas comment m'en sortir !

J'obtiens une colonne avec des cellules alphanumériques remplies aléatoirement et je voudrai les rassembler automatiquement dans une autre colonne sans cellule vide.

Voir P.J.

Si quelqu'un pouvait m'aider ? . . .

Minitech52

Bonjour, une petite macro à faire évoluer selon les besoins

Sub test()
With Feuil1
.[b:b].Copy .[f:f]
.[f:f].Cells.SpecialCells(xlCellTypeBlanks).Delete
End With
End Sub

Bonjour à tous

Une application de la macro de Force Rouge :

Bye !

Impec ! merci à tous.

Minitech52

J'ai répondu trop vite !

la solution à GMB fonctionne mais pas dans mon cas ! Car la colonne à trier ne contient que des formules.

Voir P.J.

Bonjour,

en formule :

Bonjour à tous

minitech52 a écrit :

la solution à GMB fonctionne mais pas dans mon cas ! Car la colonne à trier ne contient que des formules.

Ca, ce n'était pas précisé...

Nouvelle version à tester :

Bye !

Ok,, ça marche impeccable !

Comme je suis un peu fâché avec les macros, j'ai retenu la solution à DjiDji59430.

Merci aussi GMB, la 2°proposition fonctionnait très bien aussi.

merci et à très bientôt sur le forum.

Minitech52