Affiner mes codes VBA pour ce fichier Bon de Commande

PaulTrax

XLDnaute Nouveau
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:
 

Pièces jointes

  • bon-de-commande tissus Exemple.xlsm
    713.1 KB · Affichages: 11

fanfan38

XLDnaute Barbatruc
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
 

Discussions similaires