Salut le forum

Je viens de rencontrer un ptit souci sur un bout de programme concernant la fonction find!!!
Je recherche une valeur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
CodeArticle
dans un tableau et strictement cette valeur. Or le programme ci après me renvoie également la première valeur approchante!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
With DonneesTechniques.Worksheets("DefinitionBrut").Range("A3:A" & NbArticleDB & "")
            Set DB = .Find(CodeArticle, LookIn:=xlValues)
            If DB Is Nothing Then       'Si la pièce n'existe pas dans la base de données
                Sheets("PiecesAFabriquer").Range("A" & NumLignePAF & ":E" & NumLignePAF & " ").Interior.Color = 255
            Else
                NumLigneDB = DB.Row
                DonneesTechniques.Sheets("DefinitionBrut").Range("E" & NumLigneDB & ":L" & NumLigneDB & "").Copy
                Sheets("PiecesAFabriquer").Range("G" & NumLignePAF).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   'Collage spécial : juste valeur
                Application.CutCopyMode = False
            End If
Quelqu'un aurait-il une idée???

a bientôt

Jeanvlajean 44