Recherche et copier/coller sur une autre feuille

Version imprimable

18/02/2009, 15h08
AzelRoth

Recherche et copier/coller sur une autre feuille

Bonjour,

Voila je débute en VB Excel et j'ai quelques soucis, certains sont déjà résolu via le tatonement. Mais là je bloque complétement.

Le but de ma macro est de faire une recherche sur ma feuille 3. Sur celle-ci j'ai 2 colonnes qui sont utilisées la A et la B. Sur la A, j'ai des champs dans mes cellules, je dois faire une recherche sur le contenu celles-ci et mon problème est le suivant: j'ai un champ par cellule et certains m'interesse plus que d'autres. j'ai plusieurs cellules dans ma colonne A qui ont le champ n ou n1 ou n2, ou n20, j'ai un unique n et ensuite des n1 ou n2 ou n20 (ils sont toujours uniques). Je n'arrive pas à faire une recherche correcte pour me les envoyer en colonnes sur la feuille 2. J'ai essayer un pattern dessus et le problème est qu'il me retourne un booléen. Le like ne fonctionne pas non plus.
Que faire? Si quelqu'un avait une idée sur la méthode ou l'opérateur à utiliser cela m'aiderait beaucoup.
Merci à vous.

Bonjour,

Je n'ai vraiment le temps de me plonger dans le codage mais j'ai ce code que j'utilise pour faire une recherche entre deux fichiers, tu peux vérifier s'il est possible de l'adapter à ton cas.

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
Sub RechercheDeuxFichiers()
 
    Dim i As Long
    Dim shDans As Worksheet
    Dim shRecherche As Worksheet
    Dim c As Range
    Dim Recherche
 
    Set shDans = Workbooks("Liste # achem 31-01-2009.xls").Worksheets("Liste")
    Set shRecherche = Workbooks("CIBC0412 2008-12.xls").Worksheets("CIBC0412")
    For i = 2 To shRecherche.Range("B65536").End(xlUp).Row
 
        Recherche = shRecherche.Cells(i, 2)
        If Recherche <> "" Then
            With shDans.Range("B:B")
                Set c = .Find(Recherche, LookIn:=xlValues)
                If Not c Is Nothing Then
                    shRecherche.Cells(i, 1) = shDans.Cells(c.Row, 3)
                Else
                    shRecherche.Cells(i, 1) = "pas trouvé"
                End If
                Set c = Nothing
            End With
        End If
 
    Next i
End Sub

Si tu as des questions n'hésite pas!

19/02/2009, 12h33
AzelRoth

Ok, je te remercie je vais tester ça et modifier quelques lignes de ton code. Par contre pourrais tu m'expliquer un peu ce code stp. Merci

Bonjour,

Voici mon code commenté!

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
42
43
44
45
46
47
Option Explicit
'J'utilise cette fonction pour faire la recherche d'un fichier à un autre. J'ai un fichier avec
'Des noms et des identifiants (exemple) et un autre avec des identifiants et des adresses.
'Avec cette macro, je peux aller chercher les adresses du deusième fichier et les ajouter a droite
'dans le premier fichier pour avoir nom, identifiant, adresse.
Sub RechercheDeuxFichiers()
 
    Dim i As Long
    Dim shDans As Worksheet
    Dim shRecherche As Worksheet
    Dim c As Range
    Dim Recherche
 
'shDans correspond "dans quoi" on fait la recherche.
    Set shDans = Workbooks("Liste # achem 31-01-2009.xls").Worksheets("Liste")
'shRecherche correspond à la recherche même.
    Set shRecherche = Workbooks("CIBC0412 2008-12.xls").Worksheets("CIBC0412")
'Une boucle de la ligne 2 (tu peux changer la ligne de départ) à la dernière ligne
'remplie de la recherche à faire.
    For i = 2 To shRecherche.Range("B65536").End(xlUp).Row
 
'    Ce que je recherche. Le 2 est pour la colonne recherché (ici mes identifiant de mon premier fichier.
        Recherche = shRecherche.Cells(i, 2)
'    Facultatif, Si la recherche est vide, passe à la prochaine ligne.
        If Recherche <> "" Then
'           Si tu ne connais pas le With, va voir l'aide.
'           Mon range B:B, il fait la recherche dans cette colonne (identifiants du deuxieme fichier).
            With shDans.Range("B:B")
'            Set c l'emplacement trouvé de la recherche (un Range)
                Set c = .Find(Recherche, LookIn:=xlValues)
'            Si c n'est pas rien, alors je prends la ligne de l'emplacement trouvé et
'           l'utilise pour remplir mon champ dans ma feuille recherche.
'           Copie et colle l'adresse du deuxième fichier qui correspond à l'identifiant correspondant
'           au premier fichier dans la colonne 3.
                If Not c Is Nothing Then
                    shRecherche.Cells(i, 3) = shDans.Cells(c.Row, 2)
'           si pas trouvé, alors il inscrit.
                Else
                    shRecherche.Cells(i, 3) = "pas trouvé"
                End If
'           renvoie c nothing pour initialiser (pas certain que c'est obligatoire).
                Set c = Nothing
            End With
        End If
 
    Next i
End Sub

N'hésite pas pour poser des questions!

20/02/2009, 10h21
AzelRoth

Merci pour tes explications, c'est cool, j'y vois plus clair dans le code.
Je n'ai que quelques modifications à faire et ça devrait être bon.
Merci pour le temps passer sur le sujet.