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

CharlotteMasson 3 Messages postés mercredi 20 décembre 2017Date d'inscription 11 janvier 2018 Dernière intervention - 20 déc. 2017 à 11:29 - Dernière réponse : CharlotteMasson 3 Messages postés mercredi 20 décembre 2017Date d'inscription 11 janvier 2018 Dernière intervention
- 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 !
Afficher la suite 

4 réponses

Répondre au sujet
cs_Le Pivert 4822 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 janvier 2018 Dernière intervention - 20 déc. 2017 à 14:30
CharlotteMasson 3 Messages postés mercredi 20 décembre 2017Date d'inscription 11 janvier 2018 Dernière intervention - 21 déc. 2017 à 16:25
Bonjour,

merci mais ça ne donne pas grand chose... J'ai du boulot !
cs_Le Pivert 4822 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 11 janvier 2018 Dernière intervention - 21 déc. 2017 à 18:14
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
CharlotteMasson 3 Messages postés mercredi 20 décembre 2017Date d'inscription 11 janvier 2018 Dernière intervention - 11 janv. 2018 à 15:50
Bonjour, bonne année !

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



Bonne journée
Commenter la réponse de cs_Le Pivert