Discussion :

[Jeanvaljean44]

Salut à tous,

Comment peut-on vérifier si une valeur :

Code :

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

CodeArticle

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

Code :

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

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

[Many31]

solution de voleur d'IP

au début de ta fonction

Code :

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

On error goto Absence

à la fin

Code :

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

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

[Bigalo]

Bonjour,

Code :

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

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 :

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

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