Discussion :

[laurent27530]

J'ai un souci avec la requête s il n y 'a pas de correspondance le script s'arrête.

Ai je fais une erreur en l'adaptant

je veux rechercher la valeur de la colonne E de l'onglet base
je veux afficher la valeur se trouvant dans la Colonne FL de l'onglet référence.
Afficher la valeur trouver dans l'onglet de référence dans la colonne X de l'onglet de Base

actuellement si le script ne trouve pas de correspondance il s'arrete
Ce que je voudrais c'est que le script affiche "non référencé"

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 Formule_test()
 
Dim C As Range, Plage As Range, X As Range
With Sheets("base")
    Set Plage = .Range("E2", .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("référence")
    For Each C In Plage
        Set X = .[A:A,B:B,D:D].Find(C.Value, , , xlWhole)
        C.Offset(, 19).Value = .Cells(X.Row, 167).Value    'mis 19  pour  l'ecart entre E et X 
    Next C
End With
End Sub

[Marc-L]

Mauvaise utilisation de la méthode Find, voir le code d'exemple de son aide …





__________________________________________________________________________________________________
Tous unis, tous Charlie

[laurent27530]

Je ne trouve pas mon erreur

[Marc-L]

Juste en comparant avec l'exemple de l'aide …

[laurent27530]

Je n'ai pas trouvé mon erreur je vais m'en passer et alourdir mon code

[gFZT82]

Bonjour,

Es-tu sûr que la colonne 167 correspond à la colonne FL ?

Essaie avec :

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
Sub Formule_test()
Dim C As Range, Plage As Range, X As Range
 
    With Sheets("base")
        Set Plage = .Range("E2:E" & .Range("E" & Rows.Count).End(xlUp).Row)
    End With
 
    With Sheets("référence")
        For Each C In Plage
            Set X = .Columns("A:C").Find(C.Value, , xlValues, xlWhole)
            If Not X Is Nothing Then
                C.Offset(, 19).Value = .Cells(X.Row, "FL").Value
            End If
        Next C
    End With
 
End Sub

Cordialement.