Un Bouton par mois

WDAndCo · 16 Septembre 2008

Bonsoir le Forum

Ci dessous des codes pour des macro qui me servent de limites dans un tableau. Elles prennent le 1er d'un mois et le dernier jour de ce meme mois.
Mon souci est, enfin seras l'année prochaine les 12 marcros seront toutes à modifiées pour êtres compatible avec 2009.
Ma question comment les rendre perpétuelles ?

D'avance merci
Dominique

Code:

Sub Aout()
'
'
' Macro enregistrée le 14/08/2008 par 5513403E
'

'
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").Select
    ActiveCell.FormulaR1C1 = 39661
    Range("L20").Select
    ActiveCell.FormulaR1C1 = 39691
    Range("E20").Select
End Sub
Sub Septembre()
'
' 
' Macro enregistrée le 14/08/2008 par 5513403E
'

'
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").Select
    ActiveCell.FormulaR1C1 = 39692
    Range("L20").Select
    ActiveCell.FormulaR1C1 = 39721
    Range("E20").Select
End Sub

Sub Octobre()
'
' 
' Macro enregistrée le 14/08/2008 par 5513403E
'

'
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").Select
    ActiveCell.FormulaR1C1 = 39722
    Range("L20").Select
    ActiveCell.FormulaR1C1 = 39751
    Range("E20").Select
End Sub
Sub Juillet()
'
' 
' Macro enregistrée le 14/08/2008 par 5513403E
'

'
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").Select
    ActiveCell.FormulaR1C1 = 39630
    Range("L20").Select
    ActiveCell.FormulaR1C1 = 39660
    Range("E20").Select
End Sub

PS : Ou toutes autres solutions qui correspondras a ce qui est ci dessus : un déroulant au lieu de 12 boutons ou autre........

skoobi · 16 Septembre 2008

Re : Un Bouton par mois

Bonsoir,

Voici les modifications pour les mois d'août et septembre (adapter les autres mois).
Ne pas oublier la constante "AnActuel" (à mettre tout en haut du module) qu'il faudra passer à 2009 l'année prochaine 😉:

Code:

[COLOR=Blue][B]Const AnActuel = 2008[/B][/COLOR]
Sub Aout()
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    [B][COLOR=Blue]Range("E20").FormulaR1C1 = DateSerial(AnActuel, 8, 1)[/COLOR][/B]
    [COLOR=Blue][B]Range("L20").FormulaR1C1 = DateSerial(AnActuel, 8, 31)[/B][/COLOR]
    Range("E20").Select
End Sub
Sub Septembre()
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    [COLOR=Blue][B]Range("E20").FormulaR1C1 = DateSerial(AnActuel, 9, 1)[/B][/COLOR]
    [COLOR=Blue][B]Range("L20").FormulaR1C1 = DateSerial(AnActuel, 9, 30)[/B][/COLOR]
    Range("E20").Select
End Sub

WDAndCo · 16 Septembre 2008

Re : Un Bouton par mois

Merci est bonne soirée

WDAndCo · 17 Septembre 2008

Re : Un Bouton par mois

Bonsoir le Forum

Un petit plus : Nous sommes en septembre le Bouton 09 donne les infos entre le 1er et le 30 septembre 2008...... OK
Le Bouton 08 donne les infos entre le 1er et le 31 aout 2008...... OK
Le Bouton 10 donne les infos entre le 1er et le 31 octobre 2008 ????? J'aimerais qu'il donne les infos entre le 1er et le 31 octobre 2007.

Enfin pour être plus clair chaque bouton donne les infos de son mois. Avec pour règle si passer ou en cours les infos de l'année.
Si non passer les infos de l'année - 1

D'avance merci

skoobi · 17 Septembre 2008

Re : Un Bouton par mois

WDAndCo à dit:
Avec pour règle si passer ou en cours les infos de l'année.
Si non passer les infos de l'année - 1

Bonsoir,

Tu pourrais être un peu plus clair STP? 😕

WDAndCo · 17 Septembre 2008

Re : Un Bouton par mois

Bonsoir et pardon.

Au plus clair si le mois demandé dans l'année X n'est pas encore passé donner les infos de l'année X - 1

Exp : Nous sommes en septembre 2008
Avec le bouton 09 -> donner les infos de Sep 2008
Avec le bouton 08 -> donner les infos de Aou 2008
Avec le bouton 07 -> donner les infos de Jui 2008
Avec le bouton 10 -> donner les infos de Oct 2007 (mais après ou courant Octobre 2008 -> donner les infos de Oct 2008 bien sur)
Avec le bouton 11 -> donner les infos de Nov 2007

skoobi · 17 Septembre 2008

Re : Un Bouton par mois

Re,

Voici:

Code:

Dim AnActuel
Dim MoisActuel
Sub MoisAn()
AnActuel = Year(Date)
MoisActuel = Month(Date)
End Sub
Sub Septembre()
    Call MoisAn
    An = IIf(MoisActuel >= 9, AnActuel, AnActuel - 1)
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").FormulaR1C1 = DateSerial(An, 9, 1)
    Range("L20").FormulaR1C1 = DateSerial(An, 9, 30)
    Range("E20").Select
