chaine de caractère

[ben]

bonjour le forum

j'ai un souci, je fais une recherche de correspondance entre 2 classeurs dont voici le code :

Dim bfnd As Boolean

irow = Range("B65536").End(xlUp).Row
For Each orge In Range("B2:B" & irow)
Windows("extractioncf2.xls").Activate
Worksheets("6b").Activate
If Range("C:C").Find(orge.Value, , , xlWhole) Is Nothing Then
bfnd = False
Else
orge.Offset(0, 1).Value = Range("P").Find(orge.Value, , , xlWhole).Offset(0, 1).Value

End If
Next orge


ce code fonctionne que si les valeurs et les caractère sont égaux et je cherche à prendre en compte également si on retrouve la meme chaine de caractère mais avec possiblité de carctère en + ou moins

ex :GE-372A2313 = 372A2313P001

merci de votre aide !

 

[chris]

Bonjour
xlWhole
signifie nom exact : l'aide en ligne sur ce terme devrait te donner les autres alternatives.
Chris

 

[ben]

salut chris !

Etant novice en vb le code ci-dessus je l'ai fais avec une aide qui m'avait été donné il y a quelque tps sur ce site et que j'ai réadapté un peu pour ma nouvelle situation.
Je ne sais pas kel est la correspondance par rapport à xlwhole pour retrouver une chaine de caractère contenant une partie de la chaine

 

[chris]

Re
Remplaces XlWhole par
xlPart
Voir l'aide sur la commande Find
Chris