bonjour a tous je viens vous demander de l'aide je n'arrive pas a faire fonctionner correctement mon fichier alors que ce code je l'ai déjà utiliser dans un autre projet .
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set MyRange = TextBox1
'Nom de ma case de recherche
Set X = Sheets(7).Columns(1).Find(MyRange.Value, , xlValues, xlWhole, , , False)
'Recherche dans la colonne A
If Not X Is Nothing Then
Range(X.Address).Select
'Place le curseur sur la valeur retrouvée
Else
MsgBox ("Le Code ne se situe pas dans le tableau")
'Le message en cas de non présence de la valeur cherchée
End If
End Sub
Private Sub CommandButton1_Click()
With Feuil7
Nlig1 = ActiveCell.Row
.Range("C" & Nlig1).Value = TextBox2
End With
Feuil7.Activate
End Sub
de plus si vous aviez une idée pour que la ou il y a commande indiquer dans le tableau ça copie la valeur de A ,B,et les quantités a commandées dans la feuille commande .
merci d'avance de votre aide .