Incrémenter n° facture automatique à partir d'un n° existant [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
mercredi 20 décembre 2017
Statut
Membre
Dernière intervention
11 janvier 2018
-
Messages postés
3
Date d'inscription
mercredi 20 décembre 2017
Statut
Membre
Dernière intervention
11 janvier 2018
-
Bonjour,

Je travaille sur une maquette de devis/ factures et je souhaite incrémenter un numéro de facture automatique.
J'ai donc crée une macro toute simple avec un bouton. Le seul soucis c'est que mon numéro ne peut pas repartir du chiffre "1"... Celui- ci doit repartir d'un numéro déjà existant (17-4710) et c'est le nombre en gras qui doit s'actualisé de manière croissante donc dans le cas ici présent : 17-4711 et ainsi de suite.
Seulement je suis une novice sur Excel... Est- ce possible ? Si oui comment s'il vous plait ?

Merci d'avance !

1 réponse

Messages postés
6868
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 août 2020
536
Messages postés
3
Date d'inscription
mercredi 20 décembre 2017
Statut
Membre
Dernière intervention
11 janvier 2018

Bonjour,

merci mais ça ne donne pas grand chose... J'ai du boulot !
Messages postés
6868
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 août 2020
536
J'ai donc crée une macro toute simple avec un bouton

Donc tu as ton numéro 17-4710 dans une cellule. Prenons par exemple la cellule A1

voici donc le code que tu mettras au début de ta macro:

Dim Tableau() As String
    Dim i As Integer
     'découpe la chaine en fonction des tirets
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(ActiveSheet.Range("A1").Value, "-")
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        'Debug.Print Tableau(i)
    Next i
 ActiveSheet.Range("A1").Value = Tableau(0) & "-" & Tableau(1) + 1


On applique la méthode split pour découper la chaîne de caractère a partir du tiret.
le premier élément se trouve être le 17 et le second 4710 auquel on incremente de 1

Voilà


@+ Le Pivert
Messages postés
3
Date d'inscription
mercredi 20 décembre 2017
Statut
Membre
Dernière intervention
11 janvier 2018

Bonjour, bonne année !

ça y est, j'ai réussi, merci beaucoup de votre aide !!!



Bonne journée