Discussion :

[Workid]

Bonjour,

N'étant pas un master en excel, je viens chercher de l'aide en espérant que quelqu'un puisse m'aider.

Voilà, depuis quelques jours un de mes documents excel inverse systématiquement les mois et les jours d'une liste de date pour toutes les dates qui contiennent un jour inférieur/égal à 12.
C'est à dire que 02/06/2018 devient le 06/02/2018.

Cette liste de date provient d'un autre onglet en format JJ-MM-AAAA.

La macro sert à copier l'onglet source, à coller en valeur la liste de dates, puis à changer les "-" en "/".

Seulement, je constate que les jours et les mois sont intervertis.

L'onglet destination est en format Date, lorsque je le passe en format standard, les dates qui sont normales restent en JJ/MM/AAAA, mais les dates qui ont été interverties passent en valeur numérique: ex: 43232.

Pouvez-vous m'aider ?

Pour information, la macro actuelle ressemble à ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sheets("DAY-PIVOT").Select
    Cells.Select
    Selection.Copy
 
    Sheets("DAY_OPT").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
 
    Sheets("DAY_OPT").Select
    Columns("D:D").Select
    Selection.Replace What:="-", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A1").Select

D'avance, je vous remercie pour votre aide !

Workid

[ARTURO83]

Bonjour,

Pour être sûr de conserver les bonnes valeurs, avant de faire la copie, sélectionnez la colonne des dates et mettez au format nombre, puis copiez et collez sur l'autre feuille et repassez au format date.

Autre solution: Toujours avant de faire la copie, dans une cellule vide de la feuille 1, mettre la valeur 1, puis copier, sélectionnez ensuite la colonne des dates et collage spécial "Multiplication", puis copiez et collez sur l'autre feuille et repassez au format date.

cdlt

[Theze]

Bonjour,

Teste avec ce code pour voir (je ne suis pas fan des Copier/Coller) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Test()
 
    Dim Plage As Range
 
    Set Plage = DefPlage(Sheets("DAY-PIVOT"), 1, 1)
 
    With Sheets("DAY_OPT")
 
        .Range(.Cells(1, 1), .Cells(Plage.Rows.Count, Plage.Columns.Count)).Value = Plage.Value
        .Range(.Cells(1, 1), .Cells(Plage.Rows.Count, Plage.Columns.Count)).Replace "-", "/"
        'ou encore :
        '.Range(.Cells(1, 1), .Cells(Plage.Rows.Count, Plage.Columns.Count)).NumberFormat = "dd/mm/yyyy"
 
    End With
 
End Sub
 
Function DefPlage(Fe As Worksheet, Optional L As Long = 1, Optional C As Long = 1) As Range
 
    On Error GoTo Fin
 
    With Fe
 
        Set DefPlage = .Range(.Cells(L, C), _
                       .Cells(.Cells.Find("*", .[A1], -4123, , _
                       1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                       2, 2).Column))
 
    End With
 
    Exit Function
 
Fin:
 
    Set DefPlage = Nothing
 
End Function