Un Bouton par mois

[WDAndCo]

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

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........

 

[WDAndCo]

Re : Un Bouton par mois

Bonsoir le Forum

Pour ce qui est plus haut cela ne peu pas marcher car y a des critères différents dans la même colonne.

Par contre comment liées les Macros mois (janvier, février, ...) a une liste Déroulante (prise dans la barre d'outil formulaire) au lieu de 12 boutons actuellement ?

D'avance merci

 

[skoobi]

Re : Un Bouton par mois

Bonsoir,

je te suggère de créer une liste directement dans une cellule (A1 par exemple): Données>Validation>Liste.
C'est plus facile pour la macro:

Application.Run [A1].Value

que tu mets dans une macro "appelle_mois" par exemple.