Discussion :

[lebeniste]

salut dans mon vba j'ai mis ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open() 
 
End Sub 
 
entre ces 2 lignes tape 
 
dim Numfacture as long 
Numfacture = sheets(1).range("a1").value 
Numfacture = Numfacture + 1 
sheets(1).range("a1").value = Numfacture

mais j'aimerais mettre avant les chiffre # FE-

se qui me donnerais un # de facture : ex. # fe- 00002
est-ce possible d'y inserer un caractere ?

[laetitia]

bonjour lebeniste le forum peut etre avec format personnalise ou macro

Code :

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

1
2
3
4
5
Dim N As Long
[a1] = Mid(ActiveCell, 5)
N = Sheets(1).[a1]
N = N + 1
Sheets(1).[a1] = "FE- " & N

attention il est important avant de lancer le code pour la premiere fois que dans la cellule a1 soit FE-un espace un numero autrement erreur
vu que mid enleve les 4 premiers caracteres de gauche
le code il vaut mieux le mettre dans une macro puis

Code :

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

1
2
3
Private Sub Workbook_Open()
Call Macro1
End Sub

[Jeannot45]

peut etre avec format personnalise

...

attention il est important avant de lancer le code pour la premiere fois que dans la cellule a1 soit FE-un espace un numero autrement erreur
vu que mid enleve les 4 premiers caracteres de gauche

En effet, en utilisant un format personnalisé, cela simplifiera ton code, tu n'aura pas à gérer le

Code :

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

Mid(ActiveCell, 5)

[did103]

Bonjour l'ébéniste,

Juste un petit conseil pour tes numéros de factures:
le n° doit être unique, mais il n'est spécifié nulle part que tous les numéros doivent se suivre de 1 à l'infini.

Je te conseille pour ta comptabilité de prévoir plutôt:
FE-AAMMNNN avec AA= année, MM= mois de facturation (01 à 12) et NNN = n° ordre de ta facture.

[lebeniste]

ca fonctionne sauf que :

Bonjour l'ébéniste,


Je te conseille pour ta comptabilité de prévoir plutôt:
FE-AAMMNNN avec AA= année, MM= mois de facturation (01 à 12) et NNN = n° ordre de ta facture.

il m'inscrit fe- aammnn1 au lieu dinscrire "fe- 200902001"
c'est vraiment le code de vba "aammnn" qui signifie l'annee mois et # ???

[Didier Gonard]

Bonjour,

vois dans la Faq et les tutos EXcel, il y a des trésors sur les formats

Sinon, pour te guider, mets ce code dans un classeur vierge..

Code :

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

1
2
3
4
5
Sub Toto()
Cells(1, 1) = Format(Date, "ddmmyyyy")
Cells(2, 1) = Format(Date, "yyyymmdd")
Cells(3, 1) = "FN-" & Format(Date, "yyyymmdd")
End Sub

cordialement,

Didider

[lebeniste]

je me demandais ou c'a allais m'ammener, mais je te remercier , "la lumiere fu"

voila mon code , long mais i marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Activate()
 
 
End Sub
 
Private Sub Workbook_Open()
Dim N As Long
N = Sheets(1).Range("F9").Value
N = N + 1
Sheets(1).Range("F9").Value = N
Dim Numfacture As Long
Numfacture = Sheets(1).Range("F9").Value
Numfacture = Numfacture + 1
Sheets(1).Range("F8").Value = "FE-" & Format(Date, "yymm") & Numfacture
 
End Sub