Re : qui peu m'aider en vba pour faire fonctionne les UserForm
merci beaucoup grand chef
bon j'ai fais un teste, je sais pas trop ce que tu as fais ou moi, quand j'ai réinstaller excel 2007, mais bon je l'ais fais une fois, apparament il a fonctionné pour enregistrer quand j'ai imprimer le bon de commande.et quitter ensuite.
je referais un autre essaie car dans le coup j'ai teste les unités , en creant une unités quand je valide il bug.
voici le code
Private Sub CommandButton2_Click() 'Liste des articles
Unload UserForm6
Load UserForm2
End Sub
Private Sub CommandButton3_Click() 'Menu général
Unload UserForm6
End Sub
Private Sub CommandButton4_Click() 'Créer
Dim ref As Range
If ComboBox1 = "" Then TextBox6.SetFocus: Exit Sub
With Sheets("Base")
If IsNumeric(Application.Match(Cherche(ComboBox1), .Range("Unité"), 0)) Then _
MsgBox "Unité déjà créée", 48: ComboBox1.SetFocus: Exit Sub
Set ref = .Range("Base_Unité").Offset(1).Find("", LookIn:=xlFormulas)
ref = Trim(ComboBox1)
Call Bordures(.Range(ref, ref.Offset(0, 1)))
.Range("Unité").Sort Key1:=.Range("Unité").Columns(1), Order1:=xlAscending, Header:=xlNo 'tri de la base
MsgBox "L'unité est créée"
TextBox6 = ""
TextBox6.SetFocusEnd With
End Sub
je refais d'autres teste pour revoir si on peu enregistrer et au niveau du démarrage il me donne l'image que je joint comme boite
encore mille merci job75 de toutes les maniéres de m'avoir aidé
david