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:

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
Merci par avnace pour votre aide.