VBA: Comparaison entre 2 dates

Version imprimable

13/04/2021, 13h48
GEY3008

VBA: Comparaison entre 2 dates

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
13/04/2021, 14h48
Invité

Citation:

Envoyé par GEY3008

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.

Aide

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:

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

Bonjour,

Citation:

Envoyé par GEY3008

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:

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.

1 pièce(s) jointe(s)

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

Pièce jointe 595695

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

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.

15/04/2021, 14h33
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

Citation:

Envoyé par Fab_de_chez_PERFORM

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

Origine
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

Citation:

Envoyé par anasecu

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

15/04/2021, 17h12
Pierre Fauconnier

1 pièce(s) jointe(s)

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.

Pièce jointe 595732

Voir mon billet sur IsDate et CDate
15/04/2021, 17h31
GEY3008

Citation:

Envoyé par Pierre Fauconnier

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)
:(
15/04/2021, 17h35
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...
15/04/2021, 17h51
GEY3008
Citation:

Envoyé par Pierre Fauconnier

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:

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
15/04/2021, 17h53
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 ;)
15/04/2021, 18h13
GEY3008

Citation:

Envoyé par Pierre Fauconnier

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 ...
15/04/2021, 18h16
GEY3008
Citation:

Envoyé par Pierre Fauconnier

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:

1 2 Print CDate(Replace("01.03.02021", ".", "/")) ' donne 01/03/2021 Print Month(CDate(Replace("01.03.2021", ".", "/"))) ' donne 3
15/04/2021, 18h25
Pierre Fauconnier

Ok. C'est correct.

As-tu essayée Power Query?
15/04/2021, 18h34
GEY3008

Citation:

Envoyé par Pierre Fauconnier

As-tu essayée Power Query?

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

Origine		#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

1 pièce(s) jointe(s)

Si tu tiens vraiment à du VBA.

Avec le tableau suivant:

Pièce jointe 595744

Code:

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

15/04/2021, 18h54
Pierre Fauconnier

1 pièce(s) jointe(s)

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.

Pièce jointe 595748
15/04/2021, 18h55
GEY3008

1 pièce(s) jointe(s)

Citation:

Envoyé par Pierre Fauconnier

Si tu tiens vraiment à du VBA.

quand on n'a pas de chance ...

Pièce jointe 595749
15/04/2021, 19h00
Pierre Fauconnier

Citation:

Envoyé par GEY3008

quand on n'a pas de chance ...

Pas compris, désolé. Le tableau que tu montres me semble correct au niveau du résultat. Quelle solution as-tu employée? Pourquoi dis-tu "pas de chance"? :?

[EDIT] Sur la ligne 24, ça devrait être la même date? Si oui, il y a plus qu'un stûûût, comme on dit chez moi :mouarf:
15/04/2021, 19h39
Invité

Citation:

Envoyé par GEY3008

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.

Lorsque ERDF et GRDF sont passés sous SAP en 2007, nous avons tous été confrontés à votre problème, la configuration des postes par défaut étant celle que vous avez. On n'imagine pas un seul instant l'activité bloquée par un problème de formatage de données.

Je pense que vous accèderez à vos paramètres via le dernier bouton multicolore dans la barre de menus de SAP.

Pièce jointe 595756

Puis vous devez avoir dans le menu Options puis Données Locales.

https://www.developpez.net/forums/d1...p/#post8582814

Voilà le masque que vous devez trouver sur votre poste de travail :

Pièce jointe 595751
15/04/2021, 20h36
Pierre Fauconnier

Citation:

Envoyé par Eric KERGRESSE

...

Chouette d'avoir une personne ressource SAP sur le forum... :plusser:

Fuseau horaire GMT +2. Il est actuellement 20h20.