Erreur N/A avec macro VLOOKUP

Bonjour à tous,

Voilà mon problème.

Je suis entrain de faire un petit logiciel de gestion de production sur vba, avec création de nomenclature d'article, etc...

Lorsque je créais ma nomenclature sur vba et que je fais imprimer, les valeurs contenues dans les textbox doivent se mettre sur les cellules adéquate de la feuille Excel. Et certaine donnée doivent être rechercher par une macro.

Mon problème vient de la rechercheV. Les cellules concernés mettre l'erreur N/A, alors que la macro RechercheV fonctionne bien.

Pouvez-vous me donner une solution à mon problème...

Merci d'avance

Cordialement.

Guillaume

Bonjour Guithou51,

Avec un petit fichier joint, ce serait plus facile de répondre.

pour ne pas avoir N/A, mettre devant ta formule SIERREUR((ta formule);"")

Cdt

Henri

Bonjour AFEH,

Voilà un morceau de mon projet.

Donc tu vas sur "Article", tu tapes le code article "4567", puis tu cliques sur nomenclature et après sur imprimer.

Tu pourras remarquer que sur la feuille "impnom" toutes les cellules concernées sont remplie, sauf 3, où il y a le code #n/a.

As-tu une solution à me faire parvenir, afin qu'il n'y ai plus se code.

Cordialement.

Bonjour Guillaume,

Ton userform12 n'était pas complet. J'ai rajouté 3 TextBox (10,11 et 12) pour Créé le: puis Source: puis Gestion:

Ensuite les initialiser

Private Sub CommandButton122_Click()

'Impression de la nomenclature, le 21/08/2015 par Guillaume

   'Affichage des articles de la Textbox vers les cellules de la feuille Excel
Sheets("impnom").Select
Range("F" & 1).Value = TextBoxcodearticle
Range("W" & 1).Value = TextBoxdesignation
Range("F" & 3).Value = TextBoxindice
Range("P" & 3).Value = TextBoxdate
Range("AF" & 3).Value = TextBoxmodification
Range("BR" & 1).Value = TextBox10
Range("CD" & 1).Value = TextBox11
Range("BZ" & 3).Value = TextBox12

et définir leurs valeurs

Private Sub TextBoxcodearticle_Change()

'Recherche des valeurs suivant le code article dans BD et en appuyant dur entrée, le 01/08/2015 par Guillaume

Dim vrech As Range

Dim Ligne As Long

Dim i As Integer

'je recherche dans la colonne A la valeur de la combo

Set vrech = Sheets("article").Columns("A").Find(Me.TextBoxcodearticle.Value, LookIn:=xlValues, LookAt:=xlWhole)

'Afficher commentaire de la nomenclature suivant code article, le 01/08/2015 par Guillaume

TextBox10.Value = vrech.Offset(0, 2).Value

TextBox11.Value = vrech.Offset(0, 4).Value

TextBox12.Value = vrech.Offset(0, 7).Value

A tester avec fichier joint

Cdt

Henri

Merci Henri.

Je voulais pas créer d'autre TextBox dans mon Userform, faire juste une RechercheV dans la feuille Excel.

Mais ça ne fait rien, ça marche très bien comme ça.

Guillaume