Macro pour supprimer un espace insécable
Résolu/Fermé
Gaston Lagaffe 94
Messages postés
6
Date d'inscription
lundi 4 juin 2012
Statut
Membre
Dernière intervention
14 juin 2012
-
11 juin 2012 à 20:50
Gaston Lagaffe 94 Messages postés 6 Date d'inscription lundi 4 juin 2012 Statut Membre Dernière intervention 14 juin 2012 - 14 juin 2012 à 06:29
Gaston Lagaffe 94 Messages postés 6 Date d'inscription lundi 4 juin 2012 Statut Membre Dernière intervention 14 juin 2012 - 14 juin 2012 à 06:29
A voir également:
- Espace insécable excel
- Espace insécable word - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Comment liberer de l'espace sur gmail - Guide
- Si et excel - Guide
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
11 juin 2012 à 23:46
11 juin 2012 à 23:46
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
12 juin 2012 à 19:40
12 juin 2012 à 23:09
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").Cells14 juin 2012 à 06:29
Ç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