VBA : transformation en date

eglantine217 Messages postés 64 Statut Membre -  
eglantine217 Messages postés 64 Statut Membre -
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

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1. eglantine217 Messages postés 64 Statut Membre
       
      ç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