[VBA-E] Identifier date la + proche d'une date définie

Version imprimable

27/05/2006, 13h41
altarez

[VBA-E] Identifier date la + proche d'une date définie

Bonjour à tous,

Voila, je cherche un code VBA qui identifie parmis un liste de date, celle qui se rapporche le plus de la fin du mois.
voici comment se compose le fichier Excel :

col A | col B
BBBBBBB | 29/05/06
BBBBBBB | 30/05/06
BBBBBBB | 01/06/06
PPPPPP1 | 26/05/06
PPPPPP1 | 02/06/06
xyzd253 | 22/05/06
xyzd253 | 05/06/06
AAAAAAA | 30/05/06
AAAAAAA | 31/05/06
AAAAAAA | 01/06/06

Comme vous pouvez le voir, en colonne A il y a plusieurs "Codes" differents, je cherche donc à identifier la date pour chaque "Code" la plus proche (en nombre de jour ouvrés) de la date de fin de mois (ici :31/05/2006) et afficher en colonne C le resultat.
Le jour le plus proche donc que ce soit avant ou apres le dernier jour de fin de mois.
En gros si il y a le choix entre le 25/05/06 et le 02/06/06 et que la date butoir est :31/05/06, la macro choisira le 02/06/2006

En language VBA je pensais faire :
tant que (monCode) est identique
alors fait le calcul "maDate"
Sinon passe a la ligne suivante

maDate serai une procedure VBA qui calcule le jour le plus proche de fin de mois
(monCode) serai une variable qui stockerai le code actuel.
genre: monCode = Activecell.text

A la fin j'aurai un truc comme ça :

col A | col B | col C
BBBBBBB | 29/05/06 |
BBBBBBB | 30/05/06 | correct
BBBBBBB | 01/06/06 |
PPPPPP1 | 26/05/06 |
PPPPPP1 | 02/06/06 | correct
xyzd253 | 22/05/06 |
xyzd253 | 05/06/06 | correct
AAAAAAA | 30/05/06 |
AAAAAAA | 31/05/06 | correct
AAAAAAA | 01/06/06 |

Vuus pensez que c'est possible ?

Merci a tous ceux qui pourront m'aider, et n'hesitez pas à me demander si je n'ai pas été assez explicite.
27/05/2006, 13h54
jmfmarques

Je n'y connais pas grand chose en VBA moderne, mais il me semble qu'il y a là une question liminaire, que tu "sous-tends" sans vraiment en parler ... :

Citation:

la plus proche (en nombre de jour ouvrés

Qu'as-tu déjà mis en place, avant donc d'aller plus loin, pour distinguer un jour ouvré d'un jour qui ne l'est pas ?
Si encore rien : je suggère que tu t'intéresses à ce TOUT PREMIER ET ESSENTIEL PROBLEME et que ta 1ère question porte sur ce seul point avant de passer au reste, non ?;)
27/05/2006, 13h55
SfJ5Rpw8

et en restant sous Excel et en rajoutant une 3° colonne (C) avec une formule du genre

Code:

=$E$1-B1

à recopier..vers le bas ... puis placer en E1 la date du 31/05/2006
modifier aussi le format d'affichage de la colonne C.. en Nombre..
27/05/2006, 13h58
jmfmarques

Ma question précédente reste d'actualité !
Qu'as-tu mis en place dans ce but ? Avant même d'aller au reste ... ?
27/05/2006, 14h31
altarez

Merci de vos réponses (quelle rapidité ;) )

jmfmarques : Effectivement tu n'a pas tort, il serai deja bien d'itendifier les jours ouvrés.
En faite j'ai absolment rien construit jusqu'a présent. J'ai juste la finalié en tête, il faudrait certainement passer par une serie de formules.
Mais lesquelles...

bbil, ca peut effectivement etre une bonne approche. Il resterai a identifier le nombre resultant (col C) le plus proche de 0.
Il me faudrait maintenant dire a la macro de faire ça pour chaque groupe de code independamment.
27/05/2006, 14h34
altarez

jmfmarques :
J'ai mon projet total ecrit sur un book.
J'entends par projet total : l'idée, les besoins et obligations, la finalité
Le project étant complet, je passe au coté purement technique, et pour le moment je n'ai encore rien fait de ce coté, j'essaye avant tout d'obtenir de l'aide sur differente facon d'atteindre le but recherché.
Je suis actuellement pas en mesure de faire ce genre de code VBA sans un peu d'aide ;)
27/05/2006, 14h39
jmfmarques

Citation:

jmfmarques : Effectivement tu n'a pas tort, il serai deja bien d'itendifier les jours ouvrés.
En faite j'ai absolment rien construit jusqu'a présent. J'ai juste la finalié en tête, il faudrait certainement passer par une serie de formules.
Mais lesquelles...

