Discussion :

[MatDub]

Bonjour à tous,

Je vous expose mon problème..

Dans le fichier excel ci-joint, je dois récupérer le champ "nom" associé au champ "Num" de la feuille 2 et le copier en face le bon "num" dans la colonne A de la feuille 1..

Je précise que cela doit être fait en VBA en cliquant sur le "bouton1" du fichier en utilisant une boucle pour rechercher les valeurs de toutes les lignes.

J'ai cherché du côté de la fonction =RECHERCHE et =DECALER mais en VBA je n'y arrive pas du tout !

Merci d'avance pour votre aide.

M@t

[Menhir]

En A2, Feuil1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDEX(Feuil2!A$2:A$6;EQUIV(B2;Feuil2!B$2:B$6;0))

Copie A2 en A2:A6.

Et tu peux supprimer le bouton.

[Pierre Fauconnier]

Salut

Vu que

[...]

Je précise que cela doit être fait en VBA[...]

Je vais te proposer une solution VBA et non une solution Excel...

Ceci dit, il n'est pas intéressant de travailler par boucle. Tu pourras traiter beaucoup plus rapidement les données en utilisant ce qu'Excel met à ta disposition, à savoir les tables de données. Il te suffit alors de singer Excel en VBA, et c'est là que l'utilisation d'une table de données va s'avérer payante.

Avec la configuration de tables suivante, ton problème est résolu en une seule ligne de code, puisque tu vas utiliser les plages nommées correspondant aux colonnes de ton tableau. Il suffit donc simplement d'utiliser un INDEX/EQUIV, mais en VBA... Au vu du tag de version, il faudra peut-être adapter les syntaxe des références structurées car XL2007 était assez verbeux à ce niveau-là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub FillNames()
  Range("t_Resultat[Nom]").Formula = "=index(t_noms[nom],match([@Code],t_noms[Numero],0))"
End Sub

Plus simple que ça? Je n'ai pas, désolé

Tu peux remarquer que l'intérêt de réaliser cela comme je le montre, c'est que tu peux déplacer tes tableaux où tu veux, même sur d'autres feuilles du classeur, et y mettre autant de lignes que tu veux, ça fonctionnera sans aucune modification de ton code. Remarque également que j'ai bien pris toute la colonne de destination, afin de contraindre Excel à bien placer la formule sur toutes les lignes.

Normalement, avec une table de données, Excel est capable, si rien ne l'en empêche, de recopier tout seul sur toutes les lignes la formule placée dans n'importe laquelle des cellules de la colonne. C'est ce qu'Excel appelle une colonne formulée. Mais il se pourrait qu'Excel ne puisse pas traiter la formule comme étant formulée, et c'est pourquoi je force le passage en sélectionnant la colonne.

Au delà, au vu du libellé de ta question, je subodore un exercice d'examen de seconde session proposé par un prof qui n'a pas compris comment fonctionne Excel et VBA...

[MatDub]

Bonjour,

Tout d'abord merci à tous les deux pour votre aide, j'ai réussi a adapté le code de Menhir à mon code VBA après avoir pas mal galéré.. et ça fonctionne bien.

Mais c'est vrai que ta solution est beaucoup plus simple que mon usine à gaz Pierre ! ce code est très instructif pour mon niveau, merci beaucoup, je vais pouvoir améliorer ma macro

Encore merci pour votre aide, vous êtes top