Comparer et ranger des données

Version imprimable

15/05/2019, 16h06
Flow1995

2 pièce(s) jointe(s)

Comparer et ranger des données
Bonjour,

Je vous ai mis un petit extrait de mes fichiers en simplifié (j'ai plus de 800 lignes à comparer)..

J'ai un fichier Bascule
Pièce jointe 475222

Et un fichier Suivi
Pièce jointe 475224
(Fichier Suivi: Le deuxième onglet est le résultat attendu)

Je dois insérer certaines données du fichier Bascule dans le fichier Suivi, bien sur avec plusieurs conditions (sinon ça serait trop facile :P ).

Quand c'est :
- La même Date
- La même Immatriculation
- L'heure de chargement inférieur ou égal à 3h de l'heure de passage sur la bascule (Si l'heure de chargement est 9:12 ; l'heure de passage sur la bascule doit être compris en 9:12 et 12:12)
  Mais si l'heure de pesée est inférieur à 8h, il faut regarder les dates précédentes
- Le Poids net + ou - 200kg
ALORS copier du fichier Bascule vers le Suivi la colonne Numéro Tag; Heure de passage sur la bascule; Poids brut; Tare.

Je voudrais le faire en VBA pour appliquer cette manip facilement.

J'espère avoir été assez clair 8O
Dans un premier temps, est-ce que vous pensez mon projet est réalisable ?

Merci d'avance
17/05/2019, 15h22
a_diard

Bonjour

Dans un premier temps, est-ce que vous pensez mon projet est réalisable ?

La réponse est oui, il faut peut être que tu travaille un peu avant de demander une solution toute faite.

Ce sera avec plaisir que nous t'aiderons à faire évoluer ton code.

Je dois insérer certaines données du fichier Bascule dans le fichier Suivi, bien sur avec plusieurs conditions (sinon ça serait trop facile )

Commence au minimum par faire ce qui est trop facile.

A bientôt.
22/05/2019, 13h59
Flow1995

1 pièce(s) jointe(s)

Bonjour,

Je travail sur un fichier simplifié pour le code. Voici ce que j'ai fait : Pièce jointe 477178

Mais j'ai un petit soucis, j'ai des lignes qui sont copiées plusieurs fois. Il faut que je rajoute une condition sur "l'heure de chargement" et "l'heure de passage sur la bascule"

La ligne VBA serait du style :

Code:

Worksheets("Feuil1").Cells(i, 2).Value < 3h + Worksheets("Feuil2").Cells(j, 4).Value

Comment je peux sommer 3h à ma cellule "Worksheets("Feuil2").Cells(j, 4).Value" ? Qui est une cellule avec un horaire