Il est pourtant évident que tu ne peux aller plus loin sans ce premier pas, pour le moins ESSENTIEL !
Avoir les choses "en tête" ne suffit pas ! Prends une feuiile de papier et "construis" ton mécanisme de pensée, s'il te plait !
Un indice : une liste de jours ouvrés est bien longue ! Celle des jours non ouvrés est beaucoup plus courte !
Je te suggère de clore ce sujet et d'en ouvrir un autre, particulièrement adapté:
"comment savoir si un jour est ouvré ou non, en fonction de la législation locale, d'une part, de l'année concernée d'autre part... et enfin des règlements internes de l'entreprise ?";)
27/05/2006, 14h47
jmfmarques

Ou alors : modifie le texte de ton sujet et dis "la plus proche d'une date déjà connue" !;)
27/05/2006, 14h50
altarez

Je te rassure j'ai tout sur papier. ;)
Je parlais de la finalité au niveau des jours.
Penses-tu qu'il soit préférable d'ouvrir un nouveau file ?
parceque des petits problemes je risque d'en avoir pas mal.

Par exemple si j'ai le chois entre ces dates :
30/05/06 et 01/06/2006
Nombre de jours ouvrés par rapport au 31/05/2006 : identique
Comment faire pour que préférence soit donnée au 30/05/06 ?

Tu vois, ce genre de petites exeptions.
Pour les dates, j'avais pensais a un system de calendrier dans Excel (ou répertorier les jours non ouvrée que sont les samedi, dimanche et jours fériés)

Reste ensuite à faire le code pour exploiter le calendrier. Et le.. je bloque total

titre du topic modifié ;)
27/05/2006, 14h52
jmfmarques

Attends !
Tu as d'une part l'algo (valable pour tout langage, VB ou autre...)
et d'autre part le langage de transposition (ici VB)...
quel est ton algo, s'il te plait (rien à voir avec VB)
27/05/2006, 14h54
altarez

langage de transposition, je le fait directement sous VBA pour Excel (etant donné que tout le traitement ce fait par Excel)

Je crée aucun autre algo car j'utilise uniquement VBA. (je debute en programmation)

bonjour

j'espere que cet exemple pourra t'aider . je n'ai sans doute pas testé tous les cas de figure .

Code:

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
39
40
41
42
43
 
Option Explicit
Option Base 1
 
Sub rechercheProches_dernierJourMois()
Dim Tableau()
Dim Un As New Collection
Dim Cell As Range
Dim i As Integer
 
For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
    On Error Resume Next
    Un.Add Cell, CStr(Cell)
 
    If Err.Number = 0 Then
    ReDim Preserve Tableau(1 To 3, 1 To Un.Count)
    Tableau(1, Un.Count) = Cell
    Tableau(2, Un.Count) = determineJour(Cell.Offset(0, 1))
    Tableau(3, Un.Count) = Cell.Offset(0, 2).Address
    Else
 
    For i = 1 To Un.Count
        If Tableau(1, i) = Cell Then
 
        If Tableau(2, i) > determineJour(Cell.Offset(0, 1)) Then
        Tableau(2, i) = determineJour(Cell.Offset(0, 1))
        Tableau(3, i) = Cell.Offset(0, 2).Address
        End If
 
        End If
    Next i
 
    End If
 
    On Error GoTo 0
Next Cell
 
'afficher le resultat
For i = 1 To Un.Count
Range(Tableau(3, i)) = "Correct"
Next i
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Function determineJour(laDate As Date) As Integer
Dim x As Integer
 
x = Day(laDate)
If x >= Day(DateSerial(Year(laDate), Month(laDate) + 1, 0)) / 2 Then
 
determineJour = _
Day(DateSerial(Year(laDate), Month(laDate) + 1, 0)) - Day(laDate)
Else
determineJour = Day(laDate)
End If
 
End Function

bonne apres midi
michel

27/05/2006, 15h20
jmfmarques

Oui.... hum ...
Vba ou pas, VB ou pas... Autre langage ou pas....
Rien ne peut être bon sans un certain ordre de traitement...
Lis et relis celà...STP
http://www.developpez.net/forums/sho...d.php?t=154121
Et reviens vers nous ensuite avec une construction claire et dans le bon ordre de ta pensée...
Vba ne la remplacera jamais : il se contentera de l'appliquer, dans la forme que TU lui auras donnée...:cry:
27/05/2006, 15h44
altarez

Enorme merci SilkyRoad pour ce code. Je vais tenter de l'appliquer pour voir ce que ça donne. Une fois cela fait je reviens sur le forum pour expliquer le résultat.

jmfmarques : J'ai déjà tout le projet, je peux te le detailler si tu le souhaite.
Je pense être capable de faire la majorité des choses, il n'y a que pour le "module" vérifier les dates que je bloque
27/05/2006, 15h58
jmfmarques

bon !
27/05/2006, 21h12
altarez

SilkyRoad : MONSTRUEUX !
Ca fonctionne impecc. Enorme merci pour ton aide. C'est franchement du bon boulot !!
Encore merdi a toi

:merci: