Discussion :

[pontoise]

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.

[Gorfael]

Salut pontoise et le forum
Où est l'erreur ? Quelle ligne ? C'estb pas un site qui s'amuse à trouver des devinettes!!!
Tu veux obtenir quelle formule pour ta cellule active ?
A+

[alsimbad]

jour tout le monde
essaye comme ça

Code :

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

1
2
3
4
5
6
7
8
 
Sub test()
Set myRange = Worksheets("Recettes").Range("F2:F200")
K = Application.WorksheetFunction.Max(myRange)
M = Right(Format(Year(Date), 0), 1)
N = Format(Month(ActiveCell.Offset(0, 4).Value))
MsgBox M & K & N
End Sub

. mais petits conseil :
n'utilise pas activecell, qui sait ou sera le pointeur, et si la cellule offset 4 n'est pas une date, tu aura une erreur
si tu ne prend que le dernier chiffre de l'année, en 2010, tu aura 0

[pontoise]

Merci, ça marche.