RechercheV spécial VBA

[matrix]

Bonjour a tous.

J'ai besoin de votre aide sur unscripte.

Voici mon problème.

Sur la feuille "Test", j'ai plusieurs lignes qui contiennent des données importées d'un fichier .dat.

Donc dans la cellule A2 en descendant, j'ai des données comme ceci:

01517 G1514689610 303 4726 251070309111301230ND$$8.37 5070109N

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Le 01517 = numéro du magasin.

Ensuite, après la lettre G, les 2 premiers chiffres: 15 égale le numéro de département.

Ensuite, la section 11301230 égale Livraison du début (Heure) suivi de Livraison fin (Heure)

Ses mêmes informations se retrouvent dans la feuille 04.

Je voulais que chaque ligne de la feuille test soit corrigée par la feuille 04.

Prenon l'exemple si:

Feuille test

01517 G1514689610 303 4726 251070309111301230ND$$8.37 5070109N
01517 G1714689660 542 4807 256070309111301230ND$$8.53 5070109N


- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Feuille 04

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.

Résultat final:

01517 G1514689610 303 4726 251070309107000900ND$$8.37 5070109N
01517 G1714689660 542 4807 256070309107000900ND$$8.53 5070109N


Comment faire s.v.p

Merci encore pour votre aide.

matrix

 

[JNP]

Re : RechercheV spécial VBA

Bonjour Matrix ,
Si (et seulement si ) le nombre de caractère de ton import est toujours constant avec les mêmes emplacements de caractères, tu peux utiliser Mid(Chaîne, 1er caractère, nbre de caractères) soit pour le département

Mid(Chaîne, 8, 2)

Tu pourrais le faire aussi par formule, soit avec ta valeur en A1

=STXT(A1;8;2)

Par contre, si la longueur de ta chaîne n'est pas constante, il va falloir trouver différents moyens de localiser les caractères qui t'intéressent, et là, c'est pas gagné ...
Bonne journée

 

[matrix]

Re : RechercheV spécial VBA

Bonjour et merci pour ta réponse.

Oui, il est toujours à la position 51 à 58 sur tout les lignes.

Donc comment faire le Mid Chaine en VBA maintenant.

Merci encore.

matrix

 

[liloucmoi]

Re : RechercheV spécial VBA

Mid() fait ce que tu demandes.
Va dans VBA, tapes mid puis "F1", tu pourras l'utiliser.

Cordialement.

 

[matrix]

Re : RechercheV spécial VBA

Je n'arrive pas a comprendre comment y faire référence avec mes 2 feuilles.

 

[JNP]

Re : RechercheV spécial VBA

Re ,
Quelque chose dans ce genre

Sheets("04").Cells(1, 1) = Mid(Sheets("Test").Cells(1, 1), 8, 2)

à adapter suivant les cellules qui t'intéresse.
Bon courage

 

[matrix]

Re : RechercheV spécial VBA

J'essaie encore de voir.

Pas trop évident par contre puise que l'heure doit changer selon le magasin et le département.

Merci quand même pour votre aide.

 

[liloucmoi]

Re : RechercheV spécial VBA

Normalement, tu dois avoir un truc dans le genre :

Sheets("04").Cells(ligne, 1) = Mid(Sheets("Test").Cells(Ligne, 1), 1, 5)
Sheets("04").Cells(ligne, 2) = Mid(Sheets("Test").Cells(Ligne, 1), 8, 2)
Sheets("04").Cells(ligne, 3) = Mid(Sheets("Test").Cells(Ligne, 1), 51, 4)
Sheets("04").Cells(ligne, 4) = Mid(Sheets("Test").Cells(Ligne, 1), 55, 4)

Qui te met en ligne : Numéro de magasin, Département, Heure deb, Heure fin.
Il faut mettre ceci dans une boucle faisant varier ligne, en descendant ta feuille test.

 

[pierrejean]

Re : RechercheV spécial VBA

bonjour matrix
Salut JNP
Salut lilouctoi

Teste cette macro

Private Sub CommandButton1_Click()
For n = 2 To Range("A65536").End(xlUp).Row
  For m = 2 To Sheets("04").Range("A65536").End(xlUp).Row
    If Left(ActiveSheet.Range("A" & n), 5) = Sheets("04").Range("B" & m) And Mid(ActiveSheet.Range("A2"), 12, 2) = CStr(Sheets("04").Range("D" & m)) Then
      hh = Format(Sheets("04").Range("V" & m), "hhmm" & Format(Sheets("04").Range("X" & m), "hhmm"))     
      Range("A" & n) = Left(Range("A" & n), 50) & hh & Right(Range("A" & n), Len(Range("A" & n)) - 58)
    End If
  Next m
Next n
End Sub

Attention : dans le fichier joint j'ai modifié la 1ere ligne de optima ... pour avoir un resultat

 

[matrix]

Re : RechercheV spécial VBA

Oh oui, je crois qu'on y arrive.

Le seul problème qui reste est celui si:

Il ne filtre que le département 15. Si le magasin a plusieurs départements, il prend l'heure du département 15 et il l'attribue aussi aux autres département du même magasin.

 

[pierrejean]

Re : RechercheV spécial VBA

Re

Peux-tu mettre un fichier exemple comportant ce probleme S.T.P

 

[matrix]

Re : RechercheV spécial VBA

Et voici le fichier.

Il change seulement le premier, pas la suite.

 

[pierrejean]

Re : RechercheV spécial VBA

Re

Toutes mes excuses
Il y avait une erreur
Voici le bon code

Private Sub CommandButton1_Click()
For n = 2 To Range("A65536").End(xlUp).Row
  For m = 2 To Sheets("04").Range("A65536").End(xlUp).Row
    If Left(ActiveSheet.Range("A" & n), 5) = Sheets("04").Range("B" & m) And Mid(ActiveSheet.Range[COLOR=blue]("A" & n[/COLOR]), 12, 2) = CStr(Sheets("04").Range("D" & m)) Then
      hh = Format(Sheets("04").Range("V" & m), "hhmm" & Format(Sheets("04").Range("X" & m), "hhmm"))
      Range("A" & n) = Left(Range("A" & n), 50) & hh & Right(Range("A" & n), Len(Range("A" & n)) - 58)
    End If
  Next m
Next n
End Sub

 

[matrix]

Re : RechercheV spécial VBA

Merci,

Je fais le test et je reviens.

 

[matrix]

Re : RechercheV spécial VBA

Super, ca fonctionne tres bien.

J'ai voulu faire un test avec un autre option avec le même fichier, mais au lieu de remplacer, il ajoute la donnée de la colonne U et W.

For n = 2 To Range("A65536").End(xlUp).Row
  For m = 2 To Sheets("10").Range("A65536").End(xlUp).Row
    If Left(ActiveSheet.Range("A" & n), 5) = Sheets("10").Range("B" & m) And Mid(ActiveSheet.Range("A" & n), 12, 2) = CStr(Sheets("10").Range("D" & m)) Then
      DD = Format(Sheets("10").Range("U" & m), "00" & Format(Sheets("10").Range("W" & m), "00"))
      Range("A" & n) = Left(Range("A" & n), 45) & DD & Right(Range("A" & n), Len(Range("A" & n)) - 47)
     
    End If
  Next m
Next n

Dans la colonne U et W, il y a la valeur Jour ex: 25 pour le 25.

Sauf que maintenant, il laisse la valeur déja entre 45 et 47, puis ajoute la nouvelle journée.

Voici un exemple:

Avant:
01517 G1514013700 606 5814 319062609111301230ND$$10.63 5062409N

Apres:
01517 G1514013700 606 5814 31906262509111301230ND$$10.63 5062409N

matrix