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:
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas