Bonjour à tous,
Je cherche actuellement à modifier les caractéritiques d'une base de donnée, via un formulaire s'appuyant sur un combobox.
En clair, une prestation est identifiée par un code, et lui sont rattachées diverses informations (type de prestation, prix...).
Dans une boite de dialogue, en sélectionnant la prestation selon son code dans un combobox, j'affiche les informations dans des textbox.
Je peux donc modifier ces infos si besoin.
Problème : quand je valide le formulaire avec des infos modifiées, je n'arrive pas à actualiser la base de données...
Je pense que c'est juste le début qui coince.
J'arrive pas à me "placer" sur la cellule où est saisie la valeur alimantant le combobox4.
J'ai essayé d'arranger divers codes trouvés sur le forum, sans succès...
Voici mon code.
Pas le temps d'anonymer un fichier à uploader, éventuellement, je le ferai demain.
D'avance merci !!!
Je cherche actuellement à modifier les caractéritiques d'une base de donnée, via un formulaire s'appuyant sur un combobox.
En clair, une prestation est identifiée par un code, et lui sont rattachées diverses informations (type de prestation, prix...).
Dans une boite de dialogue, en sélectionnant la prestation selon son code dans un combobox, j'affiche les informations dans des textbox.
Je peux donc modifier ces infos si besoin.
Problème : quand je valide le formulaire avec des infos modifiées, je n'arrive pas à actualiser la base de données...
Je pense que c'est juste le début qui coince.
J'arrive pas à me "placer" sur la cellule où est saisie la valeur alimantant le combobox4.
J'ai essayé d'arranger divers codes trouvés sur le forum, sans succès...
Voici mon code.
Pas le temps d'anonymer un fichier à uploader, éventuellement, je le ferai demain.
Code:
Private Sub CommandButton1_Click()
ligne = ComboBox4.RowSource
With Sheets("Dénominations")
If ligne = 0 Then Exit Sub
.Range("B" & ligne).Value = TextBox2
.Range("C" & ligne).Value = TextBox3
.Range("D" & ligne).Value = ComboBox1
.Range("E" & ligne).Value = ComboBox2
.Range("F" & ligne).Value = ComboBox3
.Range("G" & ligne).Value = TextBox4
End With
End Sub
D'avance merci !!!