Copier et coller une ligne automatiquement
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'ai trouvé ceci hier sur le net, mais je ne sais pas quoi faire avec.
'Un petit code qui, lors d'une saisie colonne A, en première ligne vide
'ajoute systématiquement une ligne 'supplémentaire de saisie...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Rows(DernLig + 1).Copy Range("A" & DernLig + 2)
Else
Rows(DernLig + 2).Delete
End If
End Sub
Ce que j'aimerai pouvoir obtenir, c'est que lorsque j'active l'avant dernière cellule de la colonne A, la ligne se copie automatiquement et se colle en dessous en reprenant le format des cellules ainsi que des formules et que le curseur de saisie se repositionne à la suite des saisies en colonne A.
Je ne sais pas si je me fais bien comprendre.
Je vous remercie de bien vouloir me dire si cela est envisageable et comment je dois procéder, car je ne comprends rien à ce que j'ai trouvé ci-dessus.
Je vous en remercie.
J'ai trouvé ceci hier sur le net, mais je ne sais pas quoi faire avec.
'Un petit code qui, lors d'une saisie colonne A, en première ligne vide
'ajoute systématiquement une ligne 'supplémentaire de saisie...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Rows(DernLig + 1).Copy Range("A" & DernLig + 2)
Else
Rows(DernLig + 2).Delete
End If
End Sub
Ce que j'aimerai pouvoir obtenir, c'est que lorsque j'active l'avant dernière cellule de la colonne A, la ligne se copie automatiquement et se colle en dessous en reprenant le format des cellules ainsi que des formules et que le curseur de saisie se repositionne à la suite des saisies en colonne A.
Je ne sais pas si je me fais bien comprendre.
Je vous remercie de bien vouloir me dire si cela est envisageable et comment je dois procéder, car je ne comprends rien à ce que j'ai trouvé ci-dessus.
Je vous en remercie.
4 réponses
-
Bonjour,
Excel empêche les copies d'une page Internet dans un dossier. Ca ne peut marcher qu'avec Word
-
Bonjour et merci de me répondre, mais je ne veux pas copier une page internet mais une ligne d'un tableau que je suis en train de faire (ou de A à H) de l'avant dernière ligne (non remplie) et la coller en dessous de façon a recopier les formats et les formules.
Le tableau s'allongeant au fur et à mesure des saisies. -
Donc ok
Private Sub Worksheet_Change(ByVal Target As Range) Dim DernLig As Integer If Target.Column <> 2 And Target.Count > 1 Then Exit Sub DernLig = Range("A65536").End(xlUp).Row If Target.Row = DernLig Then Rows(DernLig + 1).Copy Range("A" & DernLig + 2) Else Rows(DernLig + 2).Delete End If End Sub
As-tu essayé avec1 And Target.Count
?
-
Le problème est :
Je fais quoi avec ça ... ?
Ça ne va pas quand je met tout ça dans une formule
