Discussion :

[Toad08]

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.
Si vous avez la soluce ?!!!
Merci

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[ouskel'n'or]

Pour parcourir la première liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Abed_H]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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