Gestion de ronde parking / Insertion de date + copie /intégration de lignes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Star-Lord
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 mai 2019
Version d'Excel : Excel 2016

Message par Star-Lord » 20 mai 2019, 16:00

Bonjour,

Je cherche a créer un VBA pour la gestion des véhicules ventouses d'un parking.
J'ai donc une colonne de dates de ronde avec en face, la plaque de la voiture, sur la place où elle est et l'agent de ronde.

J'ai deux soucis (fichier en PJ)

- Tout d'abord j'ai besoins de créer des lignes pour les dates manquantes (soit les week-ends et jours fériés en général). Pour cela j'ai un code qui fonctionne :

Sub date_creation()
Dim i As Integer
Dim fin As Integer

For i = 2 To 5000
If Cells(i, 1) = "" Then fin = i: Exit For
Next i

For i = 2 To fin
If Cells(i + 1, 1) > Cells(i, 1).Value + 1 Then
Rows(i + 1).Insert
Cells(i + 1, 1) = Cells(i, 1) + 1
End If
Next i
End Sub

- Second problème : J'aimerais que à la place des dates vides (du week end et jours fériés) les lignes de la dernière ronde soit répétées. Exemple :

10/08/2018 3438DZZ 2197
10/08/2018 DF349JC 2061
10/08/2018 DF768CP 2180
10/08/2018 DK597SJ H01
10/08/2018 DV108YJ 2163
10/08/2018 DY454SX 2178
10/08/2018 DZ666LB 2150
10/08/2018 EG098PC 2160
10/08/2018 EH569TV 2148
10/08/2018 EK707WF 1251
10/08/2018 EL759YQ 1191
10/08/2018 EQ895DK 1140
10/08/2018 ET245JA 1126
10/08/2018 EW067RD 1252
11/08/2018
12/08/2018

Il faudrait que lignes du 10 soit répétées pour le 11 et le 12.

Peut-être est il possible de faire un code 2 en 1 ou sinon j'aurais besoin d'une seconde partie de code pour la fin de mon problème.
Etant encore novice en VBA je n'y arrive pas moi même...

Merci !
Parking VBA.xlsx
(6.4 Kio) Téléchargé 12 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 21 mai 2019, 07:18

Bonjour,

:bv:
J'ai deux soucis (fichier en PJ)
Moi aussi ...

Ton fichier est vide ... et il est vide ... ::o
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Star-Lord
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 mai 2019
Version d'Excel : Excel 2016

Message par Star-Lord » 21 mai 2019, 17:25

Effectivement..

Voici la bonne PJ.

Merci et dsl.

Cordialement,
Parking VBA.xlsx
(133.16 Kio) Téléchargé 7 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 21 mai 2019, 18:56

Re,

Merci pour ton fichier ...

Pour te faciliter la vie ... il serait plus efficace que tu saisisses une journée entière ...

Puis il suffirait d'indiquer la date jusqu'à laquelle les rondes doivent être créées ...

Est-ce envisageable ...?
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 21 mai 2019, 19:46

Re,

Ci-joint un premier fichier test ...

En espèrant que cela t'aide
Test Parking.xlsm
(34.9 Kio) Téléchargé 14 fois
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Star-Lord
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 mai 2019
Version d'Excel : Excel 2016

Message par Star-Lord » 22 mai 2019, 10:29

Re,

le soucis c'est que c'est que je ne reçois les données que par grosse périodes.
Du coups j'aurais besoin d'un VBA qui copie les lignes de la dernière ronde sur les dates manquante, week et jours fériés (qui n'apparaissent pas de base) :

Exemple :

10/08/2018 1126 ET245JA
10/08/2018 1252 EW067RD
13/08/2018 2197 3438DZZ
13/08/2018 2103 AF777HY

et j'ai besoin qu'il me ressorte

10/08/2018 1126 ET245JA
10/08/2018 1252 EW067RD
11/08/2018 1126 ET245JA
11/08/2018 1252 EW067RD
12/08/2018 1126 ET245JA
12/08/2018 1252 EW067RD
13/08/2018 2197 3438DZZ
13/08/2018 2103 AF777HY

Donc qu'il m'ajoute les dates manquantes et y copie les lignes de la dernière ronde.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 22 mai 2019, 10:49

De rien
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Star-Lord
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 mai 2019
Version d'Excel : Excel 2016

Message par Star-Lord » 22 mai 2019, 11:01

Oui veuillez m'excuser.. j'ai vu seulement à ma relecture tardive que je ne vous avez pas remercié.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 22 mai 2019, 22:32

Bonjour,

As-tu testé la macro ...???
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
S
Star-Lord
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 20 mai 2019
Version d'Excel : Excel 2016

Message par Star-Lord » 24 mai 2019, 09:45

Bonjour,

Oui cela me copie les lignes de la ronde du 08/04 en boucle jusqu'à la date de fin.

Personnellement, j'aimerais que quand dans la ligne des dates il trouve une date manquante, que le vba ajoute les lignes de la ronde précédentes.

Cordialement,
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message