Magasin Département Livraison début (Journée) Livraison du début
(Heure) Livraison Fin (Jour) Livraison fin (Heure)
01517 15 Mon 07:00 Mon 09:00
01517 17 Thu 07:00 Thu 09:00
Donc je retrouve le même numéro de magasin, le même numéro de
département, sauf que les heures ne sont pas identiques. La macro doit
prendre les heures de la feuille 04 et les changer dans la feuille test.
us_30
Messages postés2065Date d'inscriptionlundi 11 avril 2005StatutMembreDernière intervention14 mars 201610 7 juil. 2009 à 23:52
Bonsoir,
Si tu veux mon avis, tu devrais déjà importé ton fichier .dat, dans différentees colonnes, ce qui faciletera la recherche... Il suffit d'utiliser comme indentificateur [espace] lors de l'importation.
Ensuite il restera à utiliser une fonction de recherche comme MID...
cs_nandinho
Messages postés14Date d'inscriptionmercredi 10 juin 2009StatutMembreDernière intervention10 juillet 2009 8 juil. 2009 à 13:31
Bonjour,
Si les heures définitives de livraison sont dans la feuille ("04") colonnes X et Y
Si les données à remplacer sont dans la feuille("teste") colonnes A avec une ligne de titres
Je fais une boucle sur le nombre de lignes à traiter et je remplace chaque ligne.
Bien sur, je remplace les dois points (:) de l'heure par rien, je concatène les deux heures (début et fin de livraison), avec la fonction "MID" je remplace les anciennes données (heures) par les nouvelles et enfin je remplace le contenu initiale de la cellule par le résultat des opérations précédentes ... avant de passer à la ligne suivante
Sub debut_teste()
Sheets("teste").Select
nbre_lignes = Application.WorksheetFunction.CountA(Sheets("teste").Range("a:a"))
For chaque_ligne = 2 To nbre_lignes
heure_debut = Right(Sheets("04").Cells(chaque_ligne, 24), 5)
heure_debut = Replace(heure_debut, ":", "")