• Initiateur de la discussion Initiateur de la discussion RUDD
  • 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 !

RUDD

XLDnaute Nouveau
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]
 

Pièces jointes

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

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

Merci !
 
- 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

Discussions similaires

Retour