référence à onglets ds macros & formules

[pitchoune85]

bonsoir tous le monde (surtout ceux qui sont tjrs devant leur pc à cette heure-ci : mon mari dis que je suis tarée.... vous comprenez ça vous ??)
voilà mon pb :
j'ai une feuille de saisie nommée (moisencours) qui est le planning du mois de janvier.
je me sert de la réf de l'onglet dans pluss macros et formules.
j'ai onzes autres feuilles de février et décembre.
j'aimerai pouvoir, à l'aide d'un bouton sur une page menu par exple, pouvoir passer la feuille 'février' en 'moisencours' et alors la feuille 'moisencours' deviendra 'janvier'.
je sais que c'est possible car j'ai lu quelques choses dans ce jour mais je ne le retrouve plus.
Et POINT IMPORTANT, il faut que mes macros et formules gardent la réf 'moisencours' et ne passent pas à 'janvier'.

j'espère que vous avez compris et que vous pourrez m'aider.
merci bcp
a+

 

[edelweisseric]

Bonsoir

De la part d'un taré

Voie le code :

moisencours=activesheet.name
sheets(moisencours).select

Cela devrait aller

Cordialement

 

[pitchoune85]

merci bcp
j'essaye tous de suite : ça fait bizarre ma question fait douze ligne et ta réponse 3 : ca serait vraiment trop beau --> je met la macro ds worksheet, c'est bien ca?

 

[edelweisseric]

Bonsoir Pitchoune

Si tu veux que la feuille du mois en cours (mars à ce jour) réellement soit la feuille active écris plutôt cela dans une fonction d'un module appelé dans woorkbook_open :

Public lafeuilledumoisencours as integer
mydate=date
mymonth=month(mydate)
lafeuilledumoisencours=mymonth

et après tu fais référence à :

sheets(lafeuilledumoisencours).select par exemple

J'espère que j'ai été clair, sinon n'hésite pas

A+

Cordialement

 

[pitchoune85]

en fait c'est pas vraiment le mois en cours.
ca serait plus m-1 : en mars, on saisie février.
j'avais dans l'idée de créer une 'combobox' avec une liste déroulante où on choisit le mois en cours et un bouton valider et à partir de ce bouton, le changement se fait : c'est possible ça ??

 

[edelweisseric]

réponse pitchoune85

Bonjour

Aucun problème. Le code pour le bouton :

Sub change_mois()
Range('a1').Value = ComboBox1.Text ''pour essai
lafeuilledumoisencours = ComboBox1.Text
End Sub

ou :

Public lafeuilledumoisencours as integer
mydate=date
mymonth=month(mydate)
lafeuilledumoisencours=mymonth-1 ''cela devrait aller

Bon WE

Cordialement

 

[pitchoune85]

bonsoir
en fait , j'en avais marre de tourner en rond et de ne pas trouver
en plus, si je garde tous les mois, mon fichier va peser des tonnes
j'ai donc trouvé une sol imtermédiaire :
une macro qui me permet de sauvegarder les mois terminés dans un classeur de sauvegarde et en plus, je ne copie que les valeurs, pas les formules
voili voilou