Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1214 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche d une valeur et copie sous excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

recherche d une valeur et copie sous excel

n°1550692
sebbes
Hé Ho
Posté le 27-04-2007 à 16:01:15  profilanswer
 

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
mood
Publicité
Posté le 27-04-2007 à 16:01:15  profilanswer
 

n°1550699
jpcheck
Pioupiou
Posté le 27-04-2007 à 16:06:47  profilanswer
 

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

n°1550764
eric455
Posté le 27-04-2007 à 19:05:56  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche d une valeur et copie sous excel

 

Sujets relatifs
problème: Pagination moteur de rechercheexpect + tester valeur retour d'un script
recherche fonction HTML TO XMLRecherche Site e-commerce avec panier virtuel fictif
Faire apparaitre un Bouton d'une macro sous excel sous conditionImpression avec Excel dans un fichier externe
Ecriture dans un fichier ExcelVBA - Détecter commande "Imprimer" dans Excel
Executer une macro VBA excel sans excelMise en forme avec macro sous excel (Résolu)
Plus de sujets relatifs à : recherche d une valeur et copie sous excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR