Userform : Copier une ligne et demander où l'inserer avec des nouvelles données

[ronanm]

Bonjour forum et experts!

Bonjour,

Je souhaiterais ajouter une lignes à un endroit spécifique (c'est pk la userform demande à quelle ligne je veux l'insérer.
Mais je souhaiterais également qu'il fasse d'abord la copie d'une ligne de référence pour toujours avoir le meme modèle.

Je m'explique, si je veux insérer une ligne en ligne 20 par exemple, je veux qu'il me copie une ligne modèle (la 8 par exemple) et ensuite insérer les infos de la userform.

(Jai déjà mis un code trouver sur le forum mais il ne me permet pas de copier/coller une ligne)
voici le fichier type pour illustrer

Regarde la pièce jointe Fichier audit 3.xls

Merci beaucoup.

 

[Pierrot93]

Re : Userform : Copier une ligne et demander où l'inserer avec des nouvelles données

Bonjour,

pas ouvert ton fichier, mais regarde peut être ceci, si cela peut t'aider :

Rows(8).Copy
Rows(20).Insert

bon après midi
@+

 

[ronanm]

Re : Userform : Copier une ligne et demander où l'inserer avec des nouvelles données

C bien ça ... superbe merci beaucoup, voici le avant :

Private Sub CommandButton1_Click()
Dim L As Long
    
    If Not IsNumeric(tbLig.Text) Then
        tbLig.Text = ""
        MsgBox "Vous devez entrer un nombre"
        Exit Sub
    End If
    L = CLng(tbLig.Text)
  
   Rows(L & ":" & L).Insert Shift:=xlDown  
   
 Cells(L, 5) = TextBox1.Text
    Cells(L, 6) = TextBox2.Text
    Cells(L, 7) = TextBox3.Text
    Cells(L, 8) = TextBox4.Text

et le après en changeant Rows(L & ":" & L).Insert Shift:=xlDown par:

Rows(L & ":" & L).Select
Selection.Insert Shift:=xlDown

combiné avec un premier bouton de commande

Private Sub CommandButton1_Click()
Rows("2:2").Select
Range("E2").Activate
Selection.Copy
UserForm1.Show
End Sub