Incrementer Numero Fiches MACRO

Bonjour,

dans mon fichier je souhaiterais :

avoir dans la feuille "saisie" a la cellule D6 la derniere valeur de la feuille "recap2011" incrémenter de 1

(donc dans l'exemple ici A6)

et pouvoir si possible a l'aide du bouton bleu de la feuille "recap2011" incrémenter le chiffre au fur et a mesure des saisies

en vous remerciant de votre aide

cdt

Bonjour

Quelque chose comme celà à mettre dans le code de la feuille saisie

Sur activation de la feuille, d6= la dernière ligne= le numéro de la dernière ligne +1

Private Sub Worksheet_Activate()

Set dernièreligne = Sheets("recap2011").Range("a4").End(xlDown).row+1

ActiveSheet.Range("d6") = dernièreligne

End Sub

Bonsoir à tous,

Sans macro supplémentaire,

à la fin de la macro "NouvelleSaisie" ajoute cette ligne

.Range("d6") = Application.Max(Range("recap2011!a:a")) + 1

ici, je l'ai mise à la fin et au début (au cas ou tu l'efface par erreur)

à noter que tu pourrais masquer carrément la ligne 6

code complet modifié

Sub NouvelleSaisie()
Dim i%
    With Sheets("Saisie")
            .Range("d6") = Application.Max(Range("recap2011!a:a")) + 1 'rappel
        '--- Contrôle champs saisis ---
        For i = 6 To 12
            If .Cells(i, "d") = "" Then
                .Cells(i, "d").Activate
                MsgBox ("Champ  " & .Cells(i, "c") & "  Obligatoire")
                Exit Sub
            End If
        Next i
        '--- enregistre ---
        Application.ScreenUpdating = False
            .Range("d6:d13").Copy
            Sheets("recap2011").Range("A65536").End(xlUp)(2) _
            .PasteSpecial Paste:=xlPasteValues, Transpose:=True
            Application.CutCopyMode = False
            .Range("d7:d13").ClearContents
            .Range("d6") = Application.Max(Range("recap2011!a:a")) + 1
    End With
End Sub

PS: supprime ta macro "incrementation"

Amicalement

Claude