Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…