Discussion :

[mathieu57300]

Bonjour,

Pour la mise en place d'un formulaire d'enregistrement via VBA sur Excel (2007), je souhaite que le numéro chaque enregistrement s'actualise automatiquement à chaque nouvelle saisie. Le numéro se compose de la manière suivante : "PA-2015-1" ; "PA-2015-2" etc...

Pour cela, j'ai mis une en place une fonction (voir ci-dessous), où le numéro s'inscrit automatiquement dans une textbox à l'ouverture de mon userform. Mais cela ne fonctionne qu'en partie : pour chaque enregistrement, j'obtiens comme numéro "PA-2015-1". Le dernier chiffre reste "1" et je n'arrive pas à le faire passer à "PA-2015-2" "PA-2015-3"...

Voici la fonction que j'ai mise en place :

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
28
29
30
31
32
33
34
Function nouveau_num_pa()
i = 1
dernier_numero = 0
annee = Year(Date)
 
Do While Worksheets("Feuil1").Cells(i, 1) <> ""
If Val(Mid(Worksheets("Feuil1").Cells(i, 1), 4, 4)) = annee Then
    If Val(Right(Worksheets("Feuil1").Cells(i, 1), Len(Worksheets("Feuil1").Cells(i, 1)) - 8)) > dernier_numero Then
 
    dernier_numero = Right(Worksheets("Feuil1").Cells(i, 1), Len(Worksheets("Feuil1").Cells(i, 1)) - 8)
 
    End If
 
End If
i = i + 1
Loop
nouveau_num_pa = "PA-" & Year(Date) & "-" & dernier_numero + 1
 
End Function
________________________________________________________________
 
Private Sub UserForm_Initialize()
 
    TextBox1 = nouveau_num_pa
 
End Sub
 
________________________________________________________________
 
Private Sub TextBox1_Change()
 
[A2] = TextBox1
 
End Sub

Quelqu'un pourrait-il m'apporter son aide ?

Merci d'avance et bonne journée,

Mathieu

[Theze]

Bonjour,

Teste ceci :

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
 
Function Nouveau_Num_PA() As String
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Annee As Integer
    Dim Dernier_Numero As Long
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For Each Cel In Plage
 
        If CInt(Split(Cel.Value, "-")(1)) = Year(Date) Then
 
            If CLng(Split(Cel.Value, "-")(2)) > Dernier_Numero Then Dernier_Numero = Split(Cel.Value, "-")(2)
 
        End If
 
    Next Cel
 
    Nouveau_Num_PA = "PA-" & Year(Date) & "-" & Dernier_Numero + 1
 
End Function

[mathieu57300]

Bonjour,

Merci pour la réponse. J'ai adapté le code (voir ci-dessous), mais j'ai un message d'erreur "erreur d'exécution de type '9' : l'indice n'appartient pas à la sélection". En débogage "pas à pas", je remarque le problème est à la ligne "15". Je ne vois pas ce qui cloche.
Merci

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
Function Nouveau_Num_PA() As String
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Annee As Integer
    Dim Dernier_Numero As Long
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For Each Cel In Plage
 
        If CInt(Split(Cel.Value, "-")(1)) = Year(Date) Then
 
            If CLng(Split(Cel.Value, "-")(2)) > Dernier_Numero Then
            Dernier_Numero = Split(Cel.Value, "-")(2)
 
            End If
        End If
 
    Next Cel
 
    Nouveau_Num_PA = "PA-" & Year(Date) & "-" & Dernier_Numero + 1
 
End Function

[SfJ5Rpw8]

Bonjour,

lors de l'erreur , utilise le bouton debug et regarde la valeur de ta variable Cel.value ... celle-ci ne contient surement pas les deux tirets "-" attendus..