Saisie de texte dans userform et écriture du texte dans feuilles de calcul

Bonjour,

J'ai un tableau avec des saisies de données ci-dessous (je cache les données pour un point de vue de confidentialité.

Mon objectif est de faciliter la saisie en utilisant un userform :

Le code associé à cet userform est le suivant :

Private Sub CommandButton1_Click()

Dim TB As Variant, LR& 'définit les variable

    With Worksheets("Arrêts") 
        LR = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        .Cells(LR, 4) = ListeLignes
        .Cells(LR, 5) = ListeInstallations
        .Cells(LR, 6) = ListePannes
        .Cells(LR, 7) = ListeServices
        .Cells(LR, 9) = Date_début
        .Cells(LR, 10) = TextDurée
        .Cells(LR, 12) = TextCommentaires

    End With
    MsgBox "Export terminé", vbInformation 'message après le collage réussi

End Sub

La copie des données dans la feuille de calcul fonctionne, mais le problème est que les données sont collées en ligne 1399 (la ligne 1398 donne des résultats de moyenne en fonction des valeurs saisies plus haut), mais je voudrais qu'elles soient collées à la suite des valeurs saisies, donc ligne 256, 257, 258, etc...

Est-ce que cela est possible, ou bien je dois retirer la ligne 1399 (en la retirant ca colle bien ligne 256) ?

Si nécessaire je peux faire un fichier "test" ...

Merci par avance pour votre aide !

Cdlt,

Bonjour

LR = Range("A1397").End(xlUp).Row + 1

( Test première cellule non vide de la colonne A en remontant de la ligne 1397 )

Remplacez colonne A par une autre lettre si le test doit se faire sur une autre colonne ?

Bonjour,

Merci pour la précision, il fallait effectivement que je mette colonne D

Merci beaucoup pour la réponse, c'est exactement ce que je cherchais et c'est fonctionnel !