Incrementé des cellules

Bonsoir, j'ai un userform dans lequel je rentre un nom et un prénom et je l'enregistre avec un bouton dans ma feuil1 en cellule C et D.

Dans la cellule A1 j'ai 1 et dans la B

=C2&" "&D2

Est il possible que quand j'enregistre avec mon bouton le nouveau nom la cellule A2 ai 2 et que la cellule B2 recupére la valeur de la cellule C et D, et ainsi de suite à chaque enregistrement.

Par avance Merci pour l'aide que vous pourrez m'apporter

Bonsoir

en A2 tu peux mettre cela:

=SI(ET(C2<>"";D2<>"");MAX($A$1:A1)+1;"")

edit

Si tu le veux dans ta macro de L'USF:

Private Sub Enregistrer_Click()

Dim lignesuivante As Long

Sheets("Feuil1").Activate

'determination de la prochaine ligne

lignesuivante = Application.WorksheetFunction. _

CountA(Range("C:C")) + 1

'---- transfert base

Cells(lignesuivante, 3) = Noms.Value

Cells(lignesuivante, 4) = prenom.Value

Cells(lignesuivante, 1).FormulaR1C1 = "=IF(AND(RC[2]<>"""",RC[3]<>""""),MAX(R1C1:R[-1]C)+1,"""")"

Cells(lignesuivante, 2).FormulaR1C1 = "=RC[1]&"" ""&RC[2]"

End Sub

Bonsoir, Merci pour cette solution mais je voudrais que celà se fasse avec le bouton enregistrer de l'userform donc il faut rajouter un morceau de code.

re

Oui je viens de comprendre, je te l'ai mis dans le post précedent

Rebonsoir, Désolé CB60 j'ai pas regardé correctement votre solution.

c'est tout bon.

Un grand Merci

Bon Week End