VBA : transformation en date

Fermé
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 14 mai 2012 à 10:36
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013 - 14 mai 2012 à 15:17
Bonjour,

J'essaye de transformer les . en / de la colonne B, ça commence à B3 et la dernière ligne est variable (entre 28000 et 30000). Mon code plante comme je ne suis pas experte je ne sais pas quel est le PB.

Sub Macro1()
    Range("B:B").Select
    Selection.TextToColumns Destination:=Range("B3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True
             
End Sub



Merci d'avance

1 réponse

ccm81 Messages postés 10899 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 25 octobre 2024 2 422
14 mai 2012 à 14:34
bonjour

1. sans macro un simple Remplacer dans la feuille devrait suffire
2. si tu tiens à une macro
Public Sub RemPpS()
    Range("B:B").Replace What:=".", Replacement:="/"
End Sub

bonne suite
1
eglantine217 Messages postés 54 Date d'inscription mardi 8 mai 2012 Statut Membre Dernière intervention 3 mars 2013
14 mai 2012 à 15:17
ça marche très bien merci le seul problème c'est que lorsque je place un filtre en haut de la colonne, et que je positionne le mois de mars par exemple je ne trouve pas le même nombre de valeurs que je trouve lorsque je le fais manuellement ... je comprend plus rien je pense que le format de la cellule ne se met pas en format date c'est peut être ça mon problème
0