problème de macro pour remplacement

Version imprimable

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

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

30/12/2011, 12h24
Lady5

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

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

Merci à votre aide.:ccool: