pb avec code vba

[RUDD]

bonsoir,
je commence a manipuler le VBA,mais j'ai un petit soucis.
dans mon userform2 lorsque je saisie mes valeurs j'ai une erreur lorsque je valide le transfert de mes valeurs dans la feuille DATA.
j'ai une deuxieme petite question.
Quelle est la maniere de revenir a la ligne dans un textbox
Merci d'avance pour votre aide [file name=DEPANNLOGV1.zip size=27254]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DEPANNLOGV1.zip[/file]

 

[Charly2]

Bonsoir RUDD, bonsoir à toutes et à tous

C'est logique que tu aies une erreur. Il faut vite que tu prennes la bonne habitude de placer dans chaque module : Option Explicit. Car tu as un message quand les variables ne sont pas déclarées.

Ton code n'est pas trop lourd donc il était relativement facile de voir qu'en validant ton 2ème USF, les données allaient se placer sur la ligne LRecherche qui est ni déclarée, ni initialisée. Tu peux le faire par

LRecherche = Sheets('DATA').Range('A65536').End(xlUp).Offset(1,0)

En espérant que cela réponde à ta question.

A+

PS : Je ne sais pas pour le retour à la ligne :huh:

 

[Hellboy]

Bonsoir a tous

Je complèterais les propos de Charly avec cette suggestion:

Dim LRecherche As Long

With Sheets('DATA')
[color=green4]' Le .Row sert a récupérer le numéro de ligne[/color]
LRecherche = Sheets('DATA').Range('A65536').End(xlUp).Offset(1, 0).Row
.Range('G' & LRecherche).Value = TextBox1.Value
.Range('H' & LRecherche).Value = TextBox2.Value
.Range('D' & LRecherche).Value = TextBox3.Value
End With

Pour ta deuxième question, pourrais-tu développer s.v.p.

Merci !

 

[Charly2]

Bonsoir Philippe

Oups ! Merci d'avoir rectifié . Certains oublient de déclarer et moi, j'initialise en oubliant le .Row !!! :whistle:

A+

 

[RUDD]

ok merci ,je modiifie mon code
@+

 

[Blunet]

Salut Charly, Rudd et Hellboy qui d'ailleurs améliore à chaque post son animation et sa signature