Discussion :

[inho89]

Bonjour à tous,

Je suis nouveau sur le forum et je sollicite votre aide pour m'aider à résoudre un problème que je rencontre, qui je pense doit m'amener à utiliser VBA que je ne maîtrise malheureusement pas.
Voici une version simplifiée de mon problème :

Je dispose d'un fichier comprenant deux feuilles, chacune des feuilles comprenant deux colonnes (F1 et F2). Les colonnes A des deux feuilles comportent toutes des numéros, 900 numéros sur F1 et 5000 pour F2. Les 900 numéros de A (F1) existent dans A (F2).
Je souhaite donc automatiser la fonction suivante :
- rechercher les numéros de A (F1) dans A (F2) et copier le contenu des cellules B( F2) correspondantes dans B(F1).

J'espère vraiment que j'aurai été suffisamment clair.
Merci à tous par avance.

[Marc-L]

Bonjour,

possible sans code avec une simple fonction de feuille de calculs documentée dans l'aide d'Excel : RECHERCHEV …



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Thautheme]

Bonjour le fil, bonjour le forum,

Je te conseille vivement la proposition de Marc mais comme je n'aime pas les formules voici une proposition VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro1()
Dim F1 As Worksheet
Dim F2 As Worksheet
Dim TC As Variant
Dim I As Integer
 
Set F1 = Sheets("Feuil1")
Set F2 = Sheets("Feuil2")
TC = F1.Range("A1").CurrentRegion
For I = 1 To UBound(TC)
    If TC(I, 1) <> "" Then
        Set r = F2.Columns(1).Find(TC(I, 1), , xlValues, xlWhole)
        If Not r Is Nothing Then
            F1.Cells(I, 2).Value = r.Offset(0, 1).Value
            Set r = Nothing
        End If
    End If
Next I
End Sub

[inho89]

Génial, un grand merci à vous deux et désolé de vous avoir dérangé pour apparemment si peu.
Je teste ça ASAP, mais je pense que la version VBA sera plus adaptée à mon problème réel, que j'ai beaucoup simplifié pour pouvoir l'expliquer sur le forum.
Encore une fois merci.