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.
A voir également:
- Copier et coller une ligne automatiquement
- Historique copier coller - Guide
- Style d'écriture a copier coller - Guide
- Copier coller pdf - Guide
- Partager photos en ligne - Guide
- Historique copier coller windows - Accueil - Informatique
4 réponses
Bonjour,
Excel empêche les copies d'une page Internet dans un dossier. Ca ne peut marcher qu'avec Word
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.
Le tableau s'allongeant au fur et à mesure des saisies.
Donc ok
As-tu essayé avec
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é avec
1 And Target.Count?
