Incrémentation numéro automatique

Version imprimable

19/02/2018, 13h09
NEC14

Incrémentation numéro automatique
Bonjour à toutes et à tous,

Dans une cellule "F3" d'un fichier Excel je souhaite incrémenter un numéro automatiquement. Il doit avoir cette forme CLAS"ANNEE EN COURS"0001, 0002, 0003, etc...
J'ai commencé ceci :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Activate() N = Range("F3") N = N + 1 Range("F3") = "CLAS" & Year & "/" & N End Sub
Mais je ne sais pas comment insérer l'année en cours et le numéro avec le format 0001
Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Amicalement

EDIT :
J'ai réussi à trouver pour le format nombre, voici le code modifié. YEAR est en parenthèses car j'ai une erreur à ce niveau
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Activate() N = Range("F3") N = N + 1 N = Format(N, "0000") Range("F3") = "CLAS" & "Year" & " " & "/" & " " & N End Sub
19/02/2018, 13h30
Menhir

Citation:

Envoyé par NEC14

Mais je ne sais pas comment insérer l'année en cours et le numéro avec le format 0001

Deux questions, une réponse : la fonction Format().
https://msdn.microsoft.com/fr-fr/VBA...r-applications

Pour l'année, l'associer à la fonction Now().

Bonjour Menhir et merci

Voici ce que j'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Activate() Dim An2 As Byte An2 = DatePart("ww", Date, 2, 2) N = Range("F3") N = N + 1 N = Format(N, "0000") An = Year(Now()) Range("F3") = "CLAS" & " " & An2 & An & " " & "/" & " " & N End Sub
Sauf que j'ai un erreur ici : "N = N + 1" - Incompatibilité de type :calim2::calim2:

EDIT : Le message apparaît lorsque je quitte la feuille et que je reviens dessus

19/02/2018, 14h51
Menhir

Citation:

Envoyé par NEC14

EDIT : Le message apparaît lorsque je quitte la feuille et que je reviens dessus

C'est normal puisque ta macro est un évènement Activate.

Citation:

Sauf que j'ai un erreur ici : "N = N + 1" - Incompatibilité de type

Essaye de mettre dans une cellule la formule =F3+1.
Comme ça va renvoyer une erreur, essaye de comprendre pourquoi ça renvoie une erreur.
Ca te permettra de comprendre pourquoi tes calculs sur N ne fonctionnent pas.

Et déclare tes variables (en particulier N) avec leur type.
Ca aussi ça te permettra de comprendre ton code.

Et pour ce qui est de l'année, relis mon message précédent.
19/02/2018, 16h17
NEC14

Désolé, mais je ne m'en sors pas. Je vais essayer de trouver autre chose avec des formules Excel.
C'est compliqué, je ne comprends pas.
Je suis vraiment navré.
19/02/2018, 16h38
Marc-L

Bonjour,

solution niveau grand débutant : entrer une valeur numérique dans la cellule (0 ou 1 ou 2 ou … 1000 ou …)

et juste personnaliser le format de la cellule du genre "CLAS2018"0000 réduisant ainsi l'épreuve du code

à la plus simple expression d'une incrémentation numérique unitaire ! Bref, Penser Excel Avant VBA …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
19/02/2018, 16h45
NEC14

Bonjour Marc et merci pour la réponse,

J'avais procédé de cette façon, mais ça ne convient pas aux utilisateurs. Dans l'incrémentation il faut "CLAS" l'année en cours, la semaine, et un numéro au format "0000", donc au final ça doit donner ceci :

CLAS2018/8/0001, CLAS2018/8/0002, (8 parce que nous sommes dans la huitième semaine), cette séquence doit changer automatiquement aussi, comme l'année et le numéro final.

Ce n'est pas simple. Je continue à chercher sur le forum un début de solution
19/02/2018, 17h21
Menhir

Citation:

Envoyé par NEC14

Désolé, mais je ne m'en sors pas.
C'est compliqué, je ne comprends pas.

Tu n'arrives pas à comprendre que CLAS 2018 0001 + 1 ne puisse pas donner 0002 ?
20/02/2018, 07h43
NEC14

Bonjour Menhir,

Oui, ça j'arrive à le comprendre, ce n'est pas un nombre, donc pas possible de faire des calculs.
Ce qui m'est difficile c'est de trouver la solution. Je cherche encore, peut-être qu'aujourd'hui sera plus favorable qu'hier.
20/02/2018, 16h44
Marc-L

Affecter dans une variable le résultat de Split séparant le texte entre / puis
trouver le dernier index de cette variable via UBound.
Il est donc facile d'ajouter 1 (et utilisation de Format) à ce dernier index puis de réassembler la variable via Join;
tout ceci étant déjà présent dans l'aide VBA interne et une foultitude de discussions de ce forum …

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
*
Private Sub Worksheet_Activate()
Dim An2 As Byte,N as integer 
An2 = DatePart("ww", Date, 2, 2)
N = Range("F3")
N = N + 1
'N = Format(N, "0000")
An = Year(Now())
Range("F3") = "CLAS" & " " & An2 & An & " " & "/" & " " & Format(N, "0000")
 
End Sub

Code:

right("CLAS2018/8/0002",4)=format(Cint(right("CLAS2018/8/0002",4))+1,"0000")

Bonjour à toutes et à tous,

Merci dysorthographie pour ta réponse. Mais j'ai procédé autrement pour un résultat qui me satisfait.

Voici le code que j'ai mis en place, pour le moment il est lié à l'activation de la feuille, mais je vais changer ça en le liant avec le changement du contenu de la cellule F15.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Activate() Dim An2 As Byte, N As Integer An2 = DatePart("ww", Date, 2, 2) An = Year(Now()) Range("F3") = "CLAS" & " " & "CESU" & " " & An & " " & An2 N = Range("H3") N = N + 1 Range("H3") = N End Sub
EDIT : Je rencontre cependant un problème, ces cellules (F3 et H3) doivent être protégées, je dois donc retirer la protection le temps du changement de numérotation et reprotéger aussitôt

Re,

Voilà j'ai fini mon code. J'espère que cela va fonctionner, je l'ai testé plusieurs fois sans rencontrer de problème particulier.
Un grand merci à tout ceux qui ont bien voulu participer à ce post.
Amicalement
René

A l'activation de la feuille :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Worksheet_Activate() ActiveSheet.Unprotect "CLAS" Dim An2 As Byte, N As Integer An2 = DatePart("ww", Date, 2, 2) An = Year(Now()) Range("F3") = "CLAS" & "-" & "CESU" & "-" & An & "-" & An2 ActiveSheet.Protect "CLAS" End Sub
A la modification de la cellule F15
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect "CLAS" If Not Application.Intersect(Target, Range("F15")) Is Nothing Then N = Range("H3") N = N + 1 Range("H3") = N End If ActiveSheet.Protect "CLAS" End Sub