Discussion :

[WiiD2]

Bonjour,

Un petit moment que je n'étais pas confronté à un probleme sur VBA et ne me souvenant plus de mes accès, me revoici avec un nouveau compte !

J'ai trouvé de nombreux sujets mais aucun ne répondait tout à fait à mon problème, je me permets donc de faire appel aux services des connaisseurs du coin !

Voici donc le sujet qui me pose problème :

J'ai dans un fichier Excel 2 onglets :
- le premier avec une petite liste de noms en colonne "A" (il n'y a d'ailleurs que ca)
- le second avec une enorme liste de noms de toutes sortes bien plus conséquentes complètement rempli

J'aimerai qu'en appuyant sur un bouton présent au sein de l'onglet n°1, la macro prenne le premier nom de la liste de l'onglet 1 et aille chercher celui-ci au sein de l'onglet n°2 (comme si je faisais un simple "Ctrl+F") .

Si une cellule contenant le nom est trouvée, j'aimerai que celui-ci soit rapporté dans la colonne "B" à coté du nom cherché initialement dans l'onglet n°1.
S'il ne trouve rien, alors on écrairait en colonne "B" => non trouvé dans l'onglet n°1.

L'opération serait répétée sur les autres noms de la liste de l'onglet n°1.

Encore merci à tous pour votre précieuse aide !
alex

[WiiD2]

une personne m'a aidée sur un autre forum, je fais profiter donc de la solution ! merci à VDavid

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
Sub chercher()
 
Dim Cel, myRange, c As Range
 
With Sheets("Noms à chercher")
Set myRange = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
For Each Cel In myRange
 
     Set c = Sheets("Base de noms").Cells.Find(Cel.Value, , xlValues, xlPart)
        If Not c Is Nothing Then
        Cel.Offset(0, 1).Value = c.Value
        Else
        Cel.Offset(0, 1).Value = "Nom non trouvé"
    End If
Next Cel
End With
End Sub