Squoltahthx94
XLDnaute Occasionnel
Bonjour à tout le forum,
J'ai un Usf me permettant de remplir des lignes via un bouton contenant ce code :
dès que j'execute cette commande, Excel indique "erreur définie par l'application ou par l'objet" mais je ne comprend pas l'erreur... quelqu'un peu m'aider ??? Merci
J'ai un Usf me permettant de remplir des lignes via un bouton contenant ce code :
Code:
Private Sub bt_rec_Click()
Dim lig As Long
With Sheets("BDD")
lig = .Range("a2").End(xlDown).Row + 1
.Range("a" & lig).Value = Me.Txt_date.Text
.Range("b" & lig).Value = Me.CbxCptClt.Text 'Ecrit en A... la valeur de Textbox1
.Range("c" & lig).Value = Me.TxtBxNom.Text 'etc....
.Range("d" & lig).Value = Me.TxtBxVille.Text 'etc.....
.Range("e" & lig).Value = Me.TxtBxCP.Text
.Range("f" & lig).Value = Me.TxtBxAgence.Text
.Range("g" & lig).Value = Me.CBoxLiaisonTlm.Text
.Range("h" & lig).Value = Me.ComboBox5.Text
.Range("i" & lig).Value = Me.ComboBox4.Text
.Range("j" & lig).Value = Me.TextBox1.Text
.Range("k" & lig).Value = Me.ComboBox6.Text
.Range("l" & lig).Value = Me.ComboBox2.Text
.Range("m" & lig).Value = Me.TextBox2.Text
.Range("n" & lig).Value = Me.Systeme_Int.Text
.Range("o" & lig).Value = Me.ComboBox8.Text
.Range("p" & lig).Value = Me.TextBox3.Text
.Range("q" & lig).Value = Me.cbxvideo.Text
.Range("r" & lig).Value = Me.Video_oui_Non.Text
.Range("s" & lig).Value = Me.ComboBox9.Text
.Range("t" & lig).Value = Me.ComboBox13.Text
.Range("u" & lig).Value = Me.Acces_oui_non.Text
.Range("v" & lig).Value = Me.ComboBox7.Text
.Range("w" & lig).Value = Me.ComboBox11.Text
.Range("x" & lig).Value = Me.ComboBox16.Text
.Range("y" & lig).Value = Me.cbx_type_inst.Text
.Range("z" & lig).Value = Me.cbximplant.Text
.Range("aa" & lig).Value = Me.tbx_tx_implant.Text
End With
End Sub
dès que j'execute cette commande, Excel indique "erreur définie par l'application ou par l'objet" mais je ne comprend pas l'erreur... quelqu'un peu m'aider ??? Merci