Macro ou fonction pour enlever les espaces libre.

Le
Guylaine
Bonjour vous

Une autre question:
Voici un exemple de mon tableau.

A B C
2800 2801 2802
1
2 517302795
3 517302795
4 517303068
5 511000242 511000242 511000242


J'aimerais enlever tout les espaces libre. Pour avoir un
rapport comme celui-ci.

A B C
2800 2801 2802
1 517302795 517302795 517303068
2 511000242 511000242 511000242
3
4
5


Merci l'avance.















Vos réponses
Trier par : date / pertinence
Philippe.R
Le #181377
Bonsoir Guylaine,
Tu devrais essayer avec un filtre automatique, en affichant successivement les non vides de la 1ère
colonne puis de la deuxième..... et en copiant à chaque fois vers un autre emplacement.
Tu peux ensuite automatiser en t'aidant de l'enregistreur de macros.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Guylaine" news:679501c377cb$972533d0$
Bonjour à vous

Une autre question:
Voici un exemple de mon tableau.

A B C
2800 2801 2802
1
2 517302795
3 517302795
4 517303068
5 511000242 511000242 511000242


J'aimerais enlever tout les espaces libre. Pour avoir un
rapport comme celui-ci.

A B C
2800 2801 2802
1 517302795 517302795 517303068
2 511000242 511000242 511000242
3
4
5


Merci à l'avance.
michdenis
Le #181293
Bonsoir Guylaine,

A ) Copie la procédure qui suit dans un module Standard.

B ) Sélectionne seulement la plage de cellules où tu voudrais voir disparaître des cellules vides !

C ) Exécute la macro.

'-------------------------
Sub EnleverEspace()

Selection.SpecialCells(xlCellTypeBlanks).Delete (xlUp)

End Sub
'-------------------------


Salutations!



"Guylaine" Bonjour à vous

Une autre question:
Voici un exemple de mon tableau.

A B C
2800 2801 2802
1
2 517302795
3 517302795
4 517303068
5 511000242 511000242 511000242


J'aimerais enlever tout les espaces libre. Pour avoir un
rapport comme celui-ci.

A B C
2800 2801 2802
1 517302795 517302795 517303068
2 511000242 511000242 511000242
3
4
5


Merci à l'avance.
Guylaine
Le #182997
Merci beaucoup, s'est très rapide.

Bonne soirée !

-----Message d'origine-----
Bonsoir Guylaine,

A ) Copie la procédure qui suit dans un module Standard.

B ) Sélectionne seulement la plage de cellules où tu
voudrais voir disparaître des cellules vides !


C ) Exécute la macro.

'-------------------------
Sub EnleverEspace()

Selection.SpecialCells(xlCellTypeBlanks).Delete (xlUp)

End Sub
'-------------------------


Salutations!



"Guylaine" de news:679501c377cb$972533d0$

Bonjour à vous

Une autre question:
Voici un exemple de mon tableau.

A B C
2800 2801 2802
1
2 517302795
3 517302795
4 517303068
5 511000242 511000242 511000242


J'aimerais enlever tout les espaces libre. Pour avoir un
rapport comme celui-ci.

A B C
2800 2801 2802
1 517302795 517302795 517303068
2 511000242 511000242 511000242
3
4
5


Merci à l'avance.



















.



Publicité
Poster une réponse
Anonyme