Bonjour,
Je fais de nouveau appel à votre aide ! J'écris actuellement un script VBA permettant à partir de deux fichiers sources, de créer un autre classeur.
Le fichier source A contient l'ensemble des objets. Dans le fichier source B, nous avons répertorié tous ces objets ainsi que leurs différents paramètres (un objet par ligne)
Enfin, on obtient le fichier final C en affichant les objets présents dans le fichier A avec pour chacun ses différents paramètres (qu'on récupère dans le fichier B).
Objet = Workbooks("A").Worksheets(3).Cells(k, l).Value
Set celluletrouvee = Workbooks("B").Worksheets(3).Range("H3:H369").Find(Objet, LookIn:=xlValues)
Puis avec une simple boucle me permettant de parcourir tout le tableau A, je parviens donc à "copier coller" les objets qui m'intéressent mais je rencontre deux soucis :
1) Certains objets du fichier A sont identiques à celui du B à l'exception près que du texte est ajouté à la suite
Par exemple l'objet du fichier A s'appelle "Objet_A_48V with external signal" alors que dans le fichier B il s'appelle simplement "Objet_A_48V".
Sauriez-vous m'aider tout en utilisant la fonction Find ? J'ai essayé en ajoutant LookAt = xlPart mais ça n'a pas l'air de fonctionner...
2) Le second problème est toujours lié à une différence de nom entre l'objet du fichier A et celui de fichier B
Dans le fichier A, nous avons l'objet "Objet_test_ABC" qui représente en fait trois objets dans le fichier B : "Objet_test_A", "Objet_test_B" et "Objet_test_C".
En attente de vos réponses, merci de votre aide par avance !
Je fais de nouveau appel à votre aide ! J'écris actuellement un script VBA permettant à partir de deux fichiers sources, de créer un autre classeur.
Le fichier source A contient l'ensemble des objets. Dans le fichier source B, nous avons répertorié tous ces objets ainsi que leurs différents paramètres (un objet par ligne)
Enfin, on obtient le fichier final C en affichant les objets présents dans le fichier A avec pour chacun ses différents paramètres (qu'on récupère dans le fichier B).
Objet = Workbooks("A").Worksheets(3).Cells(k, l).Value
Set celluletrouvee = Workbooks("B").Worksheets(3).Range("H3:H369").Find(Objet, LookIn:=xlValues)
Puis avec une simple boucle me permettant de parcourir tout le tableau A, je parviens donc à "copier coller" les objets qui m'intéressent mais je rencontre deux soucis :
1) Certains objets du fichier A sont identiques à celui du B à l'exception près que du texte est ajouté à la suite
Par exemple l'objet du fichier A s'appelle "Objet_A_48V with external signal" alors que dans le fichier B il s'appelle simplement "Objet_A_48V".
Sauriez-vous m'aider tout en utilisant la fonction Find ? J'ai essayé en ajoutant LookAt = xlPart mais ça n'a pas l'air de fonctionner...
2) Le second problème est toujours lié à une différence de nom entre l'objet du fichier A et celui de fichier B
Dans le fichier A, nous avons l'objet "Objet_test_ABC" qui représente en fait trois objets dans le fichier B : "Objet_test_A", "Objet_test_B" et "Objet_test_C".
En attente de vos réponses, merci de votre aide par avance !