Incrémenter n° facture automatique à partir d'un n° existant
Résolu
CharlotteMasson
Messages postés
3
Statut
Membre
-
CharlotteMasson Messages postés 3 Statut Membre -
CharlotteMasson Messages postés 3 Statut Membre -
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 !
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
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Facture aliexpress ✓ - Forum Consommation & Internet
merci mais ça ne donne pas grand chose... J'ai du boulot !
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) + 1On 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
ça y est, j'ai réussi, merci beaucoup de votre aide !!!
Bonne journée