Pb recopie auto d'une ligne entière (formules...) lors d'une nouvelle entrée

[Julie-F]

Bonsoir le forum

J'aimerais savoir si quelqu'un pouvait m'apporter quelques solutions aux pbs suivants :

1. Est-il possible de recopier automatiquement une ligne entière d'un tableau lors d'une nouvelle saisie dans la ligne suivante en reprenant les mêmes mises en forme, formules... 😕

2. J'ai lu que l'on pouvait actualiser une zone d'impression par bouton permettant ainsi d'imprimer un tableau jusqu'à la derniere ligne renseignée mais je n'arrive pas à l'adapter à mon fichier 🙁

 

[BOISGONTIER]

Re : Pb recopie auto d'une ligne entière (formules...) lors d'une nouvelle entrée

Hauteur de ligne:


If Not Intersect([B10:B1000], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
ncol = 10
[C65000].End(xlUp).Offset(1, 0).Resize(1, ncol).Select
ActiveSheet.Unprotect Password:=""
Selection.Offset(-1, 0).Copy ActiveCell
On Error Resume Next
Target.EntireRow.RowHeight = 20
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveCell.Offset(0, -1).Copy ActiveCell.Offset(1, -1)
ActiveCell.Offset(1, -1).ClearContents
ActiveSheet.Protect Password:=""
Application.EnableEvents = True
End If

JB