Affiner mes codes VBA pour ce fichier Bon de Commande

[PaulTrax]

Bonjour à la communauté !
Je me suis bien intéressé à la conception de mon bon de commande en reprenant quelques exemples ici et là de code VBA...
cela me plait énormément vu mon inexpérience!
Mais : voilà je bloque sur le bouton effacer les données dans mon UserForm!
Si vous pouviez regarder et simplifier??
Merci infiniment, le voici en fichier Joint:

 

[fanfan38]

Bonjour
Je te propose de modifier la macro ci dessous

Private Sub liste_ref_Change()
If liste_ref <> "" Then
TextBox1.Value = Sheets("Articles").Cells(liste_ref.ListIndex + 1, 4).Value
ajouter.Enabled = True
Else
TextBox1.Value = ""
ajouter.Enabled = False
End If
End Sub

A+ François

 

[PaulTrax]

Bonjour Fanfan38, je te remercie pour ce code, c'est parfait!!
Je suis ravi!