Discussion :

[Jsch19]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Archive()
Dim Debut as String:Dim Numero as Integer
Dim Fin as String
 
Debut="FACT-"
Numero=Int(Replace(Range("B2").Value,"FACT_"," "))+1
Fin="_"&UCase(Format(Range("F2"),"MMM"))
 
Range("B2").Value=Debut & Numero & Fin
End Sub

Ça apparaît sur cette forme : FACT-1–NOV
Mais pour pouvoir l’incrémenter je dois aller à la cellule et retirer -NOV à la fin et cliquer sur le macro Archiver pour que ça devienne FACT-2-NOV
Je ne vois pas où est l’erreur.
NB:Sheets("Vente").Range("B2") : c'est la cellule où je veux placer avoir mon numéro de Facture.
Sheet("Vente").Range("F2") : c'est la cellule où il y a ma date.

[Transitoire]

Bonjour, soyez gentil de mettre le code entre balise Code(#) ça le rend plus lisible, exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Archive()
Dim Debut as String
Dim Numero as Integer
Dim Fin as String
Debut="FACT-"
Numero=Int(Replace(Range("B2").Value,"FACT_"," "))+1
Fin="_"&UCase(Format(Range("F2"),"MMM"))
Range("B2").Value=Debut & Numero & Fin
End Sub

Par contre, je comprends pas bien ce que vous désirez faire?
Cordialement

[Thumb down]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
t=Split("FACT-1–NOV","-")
Facture=t(0) & "-" & cstr(val(t(1))+1) & "-" & t(2)

[Philippe Tulliez]

Bonjour,
Pourquoi ne pas séparer les éléments ?

Une valeur (Le compteur) est une chose, la manière dont il est présenté (le format) en est une autre et pour combiner les deux, on utilisera la concaténation du compteur et du format choisi.

Exemple avec Excel où le compteur se trouve en cellule A1 et le format en cellule B1
Exemple simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="Fact " & A1 & " Nov"

Exemple avec date formatée ne faisant apparaître que le mois de la date d'aujourd'hui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="Fact " & A1 & " " & TEXTE(AUJOURDHUI();"mmm")

Cette concaténation donnera Fact 1 nov.
Oui mais je souhaite que le mois en abrégé commence par une majuscule soit Fact 1 Nov

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="Fact " & A1 & " " & NOMPROPRE(TEXTE(AUJOURDHUI();"mmm"))

Traduction en VBA.
Il suffit de lire la cellule où se trouve la formule qui formate mon numéro de facture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t()
  Dim InvoiceNumberText As String
  InvoiceNumberText = ThisWorkbook.Worksheets("Parameter").Range("B1").Value
  MsgBox InvoiceNumberText
End Sub

On aurait pu évidement simplifier le code par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  MsgBox ThisWorkbook.Worksheets("Parameter").Range("B1").Value

ou encore mieux en nommant la cellule B1 par exemple (NumFactText)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Range("NumFactText").Value

Avantage d'utiliser une cellule d'excel ayant la formule formatant le classeur plutôt que le traduire en VBA :

• Nombre de lignes de code limité
• Maintenance aisée sans toucher au code VBA

Reste maintenant à utiliser une fonction VBA pour incrémenter le compteur mais ça c'est une autre question.

[Thumb down]

Bonjour,
Effectivement, dans une feuille de configuration, on incrémenté de 1 la cellule A1, et on place la date dans A2.
Si A2 est différent du mois en cours on repart de 1!

[Philippe Tulliez]

Bonjour,
il y a plusieurs manières de concevoir l'incrémentation d'un numéro de facture, de devis, etc.

• Continue (la plus simple à gérer)
• Périodique

La première ne nécessite qu'un seul paramètre (le dernier numéro utilisé), la seconde nous oblige à connaître en plus la dernière date à laquelle on a utilisé ce numéro et la périodicité de réinitialisation du compteur.

A lire éventuellement ce billet Excel – Incrémenter un numéro de facture, devis, à l’aide d’une fonction personnalisée