B
ben
Guest
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 !
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 !