Discussion :

[Caps corp]

Bonjour,

j'utilise le code suivant pour remplacer dans 4 colonnes contiguës les . par des / pour obtenir des dates.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

La modif se fait bien, mais certaines cellules ne prennent pas la forme de date. Alors que cette fonction marche en manuel.

Une idée d'amélioration ?
merci

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = CDate(Replace(Cells(1, 1), ".", "/"))

Bonne journée

[Caps corp]

merci.
Comment appliquer ce code à toutes les cellules de 4 colonnes (F à I) ?

[ouskel'n'or]

avec PremCol : "C" et DerCol : "F"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Application.screenUpdating = false
For each Cell in Range("C" & Split(Activesheet.usedrange.address,"$")(4) & ":F" & Split(Activesheet.usedrange.address,"$")(4))
    if not isempty(Cell) then Cell = CDate(Replace(Cell, ".", "/"))
Next
Application.screenUpdating = True

Pas testé. Tu peux le faire pour moi ?