Macro pour supprimer un espace insécable
Résolu
Gaston Lagaffe 94
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Gaston Lagaffe 94 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Gaston Lagaffe 94 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai besoin d'un petit coup de main pour supprimer un espace insécable situé à la fin d'une date dans chaque cellule de la même colonne.
J'ai bien réussi à le supprimer avec la fonction =CNUM(SUPPRESPACE(B2)), mais cela m'oblige à recréer une colonne dans une autre feuille.
J'essaye de créer une macro pour supprimer cet espace directement dans la colonne concernée, mais malgré divers essais je n'arrive pas à un résultat satisfaisant.
Quelqu'un a-t-il une idée pour me sortir de la panade ?
En vous remerciant par avance.
Je joint un petit extrait de mon fichier original contenant les fameux espaces insécables (en colonne B).
https://www.cjoint.com/?BFluOkekMky
J'ai besoin d'un petit coup de main pour supprimer un espace insécable situé à la fin d'une date dans chaque cellule de la même colonne.
J'ai bien réussi à le supprimer avec la fonction =CNUM(SUPPRESPACE(B2)), mais cela m'oblige à recréer une colonne dans une autre feuille.
J'essaye de créer une macro pour supprimer cet espace directement dans la colonne concernée, mais malgré divers essais je n'arrive pas à un résultat satisfaisant.
Quelqu'un a-t-il une idée pour me sortir de la panade ?
En vous remerciant par avance.
Je joint un petit extrait de mon fichier original contenant les fameux espaces insécables (en colonne B).
https://www.cjoint.com/?BFluOkekMky
A voir également:
- Supprimer espace insécable excel
- Espace insécable - Guide
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Espace de stockage gmail plein - Guide
- Supprimer page word - Guide
2 réponses
bonjour,
En fait tu n'as pas d'espace insécable dans tes données, c'est assez bizarre, car ta date parait correcte mais n'est pas traitée comme date malgré le format.
Cette macro devrait te réparer cette colonne B :
En fait tu n'as pas d'espace insécable dans tes données, c'est assez bizarre, car ta date parait correcte mais n'est pas traitée comme date malgré le format.
Cette macro devrait te réparer cette colonne B :
Public Sub vers_date()
Dim elm As Range
For Each elm In UsedRange.Columns("B").Cells
If IsDate(elm.Value) Then elm.Value = CDate(elm.Value)
Next elm
End Sub
Si tu as mis la macro dans un module il faut préciser la feuille concernée, par exemple :
For Each elm In Activesheet.UsedRange.Columns("B").CellsÇa y est ça fonctionne impeccable. J'ai eu beaucoup de mal à l'adapter à ma macro principale, mais, enfin, ça marche. Un grand merci à toi.
Cdt