K
Keyser22
Guest
ça veut pas!
J'ai toujours le même problème (coller à la suite des infos venant d'un USF)
Le code suivant colle en dernière ligne et semble être un plus, il doit me manquer qu'un petit élément, je pense....
J'ai ahjouter en pièce jointe le doc au cas où...
Merci de votre aide fort précieuse
Keyser
Private Sub CommandButton1_Click()
Sheets('Données').Select
If IsEmpty('A5') Then
Range('A5').Select
ActiveCell.Value = 1
Else
Range('A5').End(xlDown).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = ComboBox1.Value
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 4).Value = ComboBox3.Value
ActiveCell.Offset(0, 5).Value = ComboBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox5.Value
ActiveCell.Offset(0, 7).Value = ComboBox6.Value
ActiveCell.Offset(0, 8).Value = TextBox1.Value
End Sub [file name=test3_20060107144116.zip size=29418]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test3_20060107144116.zip[/file]
J'ai toujours le même problème (coller à la suite des infos venant d'un USF)
Le code suivant colle en dernière ligne et semble être un plus, il doit me manquer qu'un petit élément, je pense....
J'ai ahjouter en pièce jointe le doc au cas où...
Merci de votre aide fort précieuse
Keyser
Private Sub CommandButton1_Click()
Sheets('Données').Select
If IsEmpty('A5') Then
Range('A5').Select
ActiveCell.Value = 1
Else
Range('A5').End(xlDown).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = ComboBox1.Value
ActiveCell.Offset(0, 2).Value = ComboBox2.Value
ActiveCell.Offset(0, 4).Value = ComboBox3.Value
ActiveCell.Offset(0, 5).Value = ComboBox4.Value
ActiveCell.Offset(0, 6).Value = ComboBox5.Value
ActiveCell.Offset(0, 7).Value = ComboBox6.Value
ActiveCell.Offset(0, 8).Value = TextBox1.Value
End Sub [file name=test3_20060107144116.zip size=29418]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test3_20060107144116.zip[/file]