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.

[Theze]

Bonjour,

Ton code fonctionne mais il te faut contrôler si X a été initialisée donc, si une cellule à été trouvée avec la valeur cherchée, dans le cas contraire ta variable est à "Nothing" et donc plantage.

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
18
19
20
21
22
23
24
25
26
27
28
 
Sub Formule_test()
 
    Dim C As Range, Plage As Range, X As Range
 
    With Sheets("base")
 
        Set Plage = .Range(.Cells(2, 5), .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)
 
            If Not X Is Nothing Then
 
                C.Offset(, 19).Value = .Cells(X.Row, 167).Value    'mis 19  pour  l'ecart entre E et X
 
            End If
 
        Next C
 
    End With
 
End Sub

Pour ma part, je suis d'avis que quand on défini une plage, il est plus "propre" de ne pas mélanger les adresses en string et les cellules(ligne, colonne) donc, ça :

Code :

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

1
2
 
Set Plage = .Range(.Cells(2, 5), .Cells(.Rows.Count, 1).End(xlUp))

au lieu de ça :

Code :

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

1
2
 
Set Plage = .Range("E2", .Cells(.Rows.Count, 1).End(xlUp))

ou alors ça :

Code :

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

1
2
 
Set Plage = .Range(.Range("E2"), .Range("A" & .Rows.Count).End(xlUp))

mais ceci n'engage que moi bien sûr

Hervé.

[Thautheme]

Bonjour le fil, bonjour le forum,

@Marc,
Je connais une excellente clinique qui soigne l'arthrose qui sévit dans tes doigts t'empêchant de taper plus de 100 caractères...

[Marc-L]

Merci mais aucun souci de ce côté là pour l'instant !

Disons que lorsque la solution est indiquée en clair dans l'exemple de l'aide VBA d'une méthode …

Ce qui a fonctionné pour moi convient donc aussi à d'autres !


_____________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …

[laurent27530]

These

j'ai ajusté mon code avec tes conseils le résultat est fructueux

je te remercie pour tes conseils qui m'ont permis de comprendre enfin mon erreur.


gFZT82
effectivement les mon code avait des probleme de colonnage j'ai réglé le probleme en ne mettant que l'essentiel soit 6 colonnes sur les 200.