Copier textbox dans ligne du dessous

[Noopy123]

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 :

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

 

[Hasco]

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

 

[Noopy123]

Bonjour,

Merci pour le retour rapide
avec ce code, ça me met un message d'erreur

 

[Hasco]

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

 

[Noopy123]

Re,

voici le fichier ci-joint

 

[Hasco]

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

 

[Noopy123]

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

 

[Hasco]

Re,

.End(XlUp) c'est comme si vous sélectionniez une cellule et tapiez sur CTRL+Flèche vers le haut.

Cordialement