un défi possible ?

[mic]

Voila à la recherche d'une solution, pour me faciliter la tâche, je ne suis pas parvenu à dompter VB, pourtant techniquement cela me semble simple, une "simple" boucle non ... mais ou me trompe-je ?

J'explique :
Mon but est d'arriver à avoir un tarif mis en page (que j'ai réalisé) à partir d'un "fichier en vrac". Le tout serait de coupler les deux en demandant au fichier mis en page de lire le code d'article, de vérifier si dans l'autre feuille le premier article correspond à cette numéro d'article, si oui indiquer le prix
sinon aller à l'article suivant, jusqu'a ce que l'article soit trouvé. Puis de passer à l'article suivant, et idem.


ex :
LE FICHIER NON MIS EN PAGE DONNE :

art prix :

225001 3
225002 2
225003 1


LE FICHIER MIS EN PAGE :

225003 Superbe processeur 8086 .... au prix de (et ici doit s'afficher 1)

Voici ce que j'ai fait pour essayer sur une même feuille de calcul :

Sub test ()
For i= 4 to 7
If range("Ci") = range("ai") then range("Di") = range("Bi")
Do while range("ci") = range("ai")
next i
end sub

Merci de votre aide ...

 

[Lord Nelson]

Salut,
Ceci devrait mieux fonctionner :

Sub test ()
Dim I as Integer
For I= 4 to 7
If range("C" & Cstr(I)).Value = range("A" & Cstr(I)).Value then
range("D" & Cstr(I)).Value = range("B" & Cstr(I)).Value
next i
end sub

Ta boucle Do While est inutile.
A+
LN