Incrémenter un numéro de facture


#1

Bonjour,

Comment incrémenter un numéro de facture à chaque fois que l’on tape le nom d’un client ?
Voir le fichier Excel joint.
Merci pour toute aide.
Cordialement,
Muwasa

N° facture.xlsx (10,6 Ko)


#2

Bonjour @Muwasa,

Voici une proposition:

Un code VBA dans la “Feuil1”

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
        Range("A1").Value = Range("A1").Value + 1
        Range("B4").Select
    End If

End Sub 

La valeur de “A1” s’incrémente de +1 a chaque nouveau clique dans la cellule “B4”.
Il faut donc sortir de la cellule “B4” et recliquer dans “B4” pour afficher +1, si un changement de nom dans “B4” la valeur est conservée sauf la première lettre du nouveau nom.

Puis une formule dans “B3”

="F "&ANNEE($C$3)&" "&MAJUSCULE(STXT($B$4;1;1))&" "&$A$1

Pour remettre le compteur à 0, il suffit de mettre 0 dans “A1” où tout autre valeur numérique.

Ci-joint ton fichier en retour ICI==> N° facture Muwasa. V1.xlsm (18,5 Ko)

Cordialement.