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

 

[pierrejean]

Re : RechercheV spécial VBA

Re

Un fichier S.T.P

 

[matrix]

Re : RechercheV spécial VBA

Et voici le fichier avec la combinaison des 2 macro.

 

[pierrejean]

Re : RechercheV spécial VBA

Re
Il faut choisir entre la valeur de la colonne U et celle de la colonne W
Dans ton exemple elles sont identiques
Voila la macro pour inserer la valeur de la colonne U

 

[matrix]

Re : RechercheV spécial VBA

ok

j'avais une partie en trop:

 DD = Format(Sheets("10").Range("U" & m), "00") '& Format(Sheets("10").Range("W" & m), "00"))

'& Format(Sheets("10").Range("W" & m), "00")

Super, merci pout ton aide.

Bonne journée.

matrix 🙂

 

[matrix]

Re : RechercheV spécial VBA

Bonjour a tous,

Je voullais savoir si apres avoir roulé ce script, s'il pouvais m'afficher le nombre de modifications qu'il y a eu pendant cette opération.

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" 
      Range("A" & n) = Left(Range("A" & n), 45) & DD & Right(Range("A" & n), Len(Range("A" & n)) - 47)
     
    End If
  Next m
Next n

Est-ce possible?

Comment faire?

matrix

 

[matrix]

Re : RechercheV spécial VBA

Re bonjour,

est-ce possible? si oui, comment faire s.v.p?

j'avais ajouté:

If Left(ActiveSheet.Range("A" & n), 5) = Sheets("10").Range("B" & m) then
msgbox" Changé"

Mais je voudrais avoir un nombre de changement et non a chaque fois qu'il fait un changement.

matrix

 

[skoobi]

Re : RechercheV spécial VBA

Bonjour,

il suffit d'ajouter un "compteur" qui s'incrémente chaque fois que la condition est remplie:

[COLOR=Blue][B]Cpte = 0[/B][/COLOR]
[COLOR=Blue][B][COLOR=Blue]For .....
[/COLOR][/B][/COLOR]If Left(ActiveSheet.Range("A" & n), 5) = Sheets("10").Range("B" & m) then
[COLOR=Blue][B]Cpte = Cpte + 1[/B][/COLOR]
msgbox" Changé"
[B][COLOR=Blue]End If[/COLOR][/B]
[COLOR=Blue][B]Next[/B][/COLOR]
[COLOR=Blue][B]msgbox "Nbre de changement: " & Cpte[/B][/COLOR]

 

[matrix]

Re : RechercheV spécial VBA

Super merci beaucoup.

Ça fonctionne. 🙂