transfert de valeur textbox dans feuil par lignes

  • Initiateur de la discussion Initiateur de la discussion nono91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nono91

Guest
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]
 

Pièces jointes

Salut non91,

Voilà un bout de code à adapter.
Code:
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
Réponses
2
Affichages
915
N
E
Réponses
0
Affichages
1 K
em3xx
E
P
Réponses
1
Affichages
864
V
Retour