bonjour,

je souhaiterai pouvoir utiliser ce code pour toutes les feuilles du classeur soit : mois de Jan à Dec :

'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
Dim sht As Worksheet
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

je vous remercie de bien vouloir m'indiquer ce que je dois changer ou modifier et de me commenter le code.

en vous souhaitant une bonne journee

Dois-je obligatoirement la recopier dans toutes les feuilles ?

vieuxmonsieur

une piste ici:

http://www.vbfrance.com/forum/sujet-APPLIQUER-MACRO-TOUTES-FEUILLES-MON-CLASSEUR-ACTIF_1621129.aspx

Peut-etre un complement interessant,ici:

http://www.excel-downloads.com/forum/26736-bouton-valable-pour-tous-le-classeur.html

Bonjour,

Elle se transpose presque identiquement, dans module ThisWorkbook :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernLig As Integer
If Target.Column <> 2 And Target.Count > 1 Then Exit Sub
DernLig = Sh.Range("A65536").End(xlUp).Row
If Target.Row = DernLig Then
Sh.Rows(DernLig + 1).Copy Sh.Range("A" & DernLig + 2)
Else
Sh.Rows(DernLig + 2).Delete
End If
End Sub

merci à vous ReineClaude et ferrand

en vous souhaitant une tres bonne fi de journee