Copier textbox dans ligne du dessous

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 !

Noopy123

XLDnaute Junior
Bonjour à tous,

Je commence en VBA et j'ai, comme tout le monde au début je suppose quelques petits blocages 🙂.

Lors de la validation de mon Userform, j'aimerais qu'a chaque fois les données de mes textbox soit copiées dans la ligne du dessous. J'ai essayé d'utiliser le code :
Y = Sheets("Matrice note de frais").Range("B10").End(xlUp).Row + 1
Mais le résultat n'était guère au rendez-vous 😳
Je met mon code ci-dessous :

VB:
Private Sub AjouterFrais_Click()


Y = Sheets("Matrice note de frais").Range("B10").End(xlUp).Row + 1

ActiveSheet.Range("B10" & Y).Value = Date1
ActiveSheet.Range("C10" & Y).Value = Ville
ActiveSheet.Range("D10" & Y).Value = Description

End Sub

Merci par avance pour votre aide et bonne journée
 
Bonjour,

Testez :

Y = Sheets("Matrice note de frais").Range("B" & RowsCount).End(xlUp).Row + 1

Il ne doit rien y avoir sous votre tableau.

Et ensuite :

ActiveSheet.Range("B" & Y).Value = Cdate(Date1)

etc.


Cordialement
 
Dernière édition:
Re,

J'ai oublié le .

Y = Sheets("Matrice note de frais").Range("B" & Rows.Count).End(xlUp).Row + 1
et ensuite
ActiveSheet.Range("B" & Y).Value = Cdate(Date1) etc.

Si cela ne va pas alors joignez votre fichier exemple anonymisé.

cordialement
 
Re bonjour,

Votre format de fichier .xls est dépassé (depuis 2007) utilisez (à moins d'une raison particulière) le format .xlsx pour les classeurs sans macro et .xlsm pour les classeurs avec macro.
Vous pourrez profitez de toutes les améliorations effectuées depuis. Notamment les tableaux structurés : https://fauconnier.developpez.com/tutoriels/tableaux-structures/

Comme il y a des données sous votre tableau, j'ai pris la dernière ligne +1 de votre tableau (ligne 46) comme référence.

Cordialement
 

Pièces jointes

Genial, merci beaucoup 😎

Du coup pour ma culture personnelle le problème était en premier lieu que je prenais en référence B10 ( première ligne de mon tableau) alors qu'il fallait que je prenne B46 (dernière ligne de mon tableau) ?

En tout cas encore 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

Réponses
9
Affichages
580
Réponses
2
Affichages
500
Réponses
3
Affichages
582
  • Question Question
Microsoft 365 Textbox userform
Réponses
10
Affichages
606
Retour