Bonjour,
Débutant en VBA, je souhaite créer un formulaire de saisie pour un suivi de commandes afin de simplifier la tâche à plusieurs opérateurs, le document serait partagé et les élément saisis seraient intégrés à une base de donées puis re traité (type combien de commandes par références etc...)
J'utilise un user form, j'ai crée les bases de données pour les combo box
Mon fichier s'apelle test_sdb, il comprend 2 onglets: code et gestion
j'ai suivi un tuto pas à pas mais ça ne fonctionne pas et j'comprend pô...
voici le code VBA:
Private Sub UserForm_Initialize()
Workbooks("test_sdb.xls").Activate
CboREFSDB.RowSource = ("code!RefMF")
CboSEMAINE.RowSource = ("code!Semainedecommande")
End Sub
Private Sub CommandButton1_Click()
num = Sheets("gestion").Range("A65536").End(xlUp).Row + 1
Sheets("gestion").Activate
Range("A" & num).Value = CboREFSDB.Value
Range("E" & num).Value = CboSEMAINE.Value
Range("B" & num).Value = TxtCommande.Value
Unload Gestioncommandes
Gestioncommandes.Show
End Sub
Private Sub CmdAnnuler_Click()
Unload Gestioncommandes
End Sub
Quelqu'un pourrait il m'aider, please ?
Débutant en VBA, je souhaite créer un formulaire de saisie pour un suivi de commandes afin de simplifier la tâche à plusieurs opérateurs, le document serait partagé et les élément saisis seraient intégrés à une base de donées puis re traité (type combien de commandes par références etc...)
J'utilise un user form, j'ai crée les bases de données pour les combo box
Mon fichier s'apelle test_sdb, il comprend 2 onglets: code et gestion
j'ai suivi un tuto pas à pas mais ça ne fonctionne pas et j'comprend pô...
voici le code VBA:
Private Sub UserForm_Initialize()
Workbooks("test_sdb.xls").Activate
CboREFSDB.RowSource = ("code!RefMF")
CboSEMAINE.RowSource = ("code!Semainedecommande")
End Sub
Private Sub CommandButton1_Click()
num = Sheets("gestion").Range("A65536").End(xlUp).Row + 1
Sheets("gestion").Activate
Range("A" & num).Value = CboREFSDB.Value
Range("E" & num).Value = CboSEMAINE.Value
Range("B" & num).Value = TxtCommande.Value
Unload Gestioncommandes
Gestioncommandes.Show
End Sub
Private Sub CmdAnnuler_Click()
Unload Gestioncommandes
End Sub
Quelqu'un pourrait il m'aider, please ?