Bonjour
J'avais sollicité votre aide il y a fort longtemps avec succés
https://www.excel-downloads.com/threads/combox.163838/#post-990912
Depuis la retraite j'ai fait évolué ce projet
Enregistrement
L'Userform contient des ComboBox, TextBox, CheckBox et Un Bouton
Cette partie fonctionne sans aucun probléme. Les données sont logées dans les cellules correspondantes
J'ai rajouté 2 boutons
Recherche (idem fonctionnement OK)
Modification (c'est là le soucis)
Private Function My_text()
ComboBox1.Text = ActiveCell.Text
TextBox3.Text = ActiveCell.Offset(0, 1).Text
TextBox2.Text = ActiveCell.Offset(0, 2).Text
ComboBox2.Text = ActiveCell.Offset(0, 3).Text
ComboBox3.Text = ActiveCell.Offset(0, 4).Text
ComboBox4.Text = ActiveCell.Offset(0, 5).Text
TextBox7.Text = ActiveCell.Offset(0, 6).Text
TextBox8.Text = ActiveCell.Offset(0, 7).Text
TextBox9.Text = ActiveCell.Offset(0, 8).Text
ComboBox5.Text = ActiveCell.Offset(0, 11).Text
ComboBox6.Text = ActiveCell.Offset(0, 12).Text
CheckBox1.Value = ActiveCell.Offset(0, 14).Value
CheckBox2.Value = ActiveCell.Offset(0, 16).Value
CheckBox3.Value = ActiveCell.Offset(0, 17).Value
CheckBox4.Value = ActiveCell.Offset(0, 18).Value
CheckBox5.Value = ActiveCell.Offset(0, 19).Value
CheckBox6.Value = ActiveCell.Offset(0, 20).Value
OptionButton1.Value = ActiveCell.Offset(0, 15).Value
OptionButton2.Value = ActiveCell.Offset(0, 10).Value
End Function
A l'affichage les ComboBox et TextBox s'affiche sans probléme mais les CheckBox et le Bouton font n'importe quoi (s'il n'y a rien dans la cellule => affichage quand même, en gris etc...)
J'ai essayé avec un
If cellule then .....
Je ne trouve pas la solution
Merci de m'aider
Cordialement
J'avais sollicité votre aide il y a fort longtemps avec succés
https://www.excel-downloads.com/threads/combox.163838/#post-990912
Depuis la retraite j'ai fait évolué ce projet
Enregistrement
L'Userform contient des ComboBox, TextBox, CheckBox et Un Bouton
Cette partie fonctionne sans aucun probléme. Les données sont logées dans les cellules correspondantes
J'ai rajouté 2 boutons
Recherche (idem fonctionnement OK)
Modification (c'est là le soucis)
Private Function My_text()
ComboBox1.Text = ActiveCell.Text
TextBox3.Text = ActiveCell.Offset(0, 1).Text
TextBox2.Text = ActiveCell.Offset(0, 2).Text
ComboBox2.Text = ActiveCell.Offset(0, 3).Text
ComboBox3.Text = ActiveCell.Offset(0, 4).Text
ComboBox4.Text = ActiveCell.Offset(0, 5).Text
TextBox7.Text = ActiveCell.Offset(0, 6).Text
TextBox8.Text = ActiveCell.Offset(0, 7).Text
TextBox9.Text = ActiveCell.Offset(0, 8).Text
ComboBox5.Text = ActiveCell.Offset(0, 11).Text
ComboBox6.Text = ActiveCell.Offset(0, 12).Text
CheckBox1.Value = ActiveCell.Offset(0, 14).Value
CheckBox2.Value = ActiveCell.Offset(0, 16).Value
CheckBox3.Value = ActiveCell.Offset(0, 17).Value
CheckBox4.Value = ActiveCell.Offset(0, 18).Value
CheckBox5.Value = ActiveCell.Offset(0, 19).Value
CheckBox6.Value = ActiveCell.Offset(0, 20).Value
OptionButton1.Value = ActiveCell.Offset(0, 15).Value
OptionButton2.Value = ActiveCell.Offset(0, 10).Value
End Function
A l'affichage les ComboBox et TextBox s'affiche sans probléme mais les CheckBox et le Bouton font n'importe quoi (s'il n'y a rien dans la cellule => affichage quand même, en gris etc...)
J'ai essayé avec un
If cellule then .....
Je ne trouve pas la solution
Merci de m'aider
Cordialement