Ajouter une ligne dans un tableau avec commandbutton

Bonjour

c'est la première fois que je poste sur le forum. Donc si il y a un soucis avec mon poste n'hésiter pas à me le dire.

Problématique :

Sur la feuil1 il y a deux cases (D10 et D13) à renseigner dans lequel je mettrais des valeurs.

Je souhaiterai mettre un CommandButton qui me permet de transférer les valeurs (D10 et D13) sur la Feuil2 de mon excel tout en créant une nouvelle ligne.

Pour faire simple a chaque fois que j'appui sur le bouton j'aimerai que ca me crée une nouvelle ligne avec les données que j'ai renseigner sur la feuille 1 (D10 et D13).

Merci pour votre aide. Si vous avez des questions n'hésitez pas.

Bonjour Eric H, le forum,

A tester:

Private Sub Modélisation_Click()
  Dim Ligne As Long, Ws As Worksheet
    Set Ws = Sheets("Feuille 2")
         With Ws
           Ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1
            If Ligne = 2 Then
            .Range("A" & Ligne) = 1                                       'si Ligne=2, on inscrit 1
            Else
            .Range("A" & Ligne) = .Range("A" & Ligne - 1) + 1             'sinon cellule précédente +1
            End If
            .Range("B" & Ligne).Value = Feuil1.Range("D10")               'diamètre
            .Range("C" & Ligne).Value = Feuil1.Range("D13")               'diamètre de torque
            .Range("A" & Ligne & ":C" & Ligne).Borders.Weight = xlThin    'bordures
        End With
End Sub

Cordialement,

Merci beaucoup ça marche parfaitement bien. Maintenant il faut juste que je comprenne la différence avec mon codage pour le futur.

Encore merci beaucoup

Re,

Merci pour ton retour,

il faut juste que je comprenne la différence avec mon codage

J'ai simplement rajouté la saisie en colonne A et les bordures, ton code étant correct,

Donc en colonne A, si la dernière Ligne est 2, on écrit 1, sinon on incrémente la valeur précédente de 1.

Une variante avec tes données de la feuille 2 sous forme de tableau structuré nommé Tableau1.

Cordialement,