Erreur code VBA

Bonjour à tous

Depuis quelques jours, je rencontre un petit problème de code VBA sur un projet. L'idée est d'inserer automatiquement le numéro de l'article qui correspond au nom de l'article dans la listebox .

Dans mon bouton Ajouter , j'ai écris le code ci dessous pour qu'Excel puisse effectué la recherche du numéro de l'article qui correspond au nom de l'article (cbxart) depuis la base de données de ma feuille 3.

A ma grande surprise, Erreur d'exécution du code '1004':

Merci d'avance pour vos différentes solutions à mon problème.

William95

Bonjour,

Ton code corrigé :

Private Sub CommandButton2_Click()
Dim rng_numart As Range, NumArt As String
Dim part_montt As Currency
Set rng_numart = Feuil3.Columns(3).Cells.Find(Me.cbxart)
If Not rng_numart Is Nothing Then
    NumArt = rng_numart.Offset(, -1).Value
End If
With Me.ListBox1
    .AddItem
    .List(memoire, 0) = NumArt
    .List(memoire, 1) = Me.cbxart
    .List(memoire, 2) = Me.TextBox2
    End With
End Sub

Merci Pijaku !!! ça marche à merveille.

Merci beaucoup