Transfert des données UserForm dans une nouvelle ligne

Question

D'ores et déjà merci à tous ceux qui auront un peu de temps à m'accorder ceci afin de m'aider à solutionner mon problème. Je voudrais que lorsque je clique sur le bouton de mon Userforme (Créer / Sauvegarder / Imprimer) que les données inscrites dans mon Userform soient retranscrites sur une nouvelle ligne dans la feuille (Lexique Transferts Eli-ELO.) Actuellement sur mon fichier elle retranscrit toujours sur la même ligne et ne passe pas à la ligne suivante lors d'une nouvelle sauvegarde. Voir fichier joint. Encore une fois merci et très bonne journée...

Ergotamine · Accepted Answer

Pas trop compris pourquoi mettre des colonnes comme vous le faites, fusionner alors qu'il suffirait d'agrandir la largeur des colonnes, car là, vous allez être bloqué par le fusionnement, que je ne gère pas en VBA. C'est possible, mais encore une fois, je n'en vois pas l'intérêt. Cependant selon votre fichier, remplacer votre code par : 'INSERTION DES DONNÉES DANS FEUILLE2 "LEXIQUE DES TRANSFERTS ELI-ELO With Worksheets("Lexique Transferts ELI-ELO") LR = .Cells(.Rows.Count, 2).End(xlUp).Row .Cells(LR, 10).Value = ComboBox1.Value 'Transféré Par .Cells(LR, 28).Value = DTPicker1.Value 'Date réception EUDC .Cells(LR, 2).Value = TextBox1.Value 'N° Transfert .Cells(LR, 6).Value = TextBox2.Value 'Année .Cells(LR, 22).Value = TextBox3.Value 'Numèro de RMA .Cells(LR, 35).Value = TextBox4.Value 'Date de transfert .Cells(LR, 42).Value = TextBox5.Value 'Temps de traitement .Cells(LR, 67).Value = TextBox6.Value 'Article N°1 .Cells(LR, 16).Value = TextBox7.Value 'Provenance .Cells(LR, 47).Value = TextBox8.Value 'Destination .Cells(LR, 73).Value = TextBox9.Value 'Article N°2 .Cells(LR, 79).Value = TextBox11.Value 'Article N°3 .Cells(LR, 53).Value = TextBox12.Value 'Département PE .Cells(LR, 85).Value = TextBox13.Value 'Article N°4 .Cells(LR, 58).Value = TextBox14.Value 'Responsable .Cells(LR, 91).Value = TextBox15.Value 'Article N°5 .Cells(LR, 97).Value = TextBox16.Value 'Article N°6 .Cells(LR, 63).Value = TextBox17.Value 'Division .Cells(LR, 103).Value = TextBox18.Value 'Article N°7 .Cells(LR, 109).Value = TextBox19.Value 'Article N°8 .Cells(LR, 115).Value = TextBox20.Value 'Article N°9 .Cells(LR, 121).Value = TextBox21.Value 'Article N°10 .Cells(LR, 127).Value = TextBox22.Value 'Article N°11 .Cells(LR, 133).Value = TextBox23.Value 'Remarque(s) End With .Cells(LR, X) où LR est la dernière ligne utilisée, X est le numéro de la colonne. Cdlt...