Problème débutant VBA

[Sylvain]

Bonjour à tout le Forum,

Je débute actuellement le code VBA et je rencontre quelques petits problèmes.

J'ai créé un classeur XLS qui appel une Userform dès que je clique sur un CommandButton.

Sur cette Userform se trouvent plusieurs TextBoxsur lesquelles je suis amené à saisir des informations.

Ensuite, à partir du moment ou je clique sur un CommandButton (situé sur ma Userform), mes informations contenues dans mes TextBox se recopient automatiquement dans un tableau préalablement tracé.

A chaque appel et saisie sur ma Userform, les informations de mes TextBox se recopie à la suite du tableau.

Je souhaiterai qu'à partir du moment où je clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique.

Mille merci à ceux qui pourront m'éclairer.

Bonne fin de journée

 

[Pierrot93]

Bonjour Sylvain

tu peux insérer la ligne de code ci dessous à l'évenement Click du Sub CommandButton

Range('A65536').End(xlUp).Offset(1, 0).Value = Range('A65536').End(xlUp).Value + 1

Bonne soirée
@+

 

[Sylvain]

Bonjour,

Je suis désolé mais cela ne fonctionne pas mais il est certain que le problème vient de moi.

Je te passe le code de mon bouton si ça peut t'éclairer.

Merci encore

Private Sub CommandButton1_Click()
Dim MaLigne As Integer
MaLigne = Range('A65536').End(xlUp).Row + 1
'A mon avis, la meilleure place serait ici
Range('B' & MaLigne) = TextBox1.Value 'Ecrit dans la colonne B la valeur de Textbox1
Range('C' & MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value
Unload Me 'Vide et ferme le UserForm
End Sub

 

[pierrejean]

bonjour Sylvain

peut-etre comme cela:

Range('A' & MaLigne) =Range('A' & MaLigne-1) +1

la ou te le prevois

 

[Pierrot93]

Re Sylvain, bonsoir PierreJean

Bizare, mon code marche pourtant executé à partir d un module, est ce que tu récupère un message d erreur à l'exécution ou tout simplement tu ne récupère pas le résultat attendu ??

quelqu un pourra peut être donner son avis !!

bonne soirée à tous

@+

 

[ChTi160]

Salut Sylvain
bonsoir pierrejean,pierrot93
peut être aussi peux tu simplifier le code de ta procèdure en mettant ceci (non testé)

Cells(Maligne,1)=Cells(Maligne-1,1)+ 1
For C =1 to 12
Cells (Maligne,C+1)= Me.Controls('Textbox'& L).value
next

à la place de :

Range('B' & MaLigne) = TextBox1.Value 'Ecrit dans la colonne B la valeur de Textbox1
Range('C'& MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value

bonne fin de Soirée

Message édité par: Chti160, à: 22/06/2006 19:59

 

[Sylvain]

Rebonjour à tous,

Pour tous ceux qui souhaitent résoudre mon problème, je viens de créer un nouveau post ce matin (un peu plus haut dans la liste).

Merci et bonne journée à tous