Discussion :

[rimked]

J'ai deux question sur vba exel

1) je souhaiterais savoir commencer renvoyer des infos saisie sur mon userforme sur une feuille exel en tenat compte le fait qu'une nouvelle saisie aille a la ligne exel en dessous de la precedante (chaque saisie doivent etre enregistreé au fur et a mesure)
exple si je saisie les donnes en A1 et B1, ma deuxieme saisie doit etre saisie en A2 et B2 (et y reste definitivement)

2) Je souhaiterais aussi affecter a une case à cocher l impression d'un usurforme

merci infiniment d avance

[Pierre Fauconnier]

Bonsoir

Le code suivant réalise ce genre de choses, et doit être adapté à ton cas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
    ' Transfère les données du userform
 
    Dim CelluleCible As Range
 
    Set CelluleCible = Worksheets("feuil1").Range("a" & Rows.Count).End(xlUp)(2)
    CelluleCible.Value = TextBox1.Text
    CelluleCible(1, 2).Value = TextBox2.Text
 
    ' Impression si case cochée
    If CheckBox1 Then UserForm1.PrintForm
End Sub

[rimked]

re

je suis vraiment confus , en ce qui concerne l impression sa marche mais pour ma premiere requete je n 'ai aps reussi masi je suis novice se pourrais t il me le reexpliquer d'une autre maniere (plus simple ) sachant que je souhaite inserere nom, prenom , montant a partir de a11 (POUR le nom) B 11 (pour le prenom) ect....

j aurais d'ailleurs une autre question j'explqiue
je dispose de 2 userforme dont l'un le premier il est possible de saisir nom, prenom , ect... et le deuxieme possede les memes informations (nom, prenom ,...) + d autres infos que je souhaite [SIZE="4"]calculer[/SIZE et affiché donc ma questions mes questions meme sont les suivantes:
comment mes saisies de mon premier usurforme puisse etre conserve sur mon deuxieme usurforme
et comment affiché les calcule sur ce deuxieme unforme..


Je suis desole et confus mais je suis un vrai novice en vba et je souhaiterais reussir tous cela. C'est urgent
alors merci d avance tous le monde