aide incrémentation avec condition

Hulk

XLDnaute Barbatruc

• 17 Mai 2010

• #2

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.

 

Pièces jointes

• Etudes_Indicateurs(V1).zip

  18.5 KB · Affichages: 64

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Mai 2010

• #3

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?😕

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 17 Mai 2010

• #4

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Mai 2010

• #5

Re : aide incrémentation avec condition

bonjour voisinjulien

Salut Hulk

Vois si cela te convient

 

Pièces jointes

• frlHOINSQZ_Etudes_Indicateurs.zip

  11.2 KB · Affichages: 48
• frlHOINSQZ_Etudes_Indicateurs.zip

  11.2 KB · Affichages: 56
• frlHOINSQZ_Etudes_Indicateurs.zip

  11.2 KB · Affichages: 51

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Mai 2010

• #6

Re : aide incrémentation avec condition

Merci Hulk pour ton aide 😉

 

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Mai 2010

• #7

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 ?

 

Dernière modification par un modérateur: 17 Mai 2010

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Mai 2010

• #8

Re : aide incrémentation avec condition

Re

Vois si cela convient

 

Pièces jointes

• frlHOINSQZ_Etudes_Indicateurs.zip

  12.2 KB · Affichages: 44
• frlHOINSQZ_Etudes_Indicateurs.zip

  12.2 KB · Affichages: 42
• frlHOINSQZ_Etudes_Indicateurs.zip

  12.2 KB · Affichages: 42

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Mai 2010

• #9

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!

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Mai 2010

• #10

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

 

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Mai 2010

• #11

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

 

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 17 Juin 2010

• #12

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!

Code:

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!! 😉

 

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 18 Juin 2010

• #13

Re : aide incrémentation avec condition

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Juin 2010

• #14

Re : aide incrémentation avec condition

Re

Remplacer la macro Private Sub Workbook_Open()

par

Code:

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

 

Vote positif 0 Vote négatif

V

voisinjulien

Guest

• 18 Juin 2010

• #15

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

 

Vote positif 0 Vote négatif