Discussion :

[Jeanvaljean44]

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

[ouskel'n'or]

Ajoute LookAt:=xlwhole, là .............................................▼

Code :

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

Set DB = .Find(CodeArticle, LookIn:=xlValues, LookAt:=xlwhole)

[Jeanvaljean44]

Salut ouskel'n'or

Parfait ça fonctionne...

Merci beaucoup...

@+ Jeanvaljean 44