End Sub
Sub Octobre()
    Call MoisAn
    An = IIf(MoisActuel >= 10, AnActuel, AnActuel - 1)
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").FormulaR1C1 = DateSerial(An, 10, 1)
    Range("L20").FormulaR1C1 = DateSerial(An, 10, 31)
    Range("E20").Select
End Sub
......
..........
...

WDAndCo · 17 Septembre 2008

Re : Un Bouton par mois

Bonsoir le Forum,
Le code ne marche pas il passe a tous coup en 2007.
De plus je ne comprends pas dans :

Code:

 An = IIf(MoisActuel >= 9, AnActuel, AnActuel - 1)

le IIf ?

Bonne soirée

skoobi · 17 Septembre 2008

Re : Un Bouton par mois

Bizarre,

le Iif est l'équivalent de la fonction SI d'excel.

WDAndCo · 18 Septembre 2008

Re : Un Bouton par mois

Bonsoir le Forum

Je joint Le Fichier car pour moi cela ne marche pas !

Une précision nous sommes en septembre donc septembre 2008 doit être visible car en cours de pointage.
Donc peut être :

Code:

An = IIf(MoisActuel > 9, AnActuel, AnActuel - 1)

Votre avis
Dominique

skoobi · 19 Septembre 2008

Re : Un Bouton par mois

Re bonjour,

alors, plusieurs soucis dans ton code:

1-

Code:

Dim AnActuel
Dim MoisActuel

sont mal placés. Déplace les de la macro "MoisAn" vers tout en haut du module.

2-supprime:

Code:

Const AnActuel = 2008

3-dans tous les mois, vérifie qu'il y ai ce que j'ai mis en bleu (en vert à adapter à chaque mois, logique)

Code:

Sub [B][COLOR=seagreen]Aout[/COLOR][/B]()
   [B][COLOR=blue]Call MoisAn[/COLOR][/B]
    [B][COLOR=blue]An = IIf(MoisActuel >= [COLOR=seagreen]8[/COLOR], AnActuel, AnActuel - 1)[/COLOR][/B]
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").FormulaR1C1 = DateSerial([COLOR=blue][B]An[/B][/COLOR], 8, 1)
    Range("L20").FormulaR1C1 = DateSerial([COLOR=blue][B]An[/B][/COLOR], 8, 31)
    Range("E20").Select
End Sub

PS: regarde bien le code que je t'avais envoyé hier.

WDAndCo · 19 Septembre 2008

Re : Un Bouton par mois

Bonsoir le Forum

Sa marche ! J'ai modifié le code ainsi :

Code:

Sub Septembre()
    An = IIf(Month(Date) >= 9, Year(Date), Year(Date) - 1)
    Columns("A:P").Select
    ActiveWindow.Zoom = True
    Range("E20").FormulaR1C1 = DateSerial(An, 9, 1)
    Range("L20").FormulaR1C1 = DateSerial(An, 9, 30)
    Range("E20").Select
End Sub

Votre avis. Et plus de problème lors du changement d'année.
Bon un problème de réglé.

Une autre évolution serait la bienvenue : Avec une archive Journalières d'une année glissante je crois que cela est suffisant. Donc le plus serait d'avoir une archive pour les dates > à un an non plus à la Journalière comme actuellement mais des Mensuels !
J'espère avoir été claire ?
Donc ma question comment regrouper les opération journalières pour en faire des mensuels avec comme point commun le Nom. (Si opération à plus d'un an à mois écoulé)
- 1er Solution : faire une Archive Mensuel (donc une nouvelle feuille), mais pour les calcules de la page Cumuls cela devient plus compliqué car sur deux feuilles.
- 2eme solution : sur la page Archives faire une ligne par mois et par nom qui regroupe toutes les informations du mois a traité et effacement des ses lignes après l'insertion de cette ligne.

Je me tiens a votre disposition pour toutes infos complémentaires.

Amicalement,
Dominique

WDAndCo · 20 Septembre 2008

Re : Un Bouton par mois

Bonjour le Forum

Juste un petit up !

skoobi · 20 Septembre 2008

Re : Un Bouton par mois

Bonjour,

Donc le plus serait d'avoir une archive pour les dates > à un an non plus à la Journalière comme actuellement mais des Mensuels !
J'espère avoir été claire ?
Donc ma question comment regrouper les opération journalières pour en faire des mensuels avec comme point commun le Nom. (Si opération à plus d'un an à mois écoulé)

Si tu n'as pas eu de réponse c'est probablement car on a pas compris. Un exemple serait bienvenue.

WDAndCo · 20 Septembre 2008

Re : Un Bouton par mois

Bonjour le Forum.
J'aimerais regrouper les lignes du mois d'aout 2007 (puis autre mois en fonction de l'avancement dans l'année) sur une seule ligne en date du 1er du mois par Exp, (une par nom) puis effacement des lignes ainsi comptabilisées.
Contraintes : Cela ne doit pouvoir ce faire que si le mois an + 1 a été pointé. (Exp : Si je pointe septembre 2008, c'est que aout 2008 à été pointé donc aout 2007 peut etre regroupé.

D'avance merci

EVS.xls

Effectuez une recherche sur Excel Downloads...

Un Bouton par mois

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

WDAndCo

XLDnaute Impliqué

skoobi

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

Discussions similaires

Nous accordons de l'importance à votre vie privée