pb avec code vba

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:

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

Cliquez pour agrandir...

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

Merci !

Bonsoir Philippe

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

A+

ok merci ,je modiifie mon code
@+

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