Probléme VBA Excel

cs_Ledaf Messages postés 22 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 26 septembre 2008 - 22 oct. 2007 à 15:49
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 - 24 oct. 2007 à 02:27
Bonjour à tous,
j'ai un nouveau un petit problème avec le fichier que je dois créer.
Voilà, mon fichier contient 3 feuilles:
- la 1ère contient la liste de base de tous les équipements
- la 2nde contient aussi une liste d'équipements mais plus récente
- la 3ème est une feuille sur laquelle je fait divers opérations

Mon but est de comparer la 2nde feuille à la 1ère et d'envoyer les nouveaux équipements vers la 3ème feuille.
Pouvez vous m'aider?

Ledaf

5 réponses

cs_ws Messages postés 5 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 21 juillet 2008
22 oct. 2007 à 16:22
Salut Ledaf,

Tu dois le faire obligatoirement en VBA? Sinon dans ton 3ème onglet tu peux le faire avec un RECHERCHEV non?

Will
0
cs_Ledaf Messages postés 22 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 26 septembre 2008
22 oct. 2007 à 16:36
bé oé j'y avais pensé, mais c'est plus compliqué que ça en fait car les équipements ont différents niveaux, et je ne dois en garder que certains! Et ceux que je supprime je dois les garder et les conserver dan un autre onglet afin de ne pas avoir à les supprimer à chaque fois lorsque je mets à jour la base équipements. Tu vois un peu le bordel!!
T'aurai pas plutôt une petite idée en VBA???

Ledaf
0
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
22 oct. 2007 à 23:34
Ça prendrait plus de détails...
Quels sont les critères pour que ce soit de nouveaux équipements ?

Le principe serait de boucler le premier onglet (For i = 1 to Fin)
et faire un Find dans le 2e onglet pour retrouver la valeur
Set Recherche = Sheets("Feuil2").Column(numéro).Find(range(LaColonne))
If Not Recherche Is Nothing then ' la valeur est trouvée

Mais encore là, s'il y a moins de lignes dans le 2e onglet, ce sera probablement plus rapide de boucler ce 2e onglet en recherchant dans le 1er avec Find...

MPi²
0
cs_Ledaf Messages postés 22 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 26 septembre 2008
23 oct. 2007 à 11:17
Eh bien en fait la colonne A de chaque feuille contient la désignation spécifique de chaque équipements. Mon but est de comparer cette désignation provenant de la feuille 2 avec les désignations de la colonne A de la feuille 1, et d'envoyer ainsi les équipements nouveaux vers la feuille 3.
Tu crois que tu pourrai me détailler un peu plus ta solution stp??

Ledaf
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 23
24 oct. 2007 à 02:27
Alors, fais comme je te disais.
Utilise une boucle dans la feuille 2 de la première à la dernière ligne, et à chaque tour de boucle tu utilises FIND pour rechercher la valeur en A de la feuille 1

PS: il manquait un s à "column" dans mon exemple...

Est-ce que ça aide un peu ?
Sinon, il faudrait mettre le bout de code où ça coince.

MPi²
0
Rejoignez-nous