Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

quand ça veut pas...

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]
 

Pièces jointes

  • test3_20060107144116.zip
    28.7 KB · Affichages: 26

JYLL

Nous a quitté
Repose en paix
Bonsoir keyser22,

J'ai modifié ton classeur, maintenant il doit répondre à ton besoin. Je suis le fil au cas ou.

Bontest et à +

Amicalement.

Jean-Yves [file name=test3_20060107162341.zip size=23220]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test3_20060107162341.zip[/file]
 

Pièces jointes

  • test3_20060107162341.zip
    22.7 KB · Affichages: 24
K

Keyser22

Guest
Merci énormément!!!!!
Ca marche super bien!

C'est très sympa d'avoir directement solutioner mon problème!
Bonne journée à toi Jean-yves et merci encore!


Keyser22
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…