Bonsoir,

je voudrais réaliser une macro permettant de copier le mot présent dans une colonne. Je m'explique.

J'ai dans la colonne A des noms de personnes. Dans la colonne B la ville où habitent ces personnes.
Sur une autre feuille excel, je veux faire apparaître dans une msgbox les noms des personnes habitant dans une ville. Donc la recherche porte sur la ville mais moi je veux voir apparaître le nom de la personne.

Merci d'avance

J'ai ce bout de code pour faire ma recherche mais je n'arrive pas à afficher les noms correspondant à la ville...

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Sub recherche()
 
 Dim wk As Workbook
  Dim c As Range ' Resultat de la recherche
  Dim mot As String, sResult As String
  sResult = ""
  mot = InputBox("saisissez la ville")
  Dim f As Worksheet 'Feuille dans laquelle effectuer la rechercher
  Application.ScreenUpdating = False
  'Ouverture du classeur :
  Set wk = Workbooks.Open("file://localhost/users/sebneb/Desktop/liste.xls")
  'Effectue recherche dans 1° feuille du classser
  Sheets(1).Visible = False
   Set c = wk.Sheets(1).Cells.Find(What:=mot, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
 
     With Worksheets(1).Range("b:b")
    Set c = .Find(mot, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
          '  sResult = sResult & c.Value & vbCrLf
           sResult = sResult & c.Value & vbLf
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 
End With
    If sResult <> "" Then
        MsgBox sResult
    ' Load Recherche  'recherche correspond sur cette ligne au nom de la userform1
     ' Recherche.Show ' meme chose recherche...
    Else
       MsgBox mot & " Introuvable"
    End If
    wk.Close False ' Fermetur de classeur sans sauvegarde...
   Application.ScreenUpdating = False  'Réactive l'affichage
 
End Sub
voila donc si vous pouviez m'aider je serai super content...
un grand merci d'avance...