Bonjour,
J'ai une erreur d'executin (1004) quand j'execute mon code (voir ci-dessous).
En effet, je souhaiterais mettre en place une numérotaion automatique de factures de la façon suivante (en se basant sur la date facture):
-1er car. : Dernier chiffre de l'année (pour 2008 ==> 8).
- 2ème au 4ème car. : Compteur du nombre de factures
- 5ème au 6ème car. : Mois d'émission de la facture (Aout ==> 08).
Je le fais en 2 temps, je regarde d'abord dans les numros existants pour avoir le max du compteur (2 au 4 eme car), puis je le concatène avec l'année et le mois de la date facture comme suivant:
Merci par avnace pour votre aide.
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
17
18
19
20
21
22
23
24
25
26
27 Sub Compteur() Dim F As Integer For F = 2 To 200 If Cells(F, 5).Value = "" Then Cells(F, 6).Value = 0 Else Cells(F, 6).Value = Mid(Cells(F, 5), 2, 3) End If Next F End Sub Sub NumFact_Auto() Dim K As String Dim M As String Dim N As String Dim myRange As Range Set myRange = Worksheets("Recettes").Range("F2:F200") K = Application.WorksheetFunction.Max(myRange) M = "=RIGHT(Year(I62),1)" N = Mid(Format(ActiveCell.Offset(0, 4).Value, "dd/mm/yyyy"), 4, 2) ActiveCell.Value = M & """" & K & """" & N End Sub
Partager