Discussion :

[GEY3008]

Bonjour
J'ai besoin de votre aide
Suite à une extraction de données de SAP vers excel, je me retrouve avec 2 colonnes de dates sous format 06.03.2021
Pour exploiter les dates, il est très facile de remplacer les "." par les "/" sur le fichier lui même.
Cependant, j'aimerais automatiser ce processus par une macro, ensuite rajouter une colonne qui va comptabiliser le delta de ces 2 dates ex: 06/03/2021 11/03/2021 delta: 5 jours
Quand je modifie le format de date (en remplaçant les "." par des "/", je me retrouve avec des dates format anglais ex: 06.03.2021 -> 03/06/2021
Avez-vous une idée de comment je pourrais faire ?
Merci de vos conseils

[Invité]

Bonjour,

Si c'est vous qui récupérez la requête sur SAP, vous avez la possibilité de définir le format des dates dans votre SAPGUI qui contient tous vos paramètres. Si ce n'est pas vous, essayez de contacter celui qui génère le résultat pour qu'il modifie ses paramètres. Je n'ai plus accès à SAP depuis très longtemps, je ne pourrai donc vous aider plus.

[Fab_de_chez_PERFORM]

Bonjour
au lieu de changer le format date, je propose de remplacer le . par / avec la fonctionnalité rechercher/remplacer
En admettant que mes valeurs soient de A1 à B10 (puis calcul de C1 à C10), on aurait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
 
    Range("A1:A10").Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("B1:B10").Replace What:=".", Replacement:="/", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
    Dim Ma_plage As Range
 
    For Each Ma_plage In Range("C1:C10")
    Ma_plage = "=B" & Ma_plage.Row & "-" & "A" & Ma_plage.Row
    Next
 
End Sub

Pour améliorer tout ca il faudrait, je pense, déclarer les variables. De plus, si les dates sont - comme ici - dans des cellules cote à cote, autant réduire le rechercher/remplacer à Range A10:b10

[anasecu]

Bonjour,

Quand je modifie le format de date (en remplaçant les "." par des "/", je me retrouve avec des dates format anglais ex: 06.03.2021 -> 03/06/2021

Pour corriger tes dates et calculer leur différence, je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub maj_dates()
Dim cel As Range, col As Long, lig As Long
    With ActiveSheet    ' à adapter
        For Each cel In ActiveSheet.UsedRange.Cells
            If InStr(cel.Value, ".") > 0 Then
                cel.Value = Replace(cel.Value, ".", "/")
                If IsDate(cel.Value) Then cel.Value = CDate(cel.Value)
            End If
        Next cel
        lig = .UsedRange.Rows.Count
        col = .UsedRange.Columns.Count + 1          ' à adapter les colonnes à soustraire
        .Cells(1, col).Resize(lig, 1).Formula = "=" & Range("B1").Address(0, 0) & "-" & Range("A1").Address(0, 0)
   End With
End Sub

Renseigne l'adresse début de tes colonnes à calculer et la feuille concernée.

[Pierre Fauconnier]

Salut.

Tu ne précises pas ta version d'Excel, mais j'espère (pour toi) que c'est au moins la version 2010. Tu peux alors te tourner vers Power Query




Voici les étapes de la requête Power Query, qui peuvent être réalisées par clics de souris:

Code Power Query :

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

1
2
3
4
5
6
7
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Date 1", Date.Type}, {"Date 2", Date.Type}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Type modifié", "Ecart", each [Date 2]-[Date 1]),
    #"Type modifié1" = Table.TransformColumnTypes(#"Personnalisée ajoutée",{{"Ecart", Int64.Type}})
in
    #"Type modifié1"

PS: Pour moi, les tableaux structurés s'imposent.

[GEY3008]

Bonjour à tous
J'attendais les notifications de réponses que je n'ai pas reçu sur mon tel portable.
Je reviens sur le forum via PC et je vois toutes ces réponses. Je vous remercie beaucoup.
Je vais les étudier une par une et je vous dirais.

Je peux déjà juste répondre à Eric KERGRESSE
Non pas possibilité de modifier les formats. Le chargé de SAP est injoignable et un tel changement serait contraignant pour le reste des collaborateurs d'une société d'un grand groupe.
Je ne peux récupérer que des dates au format texte '08.03.2021', donc faire avec.

Pour répondre à Pierre Fauconnier
Ma version est Office 365 ProPlus suite

[GEY3008]

Bonjour
au lieu de changer le format date, je propose de remplacer le . par / avec la fonctionnalité rechercher/remplacer

Non ça ne marche pas.
Problème sur date avec jour inferieur à 13, elle les mets sous format anglais

Origine			Modifié par macro
01.03.2021	10.03.2021		03/01/2021	03/10/2021	273
07.04.2021	10.04.2021		04/07/2021	04/10/2021	92
13.04.2021	25.04.2021		13/04/2021	25/04/2021	12
25.01.2021	03.02.2021		25/01/2021	02/03/2021	05/02/1900
10.02.2021	12.02.2021		02/10/2021	02/12/2021	61
25.02.2021	03.04.2021		25/02/2021	04/03/2021	07/01/1900
02.03.2021	03.04.2021		03/02/2021	04/03/2021	29
07.03.2021	03.04.2021		03/07/2021	04/03/2021	-121
02.10.2021	10.02.2021		10/02/2021	02/10/2021	234
12.10.2021	25.10.2021		10/12/2021	25/10/2021

[GEY3008]

Bonjour,

Pour corriger tes dates et calculer leur différence, je te propose ceci :

Même problème, je me retrouve avec des dates au format anglais (mm/jj/aaaa)

Origine			Modifié par macro		#VALEUR!
01.03.2021	10.03.2021		03/01/2021	03/10/2021	273
07.04.2021	10.04.2021		04/07/2021	04/10/2021	92
13.04.2021	25.04.2021		13/04/2021	25/04/2021	12
25.01.2021	03.02.2021		25/01/2021	02/03/2021	36
10.02.2021	12.02.2021		02/10/2021	02/12/2021	61
25.02.2021	03.04.2021		25/02/2021	04/03/2021	7
02.03.2021	03.04.2021		03/02/2021	04/03/2021	29
07.03.2021	03.04.2021		03/07/2021	04/03/2021	-121
02.10.2021	10.02.2021		10/02/2021	02/10/2021	234
12.10.2021	25.10.2021		10/12/2021	25/10/2021	-46

[Pierre Fauconnier]

Il faudrait à mon avis vérifier tes paramètres régionaux. Es-tu sûr qu'ils sont "FR"? car 01.03.2021 sera bien compris comme étant le 1er mars 2021 après remplacement des . par des / si tes paramètres régionaux prennent JMY comme format de date.




Voir mon billet sur IsDate et CDate

[GEY3008]

Il faudrait à mon avis vérifier tes paramètres régionaux.

Désolé, pas cà

Format: date
Type: *14/03/2021
Paramètre régionaux: Français (France)

[Pierre Fauconnier]

Je ne parle pas du format de la cellule, je parle du format des paramètres régionaux de windows. Le format de la cellule n'influence pas le traitement des dates en VBA, bien que l'astérisque dans ce que tu as montré tend à montrer que tu es bien au format FR.

Fais le test que j'ai illustré dans la fenêtre de résultat avec une date "ambiguë et dis-nous quel mois tu as...

[GEY3008]

Fais le test que j'ai illustré dans la fenêtre de résultat avec une date "ambiguë et dis-nous quel mois tu as...

Désolé, je cale, ça fait juste 1 semaine que je me suis mis à VBA ...
Je ne trouve pas les paramètres régionaux dans les options d'Excel (j'ai office 365 sur un PC, 2019 sur l'autre)

Ce code:

Code :

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

1
2
Print CDate(Replace("01.03.02021", ".", "/"))
  Print Month(CDate(Replace("01.03.2021", ".", "/")))

Je l'ai mis dans un bouton mais non fonctionnel

[Pierre Fauconnier]

Dans l'éditeur de code du VBA, tu affiches la fenêtre d'exécution (CTRL+G) et tu y saisis la ligne de code suivante puis tu valides: ? month(cdate(replace("01.03.2021",".","/")))
bis repetitas: Je parle des paramètres régionaux de WINDOWS, pas d'EXCEL

[GEY3008]

bis repetitas: Je parle des paramètres régionaux de WINDOWS, pas d'EXCEL

Désolé Pierre, merci de ta patiente
Oui je suis bien en français
Explicitement:
Date courte: jj/MM/aaaa
Date longue: jjjj j MMMM aaaaa
etc ...

[GEY3008]

Dans l'éditeur de code du VBA, tu affiches la fenêtre d'exécution

Tu viens de me la faire découvrir, je ne connaissais pas.

Code :

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

1
2
Print CDate(Replace("01.03.02021", ".", "/")) ' donne 01/03/2021
Print Month(CDate(Replace("01.03.2021", ".", "/"))) ' donne 3

[Pierre Fauconnier]

Ok. C'est correct.

As-tu essayée Power Query?

[GEY3008]

As-tu essayée Power Query?

Va falloir que je fasse des recherches sur le net, je ne connais pas du tout.

[Pierre Fauconnier]

Si tu tiens vraiment à du VBA.

Avec le tableau suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
  Dim i As Long
 
  Range("tableau2[[date 1]:[date 2]]").NumberFormat = "dd/mm/yy"
  For i = 1 To Range("tableau2").Rows.Count
    Range("tableau2[Date 1]")(i).Value = CDate(Replace(Range("tableau2[Date 1]")(i).Value, ".", "/"))
    Range("tableau2[Date 2]")(i).Value = CDate(Replace(Range("tableau2[Date 2]")(i).Value, ".", "/"))
  Next i
  Range("tableau2[Ecart]").Formula = "=[@[Date 2]]-[@[Date 1]]"
End Sub

[Pierre Fauconnier]

Voici un fichier qui utilise Power Query

Après ouverture, tu vas dans Données\Requêtes et connexions\Requêtes et connexions puis tu doubles-cliques sur la requête Tableau1 que tu vois dans le panneau des requêtes. Cela ouvrira Power Query et tu pourras voir les étapes. A droite de l'écran Power Query, tu peux cliquer sur chaque étape pour voir ce qu'elle réalise dans la requête.

Dates-PowerQuery.xlsx

[GEY3008]

Si tu tiens vraiment à du VBA.

quand on n'a pas de chance ...