Incrémenter n° facture automatique à partir d'un n° existant

Résolu/Fermé
CharlotteMasson Messages postés 3 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 11 janvier 2018 - 20 déc. 2017 à 11:29
CharlotteMasson Messages postés 3 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 11 janvier 2018 - 11 janv. 2018 à 15:50
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
20 déc. 2017 à 14:30
0
CharlotteMasson Messages postés 3 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 11 janvier 2018
21 déc. 2017 à 16:25
Bonjour,

merci mais ça ne donne pas grand chose... J'ai du boulot !
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 21 déc. 2017 à 19:03
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
0
CharlotteMasson Messages postés 3 Date d'inscription mercredi 20 décembre 2017 Statut Membre Dernière intervention 11 janvier 2018
11 janv. 2018 à 15:50
Bonjour, bonne année !

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



Bonne journée
0