Macro suppression d'espace et format numérique sur cellules sélectionnées

[dakodak34]

Bonjour,

Je sèche .
J'utilise Excel 2003 et 2007 (au bureau).

Dans le fichier joint je souhaiterais :

1- conserver le format général de la feuille (colonnes, cellules fusionnées...) car j'importerais d'autres lignes par la suite venant de fichiers excel ayant le même format
2- sélectionner la zone bleue et appliquer une macro qui supprimerait les espaces entre les chiffres et donnerait un format numérique aux cellules.

Eventuellement si cette macro pouvait aussi traiter la première colonne en format date ce serait génial.

Bizarrement la fonction "substitue" ne marche pas, ni "suprespace"?

Merci de vos lumières VBA.

Dakodak34

 

[DoubleZero]

Re : Macro suppression d'espace et format numérique sur cellules sélectionnées

Bonjour à toutes et à tous,

Bienvenue sur XLD, dakodak34 .

Pour la partie turquoise, le travail de PMO2 devrait résoudre le problème.

Bon courage et à bientôt.

 

[flyonets44]

Re : Macro suppression d'espace et format numérique sur cellules sélectionnées

Bonjour
Voir la feuille bis dans ton fichier, macro en_numérique
Cordialement
Flyonets

 

[Modeste]

Re : Macro suppression d'espace et format numérique sur cellules sélectionnées

Bonjour dakodak34, salut 00 ,

Supprespace ne saurait fonctionner puisque cette fonction supprime les espaces sauf les espaces simples entre les mots.
La difficulté ici est que les caractères qui ressemblent à des espaces n'en sont pas! Subtitue fonctionnerait en remplaçant ton espace entre guillemets par CAR(160).
En conséquence, modifie ta procédure Suppression_Espaces_Blancs comme suit:

Sub Supression_Espaces_Blancs()
    For Each Cell In Selection
        Cell.Value = Replace$(Cell, Chr(160), "")
    Next Cell
End Sub

et applique-la à la plage de cellules au choix.
Dis-nous déjà si ça fonctionne!?

Edit: Bonjour flyonets44

 

[dakodak34]

Re : Macro suppression d'espace et format numérique sur cellules sélectionnées

Bonjour tout le monde,

La macro en_numerique de flyonets44 fonctionne très bien.
Je vais la tester sur 2007 avant de clore le sujet.

Merci à tous

Dakodak34

 

[dakodak34]

Re : Macro suppression d'espace et format numérique sur cellules sélectionnées

Bonjour,

Cela fonctionne parfaitement en 2007 également.

Merci