Accélérer mon programme

Version imprimable

Bonjour,

Question qui va paraître bête mais je suis face à un tableau 1 qui contient

Colonne A : un nombre
Colonne B : un nom

Dans une seconde feuille, je souhaiterais que, lorsque l'utilisateur rentre un nombre le programme recherche dans la longue liste (plus de 200 termes) quel est le nom correspondant..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Z = 1 Do 'On utilise "i" pour remplir les cellules dans la sheet bilan ; on utilise J pour balayer toutes les données de la sheet base_données For i = Z + 2 To Z + 3 For J = 1 To 25 If Worksheets("Bilan").Range("B" & i).Value = Worksheets("Base_données").Range("A" & J).Value Then Worksheets("Bilan").Range("C" & i).Value = Worksheets("Base_données").Range("B" & J).Value Z=Z+1 Loop until Z=40
Ce programme fonctionne mais il est extrêmement long.. J'ai essayé de passer par des tableaux virtuels mais je n'arrive pas à mes fins, quelqu'un aurait une idée?

Merci

22/04/2015, 12h53
antonysansh

Bonjour konig69,

Par rapport à ce que tu veux faire, une macro est-elle vraiment utile ?
Une simple RECHERCHEV ne suffit ?
22/04/2015, 13h00
konig69

Re-bonjour,

Celà marche effectivement parfaitement..

Je ne connaissais même pas.. Merci beaucoup :-)
22/04/2015, 13h02
Philippe Tulliez

Bonjour,
Je suis absolument d'accord avec Antony.
Cependant s'il est impératif de passer par du VBA (Exercice imposé, etc.)
Utilise la dite formule avec la propriété WorksheetFunction (Application.WorksheetFunction.VLookup) ou encore la méthode Find. (Boîte de dialogue - Rechercher).
L'enregistreur de macros te donnera le code à utiliser