Bonjour,
Je suis souvent visiteur du forum pour trouver des solutions, et pour une fois, je n'ai pas de solution à ma question.
Je suis entrain de faire une petite base de données par Excel (Non, je ne voulais pas utiliser Access).
Cependant j'ai un problème.
En effet lorsqu'un membre est répertorier dans la base de données, je souhaiterai pouvoir le modifier.
Pour cela j'ai une combobox qui référence chacun des membres, et donc on sélectionne le membre en question à l'aide de celle-ci. Par la suite, on clique sur le Bouton 12 et voici mes lignes de codes suivante:
Serait-il possible de m'aider à résoudre ce problème?
Merci d'avance à tous ceux ou celles qui me donneront un coup de pouce!
Je suis souvent visiteur du forum pour trouver des solutions, et pour une fois, je n'ai pas de solution à ma question.
Je suis entrain de faire une petite base de données par Excel (Non, je ne voulais pas utiliser Access).
Cependant j'ai un problème.
En effet lorsqu'un membre est répertorier dans la base de données, je souhaiterai pouvoir le modifier.
Pour cela j'ai une combobox qui référence chacun des membres, et donc on sélectionne le membre en question à l'aide de celle-ci. Par la suite, on clique sur le Bouton 12 et voici mes lignes de codes suivante:
Sub Feuil1_Bouton12_Cliquer()
Dim i As Integer
i = 11
UserForm2.Show
Do While Feuil1.Cells(i, 14) <> Feuil1.ComboBox1.Text
i = i + 1
Loop
TextBox1.Text = Feuil1.Cells(i, 3) Avec l'erreur 424 à cet endroit.
TextBox2.Text = Feuil1.Cells(i, 4)
TextBox3.Text = Feuil1.Cells(i, 5)
TextBox4.Text = Feuil1.Cells(i, 6)
TextBox5.Text = Feuil1.Cells(i, 7)
TextBox6.Text = Feuil1.Cells(i, 8)
TextBox7.Text = Feuil1.Cells(i, 9)
TextBox11.Text = Feuil1.Cells(i, 10)
TextBox8.Text = Feuil1.Cells(i, 11)
TextBox8.Text = Feuil1.Cells(i, 12)
TextBox9.Text = Feuil1.Cells(i, 13)
TextBox10.Text = Feuil1.Cells(i, 14)
End Sub
Serait-il possible de m'aider à résoudre ce problème?
Merci d'avance à tous ceux ou celles qui me donneront un coup de pouce!