transfert de valeur textbox dans feuil par lignes

[nono91]

Bonjour à toutes et à tous, et bonne année 2006.

Me voila de retour, et une fois encore je butte sur un prob de transfert de données vers une feuille excel. Dans un userform, j'ai des combo et textbox du style (date, type, montant, etc...)
Mon but est de tranferer les valeurs par le biais d'un bouton, mais dommage, j'ai perdu ma formule magique. Il faudrait qu'a chaque coup de bouton, les valeurs prennent place sur une ligne, puis sur la suivante, et la prochaine, etc...
Je précise, car j'ai eu le prob, que tout mes box sont renseignés.

Je joins l'exemple que vous pouvez améliorer et garder bien entendu.

Amicalement

Bruno [file name=TVA_20060122080832.zip size=36302]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TVA_20060122080832.zip[/file]

 

[jacktati]

Salut non91,

Voilà un bout de code à adapter.

Private Sub CB_enregistrernouveau_Click()
'ici c'est ce qui se passe quand on click sur le Bouton 'Validation'

Dim L As Integer         
'Déclaration de variable 'L' pour connaitre la Ligne Numéro


                                  
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets('Feuil1').Range('C65536').End(xlUp).Row + 1

'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = '' Then
MsgBox 'Vous n'avez rien saisi dans la textBox1 !'
TextBox1.SetFocus
Exit Sub
End If


'Pour voir se qui se passe je bascule sur la feuille 'baseD'
Sheets('Feuil1').Activate

'Ici c'est le report de la saisie dans la feuille
With Sheets('Feuil1')


.Range('a' & L).Value = TextBox1.Value
.Range('b' & L).Value = ComboBox1.Value
.Range('C' & L).Value = ComboBox2.Value
.Range('D' & L).Value = ComboBox3.Value
.Range('e' & L).Value = TextBox2.Value

End With



'Ici je vide les  TextBox
TextBox1.Value = ''
'ici je remets le curseur en textbox1
TextBox1.SetFocus
'ici je ferme la UserForm
Unload UserForm1

End Sub

@+

 

[jacktati]

Re nono91,

voilà le fichier un peu modifier, avec une userform.

Explication sur ta feuille1!
@+ [file name=tva01.zip size=14869]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tva01.zip[/file]

 

[nono91]

Bonjour tout le monde

Merci Jacktati. Je me mets de suite au travail pour adapter ton script à mon progiciel.

Bonne journée

Bruno