Problème avec macro Excel de recherche

Question

Bonjour,

Je fais appel à vous car je bute depuis 2 semaines sur une macro Excel permettant de rechercher des valeurs. Je vous explique :

J'ai 2 listes séparées par une ligne. La première contient des
valeurs accolées. Je souhaite pour chaque élément de la deuxième liste
parcourir la première, et récupérer la valeur accolée.

test1    10

test2    25

test3    14

test4    23

test5    12

test1

test2

test3

test4

test5

Pour le moment ma réalisation ne me permet que de renvoyer les 2 premiers champs. Mon code est lourd. Le voici :

Sub Test2()

'##Je me positionne sur la première ligne et je remplis mes
variables y et z afin d'effectuer mon parcours '###avec la boucle For

Range("A1").Select

    Selection.End(xlDown).Select

    y = ActiveCell.Row

    ActiveCell.Offset(2, 0).Select

    Z = ActiveCell.Row

    Selection.End(xlDown).Select

    x = ActiveCell.Row 

    '#####

    '###Je me repositionne au premier élément de ma deuxième liste

    Range("A1").Select

    Selection.End(xlDown).Select        

    ActiveCell.Offset(2, 0).Select

    '####

'#Je commence mon parcours###

    For i = Z To x

        SearchValue = ActiveCell.Value

    Range("C1", "C8").Select '(à adapter en fonction de la zone de recherche)

    For Each k In Selection

        If k.Value = SearchValue Then

            Range("B" & i & "").Value = k.Offset(0, 1).Value

                 'ActiveCell.Offset(1, 0).Select

            Exit For

        End If

    Next

     ActiveCell.Offset(1, 0).Select

    Next

End Sub

Donc cela ne fonctionne pas de manière optimale et pas
correctement. A terme cela sera utilisé sur une liste de 2000 éléments.
Quelqu'un pourrait m'aider ?

Merci beaucoup d'avance !!

Vinz90 · Answer

J'oubliais, pour corser un eu la chose, si dans ma première liste j'ai 2 fois par exemple test2 avec une valeur 5 puis 10, je souhaite recopier 10 dans ma 2ème liste !

test2 5
test2 10

test2 10

Vinz90 · Answer

personne pour me filer uncoup de éain ou medire ce quicloche dansmon code  ?

Problème avec macro Excel de recherche

2 réponses

Votre réponse

Discussions similaires