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 !

A voir également:

Incrémenter n° facture automatique à partir d'un n° existant
Creer un groupe whatsapp a partir d'un autre groupe - Guide
Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
Trouver un numero de portable a partir d'un nom svp - Forum Réseaux sociaux
Recherche automatique des chaînes ne fonctionne pas - Guide
Message automatique thunderbird - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
20 déc. 2017 à 14:30

Bonjour,

voir ceci:

https://support.microsoft.com/fr-fr/help/469850

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 !

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
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

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

Discussions similaires

Annuaire portable gratuit à partir d'un nom

Chemin Logo du site de la Cité de l'espace

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport

Aliexpress : Comment obtenir une facture ?

Retrouver mes factures réglo mobile