Discussion :

[dedam]

Bonjour,

Pour l'édition de rapports, j'extracte des données de SAP s

J'aimerai savoir si l'encodage a été fait endéan les 3 jours , par exemple, la colonne F1 (date de création) est 22.01.2016 un OK ou NOK apparait en fonction d'un critère de date ; formule : =SI(F8="";"";SI(OU(F8=E8;F8=E8+1;F8=E8+2;F8=E8+3);"OUI";"NON"))

Mon soucis,

L'extract de SAP copie colle les date avec des ".", donc la formule ne peut pas fonctionne (dates requises), donc je fais une macro de ce type :

Code :

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

1
2
3
4
5
    Columns("E:I").Select
    Selection.NumberFormat = "@"
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True

Mais vu que ça passe dans VBA, les dates sont converties et mes calculs sont donc erronés ..

Une solution pour maider svp?

Un extract de SAP (pas confidentiel):

Code :

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

1
2
3
4
5
 
200477	L2 	WH   NOM   20.01.2016	22.01.2016	19.02.2016	19.02.2016	19.02.2016
200476	L2 	WH   NOM   14.01.2016	15.01.2016	12.02.2016	13.02.2016	13.02.2016
200475	L2 	WH   NOM   07.01.2016	08.01.2016	05.02.2016	06.02.2016	06.02.2016
200475	L2 	WH   NOM   04.01.2016	06.01.2016	17.02.2016	03.02.2016	17.02.2016

[cerede2000]

Bonjour à toi
Pas besoin de VBA !

Utilise ceci pour remplacer les . en / :

Code :

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

=SUBSTITUE(H8;".";"/")

Puis tu additionne tes jours et si tu veux remettre sous forme de date :

Code :

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

=TEXTE(SUBSTITUE(H8;".";"/")+3;"jj/mm/aaaa")

[Invité]

Bonjour,

Je n'ai plus accès à SAP, mais vous avez la possibilité de choisir le format de vos dates dans votre SAPGUI. A voir également avec celui ou celle qui récupère les requêtes si ce n'est pas vous.

Cordialement.

[cerede2000]

On peux donc en arriver à quelque chose comme ça

Code :

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

=SI(F8="";"";SI(ET(CNUM(SUBSTITUE(F8;".";"/"))>=CNUM(SUBSTITUE(E8;".";"/"));CNUM(SUBSTITUE(F8;".";"/"))<=CNUM(SUBSTITUE(E8;".";"/"))+3);"OUI";"NON"))

Pas besoin de tester = +1 +2 +3 un écart >= et <= +3 suffit

Edit : Correction de ma formule...

[dedam]

Les deux solution sont bonnes à prendre, génial.

Grand merci, celà fonctionne via SAP



Encore meric pour votre aide et rapidité de réponse.

Damien

[cerede2000]

Ah oui en effet !
Si tu peux changer direct à la source c'est encore mieux !!

[Invité]

Regardez également votre notation décimale. Si vous avez la possibilité, prenez un format sans espace pour les milliers. Vous le rétablirez sous Excel, le cas échéant.

Cordialement.