Aide sur la fonction Find

Version imprimable

27/03/2008, 19h43
Toad08

Aide sur la fonction Find

Bonsoir,

Voila, j'ai une liste de 15 noms sur une feuille Excel. J'ai une liste de 10 noms sur une autre feuille. Avec mon code je lui demande pour chacun des noms de la 1ère feuille de copier la valeur associée sur cette 2ème lorsqu'il trouve le meme nom.
Ce que j'aimerais c'est que lorsqu'il ne trouve pas le meme nom sur la 2ème feuille, qu'il passe au nom suivant de la 1ère feuille. Et ainsi de suite.
J'avais pensé à un truc du Genre : "On Error GoTo" et je le fait passer à la ligne suivante de la 1ère feuille mais le souci c'est que cette fonction marche pour tout le code .... enfin je crois. :roll:
Si vous avez la soluce ?!!!
Merci

si tu conditionne ton code au résultat de la recherche, il n'y a pas de raison
Code:

1 2 3 4 5 6 7 8 départ de ta boucle sur feuille 1 with sheets(2) set c = .find(blablabla ....) if not c is nothong then ici ta boucle pour trouver les valeurs associer end if retour a ta boucle sur feuille 1
(code en rédaction libre a la louche et sans test ) mais normalement en y mettant la bone syntaxe, ça devrait le faire

27/03/2008, 19h59
Toad08

Le truc c que ce que tu a ecrit ... c'est exactement ce que j'ai fait mais après
3 boucle (par exemple) il enregistre le nom de la feuille 1 et vu qu'il le trouve pas sur la feuille 2 il m'ecrit ... ERROR !!!! et il s'arréte tu vois.

Pour parcourir la première liste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub LesNoms()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim Nom As String
    Set FL1 = Worksheets("feuil1")
    Set FL2 = Worksheets("feuil1")
    For i = 1 To 15
        Nom = FL1.Cells(i, 1).Value
        If trouver(Nom, FL2) Then
            'ton code pour en faire ce que tu as à en faire de cette foutue adresse...
            '...
        End If
    Next
End Sub

Pour chercher dans la seconde

Code:

1
2
3
4
5
6
7
8
9
10
Sub trouver(LeNom As String, FL2 As Worksheet)
Dim Plage As Range
Set Plage = FL2.Range("A1:A" & Range("A65536").End(xlUp).Row)
    With Plage
        Set c = .Find(LeNom, LookIn:=xlValues)
        If Not c Is Nothing Then
             trouver = c.Address
        End If
    End With
End Sub

Bonsoir à vous tous
voici une variante parmis d'autre à tester

Code:

1
2
3
4
5
6
7
8
9
10
Sub Trouver()
Dim c As Range, cell As Range
  For Each cell In Feuil1.Range("A2:" & Feuil1.Cells _
                (Rows.Count, 1).End(xlUp).Address)
   Set c = Feuil2.Columns(1).Find(What:=cell.Value, LookIn:=xlValues)
     If Not c Is Nothing Then
        cell.Offset(, 1) = c.Offset(, 1)
   End If
 Next
End Sub

Bonne soirée

Abed_H :king:

28/03/2008, 00h11
ouskel'n'or

Bonsoir Toad08,
Autant pour moi, j'ai confondu avec une autre discussion où le nom trouvé dans la deuxième feuille était le nom d'un fichier à ouvrir. :oops:

(Bonsoir Abed_H, heureusement que tu passes derrière moi ;) )