aide incrémentation avec condition

[voisinjulien]

Bonjour,

Je souhaiterai créer une incrémentation avec condition (pas sur du terme)!
J'explique, j'ai un fichier excel qui génère des codes produit par mois et par année. le code produit s'incrémente mais je souhaite que chaque mois il revienne à zéro ce que je ne sais pas faire.
Je vous joint le fichier excel
Merci d'avance

fichier xls

PS: il y a une macro, elle est clean 🙂

 

[Hulk]

Re : aide incrémentation avec condition

Hello,

D'après ce que j'ai pu comprendre...

J'ai laissé de côté ta macro "ARCHIVE".

Vois si ça te vas.

Merci à MichelXLD pour sa macro "DernierJourDuMois" 😉

Cdt, Hulk.

 

[voisinjulien]

Re : aide incrémentation avec condition

Déjà merci de t'être penché sur le problème 😉,

Ce n'est pas exactement ce que j'imaginais!!
J'ai sans doute mal formulé ma question...


Sur le fichier que tu as modifié, il y a une macro qui incrémente le n° d'études jusqu'à 30 et l'autre à 31 (fonction du nb de jours dans le mois) ensuite raz de l'indice...si j'ai bien compris.
Ce que j'imaginais c'est une incrémentation de "N°" après avoir cliqué sur archivage et lorsque l'on change de mois, ce "N°" repasse automatiquement à l'indice 00 pour pour avoir un N° d'étude du type :
- E100500
- E100501 (pour les 3 premières études de mai)
- E100502
et
- E100600
- E.......... pour juin, etc...)

Est-ce clair?

Sinon, je n'arrive pas à visualiser ta macro, est-elle protégée?😕

 

[Hulk]

Re : aide incrémentation avec condition

Re,

Euh je crains que ce ne soit pas dans mes cordes... un vrai pro te viendra surement en aide.

Si jamais les macros ne sont pas protégées elles sont dans le code de la feuille.

 

[pierrejean]

Re : aide incrémentation avec condition

bonjour voisinjulien

Salut Hulk

Vois si cela te convient

 

[voisinjulien]

Re : aide incrémentation avec condition

Merci Hulk pour ton aide 😉

 

[voisinjulien]

Re : aide incrémentation avec condition

C'est super pierrejean!

Juste un dernier truc, (il faudrait que l'indice commence à "00" et non "01" est-ce possible? et aussi,(en fait j'ai trouvé pour ca!)) 🙂
Est-ce que l'indice "00" peut être affiché dans la feuille "Etude" lors du changement de mois ?

 

[pierrejean]

Re : aide incrémentation avec condition

Re

Vois si cela convient

 

[voisinjulien]

Re : aide incrémentation avec condition

C'est presque ca!!

Lors du changement de mois, le "N°" ne se met pas à l'indice 00 dans la feuille "Etude" je souhaiterai qu'il soit affiché 00 avant de cliquer sur archivage.

Après ce n'est qu'un détail!

 

[pierrejean]

Re : aide incrémentation avec condition

Re

En fait le numero sur la feuille Etude se met a 0 lors de l'ouverture du fichier si le mois est different du dernier enregistré en feuille Archive
Je presume que le changement de mois ne se fait pas (A minuit normalement ) alors que tu travailles sur Excel
Si c'etait le cas, je pourrais regarder mais cela me parait plutot difficile

 

[voisinjulien]

Re : aide incrémentation avec condition

Si le N° se met à 0 lors de l'ouverture du fichier c'est parfait (j'ai pas vérifier comme ca).
Le problème est résolu!
Merci beaucoup ta réactivité est impressionnante 🙂

Merci aussi a hulk de s'être penché sur le pb.

Salutations a vous deux

 

[voisinjulien]

Re : aide incrémentation avec condition

Salut à tous,
J'ai de nouveau un problème avec l'incrémentation et toujours le même fichier!
J'ai modifier la macro pour faire également des sous totaux et maintenant l'incrémentation fonctionne mais après avoir fermé le fichier, l'incrémentation recommence à zéro.

alors j'ai suposé que le problème venait des sous totaux et donc je les supprime avant d'effectuer la copie, mais ca ne fonctionne pas!

Sub Archive1()
    Sheets("Archive").Select
    Range("A2").Select
    Selection.RemoveSubtotal
    Sheets("Etude").Select
     Application.ScreenUpdating = False
    Range("D22:H22").Copy
    Sheets("Archive").Select
    derlin = Sheets("Archive").Range("A65536").End(xlUp).Row + 1
    Sheets("Archive").Range("A" & derlin & ":E" & derlin).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    If Sheets("Archive").Range("C" & derlin) <> Sheets("Archive").Range("C" & derlin - 1) Then Sheets("Archive").Range("D" & derlin) = 1
    Sheets("Etude").Range("G22") = Sheets("Archive").Range("D65536").End(xlUp) + 1
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Sheets("Archive").Select
    Range("J22").Select
    Columns("B:B").Select
    Selection.NumberFormat = "yy"
    Columns("C:D").Select
    Selection.NumberFormat = "00"
    Columns("A:G").Select
    Selection.Font.Bold = False
    Rows("1:1").Select
    Selection.Font.Bold = True
    Range("A2").Select
    Selection.Subtotal GroupBy:=3, Function:=xlCount, TotalList:=Array(3), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Sheets("Etude").Select
    Range("J22").Select
    ActiveWorkbook.Save
End Sub

ici le fichier : http://cjoint.com/?grmmoYskie

Merci de bien vouloir m'aider de nouveau!! 😉

 

[voisinjulien]

Re : aide incrémentation avec condition

Alors, personne n'a une petite idée?😕

 

[pierrejean]

Re : aide incrémentation avec condition

Re

Remplacer la macro Private Sub Workbook_Open()

par

Private Sub Workbook_Open()
derlin = Sheets("Archive").Range("C65536").End(xlUp).Row
If Sheets("Archive").Range("C" & derlin - 2) <> Month(Date) Then Sheets("Etude").Range("G22") = 0
End Sub

 

[voisinjulien]

Re : aide incrémentation avec condition

Re

Je n'arrive pas à faire la macro, je ne suis qu'un débutant 🙂,

j'obtien une macro qui ne fonctionne pas 🙁

Est ce que tu peux m'écrire la macro en entier stp...
Merci