recherche d une valeur et copie sous excel

recherche d une valeur et copie sous excel - VB/VBA/VBS - Programmation

Marsh Posté le 27-04-2007 à 16:01:15    

Bonjour,  
 
pour resumer j ai 2 feuilles excel, dans l'une des reference avec des quantites et dans l'autre des references avec des part-number .
 
En fait je veux copier les part-number dans ma feuille de quantites pour avoir reference/part-number/quantité
 
sachant que j 'ai des references qui n'ont pas de part-number associes.
 
j ai pensé a faire un truc comme ca :

Citation :

i = 0
j = 0
 
Debut
    i = i + 1
    j = 0
        Recherche
        j = j + 1
        si j = 256 goto fin
        si Feuil4.ColonneB.cellule(i) = Feuil5.ColonneA.cellule(j)
        copie Feuil5.ColonneB.cellule(J) dans Feuil4.ColonneA.cellule(i)
        sinon goto Recherche
    GoTo Debut
     
Fin


 
forcement sous vba ca marche pas  
 
quelqu'un peu il m aider ?


---------------
pluralitas non est ponenda sine necessitate
Reply

Marsh Posté le 27-04-2007 à 16:01:15   

Reply

Marsh Posté le 27-04-2007 à 16:06:47    

ici il te manque juste un passage de l'algo à la prog, c'est bien ca ?
 
regarde si cathyastuce peut t'aider...

Reply

Marsh Posté le 27-04-2007 à 19:05:56    

Bonjour à tous
 
Si j'ai bien compris, teste et tu nous dis
 

Citation :


Sub copie02()
Sheets("Feuil1" ).Activate
Range("a1" ).Select
For i = 0 To ActiveCell.End(xlDown).Row
    ref = ActiveCell.Offset(i, 0).Value
    On Error Resume Next
    ActiveCell.Offset(i, 1).Value = WorksheetFunction.VLookup(ref, Sheets("Feuil2" ).Range("a1:b500" ), 2, 0)
Next i
End Sub


 
bien entendu, les "part-number" sont en Feuil2 et 2ème colonne, à toi d'adapter
 
Eric

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed