Tester si une valeur existe dans un tableau EXCEL

Salut à tous,:salut:

Comment peut-on vérifier si une valeur :

Code:

---

CodeArticle

---

exite dans un tableau???Car si CodeArticle n'existe pas, le code ci-après plante:aie:

Code:

---

1 2 3 4

NumLigneDB = DonneesTechniques.Worksheets("DefinitionBrut").Range("A3:A" & NbArticleDB & "").Find(CodeArticle, LookIn:=xlValues).Row DonneesTechniques.Sheets("DefinitionBrut").Range("E" & NumLigneDB & ":L" & NumLigneDB & "").Copy Sheets("PiecesAFabriquer").Range("F" & NumLignePAF).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 'Collage spécial : juste valeur Application.CutCopyMode = False

---

Quelqu'aun aurait-il une ptite idée à me proposer???

Merci d'avance,

JeanValjean44

solution de voleur d'IP :aie:

au début de ta fonction

Code:

---

On error goto Absence

---

à la fin

Code:

---

1 2 3 4 5 6 7 8 9 10

'Ta fonction   Exit sub   Absence:   MsgBox "Attention une erreur est survenue lors de l'éxécution de la fonction il se peut que la valeur Codeligne soit absente" Exit sub   End sub

---

Mais bon le plus propre serait de tester les valeurs de ton tableau

Bonjour,

Citation:

---

Envoyé par Many31

Code:

---

MsgBox "Attention une erreur est survenue lors de l'éxécution de la fonction il se peut que la valeur Codeligne soit absente"

---

---

Je te rappelle que CodeArticle (et pas Codeligne) est une variable. L’utilisateur risque d’avoir du mal à comprendre le message.

Code:

---

1 2 3 4 5 6 7 8

If Not Find(CodeArticle, LookIn:=xlValues) Is Nothing Then NumLigneDB = DonneesTechniques.Worksheets("DefinitionBrut").Range("A3:A" & NbArticleDB & "").Find(CodeArticle, LookIn:=xlValues).Row DonneesTechniques.Sheets("DefinitionBrut").Range("E" & NumLigneDB & ":L" & NumLigneDB & "").Copy Sheets("PiecesAFabriquer").Range("F" & NumLignePAF).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Else ' Ici le code dans le cas où la variable CodeArticle est absente de la feuille End If

---