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