[VBA-E] Copier le mot d'une colonne

Version imprimable

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:

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...

Comment veux-tu afficher le nom "après" la recherche ? sResult doit être un tableau si tu veux utiliser son adresse ensuite

Code:

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
41
Sub recherche()
Dim wk As Workbook
Dim c As Range ' Resultat de la recherche
Dim mot 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 = ActiveWorkbook
    Set wk = Workbooks.Open("file://localhost/users/sebneb/Desktop/liste.xls")
    'Effectue recherche dans 1° feuille du classser
    'Sheets(1).Visible = False
    With wk.Sheets(1).Range("b:b")
    Set c = .Find(What:=mot, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                i = i + 1
                ReDim Preserve sResult(i)
                sResult(i) = c.Address
                '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 UBound(sResult) > 0 Then
     For i = 1 To UBound(sResult)
          MsgBox Cells(Range(sResult(i)).Row, 1)
     Next
   ElseIf sResult(1) <> "" Then
     MsgBox sResult(1)
   Else
       MsgBox mot & " Introuvable"
End If
    ' Load Recherche  'recherche correspond sur cette ligne au nom de la userform1
     ' Recherche.Show ' meme chose recherche...
    'wk.Close False ' Fermetur de classeur sans sauvegarde...
   Application.ScreenUpdating = True 'Réactive l'affichage
End Sub

A+

NB - C'est malin, en cours de mise au point de terminer sa procédure par

Code:

wk.Close False

Premier essai après toutes les modifs -> fermeture du fichier sans sauvegarde -> Youki content. T'as bien failli ne rien avoir :evilred:

09/02/2007, 09h05
sebneb

pour le moment je voudrais un truc simple, juste afficher les résultats dans une msgbox... mais avoir tous les noms en même temps... et non les afficher 1 par 1

@+

je vais tester le programme que tu m'as filé... merci

sinon c'est normal que je ferme la page dans laquelle j'effectue la recherche sans sauvegarder car je ne fais que lire des données donc je n'ai pas intérêt à sauvegarder... Ma macro se trouve sur une autre feuille d'un autre classeur...
@+
09/02/2007, 11h49
sebneb

Le programme est bon, ça affiche ce que je veux mais comment faire pour afficher toutes les réponses en même temps dans une msgbox et non comme le programme 1 réponse par réponse...

Code:

1 2 3 4 If UBound(sResult) > 0 Then For i = 1 To UBound(sResult) Msg = Msg & vbcr & Cells(Range(sResult(i)).Row, 1) Next
et après la fin de la boucle, tu affiches

Code:

msgbox msg

mais faut une variable de plus :mouarf:

09/02/2007, 12h08
sebneb

j'avais essayé de rajouter une variable mais moi ça ne marchait pas... donc je vais tester ta ligne à rajouter mais bon je sais que tu as raison...;)
09/02/2007, 12h11
ouskel'n'or

Attention, pas plus de 255 caractères dans ton msgbox ;) sinon faudra partager...
09/02/2007, 12h23
sebneb
je viens de tester et ça marche... ça marche à 50%... je sais je suis chiant...

lorsque j'effectue la recherche il y a une erreur. Je m'explique :

dans la colonne ville : j'ai par exemple :
paris
marseille
lyon
st étienne
parmin
lille
nantes

lorsque je recherche la ville paris j'obtiens dans la msgbox la ou les personnes habitant dans paris.
Mais si je fais la recherche du "n", au lieu d'avoir aucune réponse j'obtiens ça :
lyon
st étienne
parmin
nantes

en gros j'obtiens toutes les peronnes vivant dans une ville où il y a un "n" dedans.

donc moi je voudrais qu'il assimile le "n" à une ville et non comme une lettre
Code:

1 2 Set c = wk.Sheets(1).Cells.Find(What:=mot, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
donc au lieu de mettre LookAt:=_xlpart j'ai mis LookAt:=_xlwhole

mais j'obtiens une erreur donc si quelqu'un pouvait m'aider...

un grand merci d'avance
09/02/2007, 12h38
ouskel'n'or

C'est pourtant la solution que je t'aurais proposée
Où l'erreur et laquelle ? (le texte, pas le N° ;) )
A+
09/02/2007, 12h56
sebneb

lorsque j'exécute le programme en ayant fait la modif, j'obtiens ça :

le message suivant :

"erreur d'exécution '9' :
indice en dehors de la plage "

donc je clique sur débogage et ça me surligne en jaune la ligne de code suivante avec une flèche jaune à gauche :

Code:

If Ubound (sResult)>0 then

voila donc si t'as une idée sur l'erreur...
12/02/2007, 21h43
sebneb

recoucou tout le monde... je n'ai pas réussi à régler mon problème donc je voudrais savoir si quelqu'un n'aurait une petite idée pour me dépanner...
12/02/2007, 22h44
ouskel'n'or
Ce n'est pas LookAt:=_xlwhole mais LookAt:=xlwhole
Je pense que l'erreur est sur la ligne suivante car Find ne trouve rien.
le trait ser dans le code à permettre un renvoi à la ligne suivante.
Ainsi tu peux faire ça
Code:

1 2 3 4 Sheets(1).Cells.Find(What:=mot, _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlwhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False)
mais si tu supprimes un retour à la ligne, tu dois supprimer le trait
A+
12/02/2007, 23h03
sebneb

Salut,
je viens de tester et j'obtiens la même erreur... l'erreur ne vient pas de cette ligne. J'ai mis le "_" car je suis en fin de ligne sur ma ligne de code mais en recopiant dans mn message j'ai oublié de l'enlever...
12/02/2007, 23h16
sebneb

j'ai remarqué qu'en fin de compte que le problème ne venait pas du "xlwhole" mais de la recherche... elle plante lorsqu'elle ne trouve rien...

sinon j'ai une question : au lieu de faire la recherche sur l'ensemble d'une cellule et il possible de faire la recherche que sur un mot de cette cellule...

par exemple :

j'ai la ville de La celle saint-cloud. Si je ne tape pas exactement le nom de la ville alors il ne le détectera pas. Est-il possible d'avoir un intermédiaire et lorsque je tape par exemple le mot "celle" que ça me sorte le nom de la ville de la celle saint-cloud...

merci d'avance

Pour l'erreur dans la recherche:
Code:

1 2 3 4 5 6 Set c = wk.Sheets(1).Cells.Find(What:=mot, _ After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlwhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False) If Not c is Nothing Then ' Suite du traitement
Edit ==> Je viens de voir que tu l'avais déjà fait.

Pour ton tableau, comme je ne vois pas la déclaration, je te propose:

Code:

Redim sResult(0)

quelque part avant ta boucle contenant le Redim Preserve.