[Toutes versions] problème de macro pour remplacement [Résolu]

[Lady5]

Bonjour à tous,

J'ai une cellule qui est une date "le 1 décembre" qui est un texte. Après j'ai fait ctrl+h, j'ai remplacé "le " par "". La valeur de cette cellule est "40878" qui est
bien une date.

Mais quand je passe par une macro pour remplacer "le 2 décembre" par "40878", ça marche pas. La date est "2 décembre" qui est encore un texte mais pas "40878". Et moi, je veux bien le format "40878". Merci de vos aides.

voici mon code vba:

Code :

1
2
3
4
5
6
7
8
9
10
Sub Macro3()
'
' Macro3 Macro
'
    Columns("A:A").Select
    Selection.Replace What:="Le ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveWindow.SmallScroll Down:=12
End Sub

[jfontaine]

Bonjour,

Après la suppression du "le", tu devrais pouvoir faire une conversion en type date

Code :

1
2
3
4
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

[Lady5]

Merci de votre réponse. J'ai essayé ton code. Malheureusement, le format ne change pas.

j'ai ajouté un code: Format(Range("B1").Value, "dd/mm/yyyy"). Et ça marche.

Merci à votre aide.