XL 2010 Application.Match

sabagof · 19 Mars 2021

Bonsoir,
apparemment assez simple avec VBA, mais je ne trouve pas. A l'aide SVP.
J'ai un tableau avec plusieurs colonnes que j'alimente avec un userform. Je veux avant d'ajouter une nouvelle ligne voir si le nr article et la réf. interne existe déjà : si oui "message" sinon ....
Merci. ci-joint un fichier...
Voici mon code qui ne marche pas...

If Not IsError(Application.Match(Txt_nr_article.Value, Sheets("article").Range("B:B"), 0)) and Not IsError(Application.Match(Txt_lot_interne.Value, Sheets("article").Range("D"), 0)) Then
MsgBox ("Cette ligne existe déjà")
Exit Sub
End If

sabagof · 19 Mars 2021

Merci bcp job75. Au fait le code marche bien avec "And" par contre avec "or" non

JM27 · 19 Mars 2021

Bonjour
Pas de userform
Fichier en XLSX et non en xlsm

sabagof · 19 Mars 2021

C'est vrai tu as raison, c'est un vaste programme de gestion de stock, donc j'ai juste extrait ce fichier à la recherche d'un code pour comparer 2 cellules sur la même ligne avant d'ajouter une nouvelle sans doublon. Merci

job75 · 19 Mars 2021

Bonjour sabagof, JM27,

Peut être que dans le code du post #1 il faut remplacer And par Or

A+

sabagof · 19 Mars 2021

Merci bcp job75. Au fait le code marche bien avec "And" par contre avec "or" non

job75 · 19 Mars 2021

sabagof à dit:
Au fait le code marche bien avec "And" par contre avec "or" non

Ben les conditions sont différentes c'est tout mais pourquoi avoir ouvert cette discussion ?

sabagof · 19 Mars 2021

job75 à dit:
Ben les conditions sont différentes c'est tout mais pourquoi avoir ouvert cette discussion ?

De grâce ..... des fois la réponse viens en posant la question.... Merci quand même pour l'intérêt....
A+

XL 2010 Application.Match

sabagof

XLDnaute Occasionnel

Pièces jointes

sabagof

JM27

XLDnaute Barbatruc

sabagof

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

sabagof

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

sabagof

XLDnaute Occasionnel

Discussions similaires