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

Julie-F · 19 Mai 2008

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 · 29 Mai 2008

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

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

Julie-F

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Discussions similaires