Re : bug lien entre combobox et textbox
j'ai mis une copie d'une partie de mon tableau. Je souhaiterais que le code postal s'affichant dans mon textbox se mette ensuite dans le tableau dans la colonne code postal. Est ce possible ?
le code que j'ai entré est le suivant (code d'archivage):
Private Sub CommandButton1_Click()
Sheets("CA").Select
Range("A14").Select
'Place toi sur la cellule B15'
Do
If ActiveCell.Value = "" Then
GoTo archiver
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiver:
ActiveCell.Value = UserForm2!Calendar1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm2!TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm2!ComboBox2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm2!ComboBox1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = UserForm2!TextBox4
ActiveCell.Offset(0, 1).Select
UserForm2!Calendar1 = ""
UserForm2!TextBox2 = ""
UserForm2!ComboBox1 = ""
UserForm2!ComboBox2 = ""
Range("G14").Select
'Place toi sur la cellule B15'
Do
If ActiveCell.Value = "" Then
GoTo Archive
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
Archive:
ActiveCell.Value = UserForm2!ComboBox3
ActiveCell.Offset(0, 1).Select
UserForm2!ComboBox3 = ""
Range("L14").Select
'Place toi sur la cellule B15'
Do
If ActiveCell.Value = "" Then
GoTo archiv
End If
If ActiveCell.Value <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
archiv:
ActiveCell.Value = UserForm2!TextBox3 * 1
ActiveCell.Offset(0, 1).Select
UserForm2!TextBox3 = ""
UserForm2.Hide
Sheets("CA").Select
End Sub
Quand je valide, excel me met un bug sur cette ligne:
Private Sub ComboBox1_Change()
TextBox4.Value = Me.ComboBox1.Column(1)
End Sub
Merci beaucoup pour votre aide