afficher feuille du mois en cours

**stephanies_1977** · 18/12/2007, 11h05

bonjour à tous,
j'ai un petit souci avec mon code vba.
dans mon fichier excel j'ai 12 feuilles (masquées) représentants les 12 mois de l'année.
je souhaite utiliser un code qui m'affiche la feuille du mois en cours :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets(Month(Now)).Visible = True
Sheets(Month(Now)).Activate

seulement il me donne toujours le mois d'octobre au lieu de décembre

alors j'ai renommé ma feuille décembre différement (dec, 12, december, decembre) mais rien n'y fait

est-ce que vous pouvez m'aider ?

d'avance merci
Stéph

**Jean-Philippe André** · 18/12/2007, 11h15

salut, je te propose de faire déjà un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Month(Now)

et de t'asssurer que tu as bien 12.
Ensuite, le nom de tes feuilles doit être 1...12 pour que ca marche.

**Ragnarok85** · 18/12/2007, 11h32

Bonjour,

Comme le dit jpcheck utilise le numero du mois.
Et essaye d'utiliser la méthode select pr changer de changer de feuille au lieu d'activate.

Antoine

**stephanies_1977** · 18/12/2007, 12h04

Re,

j'ai donc renommé toutes mes feuilles de 1 à 12
et les ai toutes visibles, c'est plus facile pour tester les codes

voici donc le code que j'essai, mais pareil j'arrive sur le mois 10:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Debug.Print Month(Now)
Sheets(Month(Now)).Select

**Jean-Pierre49** · 18/12/2007, 13h01

Bonjour,
les nom d'une sheet est string
essais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
A = CStr(Month(Now))
 
Sheets(A).Select

**stephanies_1977** · 18/12/2007, 13h26

super,

ça fonctionne !!
un grand merci
Et merci aussi pour les Cours Excel

petite question supplémentaire,
est-il possible d'appliquer ce code pour les trimestres ?

**Jean-Pierre49** · 18/12/2007, 13h46

A ma connaissance il n'y a pas de fonction pour le No du trimestre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    If Month(Now) <= 4 Then
        Trimestre = 1
    ElseIf Month(Now) > 4 And Month(Now) <= 6 Then
        Trimestre = 2
    ElseIf Month(Now) > 6 And Month(Now) <= 9 Then
        Trimestre = 3
    Else
        Trimestre = 4
    End If
 
A = CStr(Trimestre)
 
Sheets(A).Select

Invité · 18/12/2007, 13h50

Bonjour

Si tu veux le trimestre d'une date, tu peux utiliser la fonction Format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date,"q",vbMonday,vbFirstJan1)

Starec

**fred65200** · 18/12/2007, 13h59

bonjour,

je n'ai pas réussi à faire fonctionner ton code Starec

je m'en suis inspiré pour l'utiliser avec DateDiff

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trimestre = DateDiff("q", DateSerial(Year(Date), 1, 1), Date, vbMonday, vbFirstJan1) + 1

EDIT plus simple avec DatePart

.
Finalement presque ce que tu avais donné certainement trop hativement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trimestre = DatePart("q", Date, vbMonday, vbFirstJan1)

cordialement

Invité · 18/12/2007, 14h13

Envoyé par fred65200

bonjour,
je n'ai pas réussi à faire fonctionner ton code Starec

Bonjour Fred

Je viens de le copier dans la fenêtre éxécution de mon éditeur VBE, et cela fonctionne parfaitement.

**fred65200** · 18/12/2007, 20h46

bonsoir,

Accepte toutes mes excuses Starec, je ne sais pas ce que j'ai fait ce midi, ton code fonctionne parfaitement

cordialement

Invité · 18/12/2007, 20h55

Excuses acceptés

Tu m'avais mis un doute, alors que je teste toujours les codes que je mets.

A +

Starec

**stephanies_1977** · 08/01/2008, 10h11

bonjour à tous,
tout d'abord une bonne année 2008
ensuite, merci pour vos réponses pour lesquelles je n'ai pu réagir plus tôt car vacances ...

j'ai testé le dernier code de Starec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date, "q", vbMonday, vbFirstJan1)

dans un fichier vide il fonctionne très bien, seulement une fois que je l'incorpore de la manière suivante avec mes autres codes cela ne va plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

B = Format(Date, "q", vbMonday, vbFirstJan1)

B représentant mes feuilles 1 à 4 pour mes 4 trimestres
B car j'utilise déjà A pour le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

A = CStr(Month(Now))

une idée ???

merci

**Jean-Philippe André** · 08/01/2008, 10h26

bonjour, de quel type est ta variable B ?
qu'est-ce qui ne va plus ?

**stephanies_1977** · 08/01/2008, 21h06

Ha !

je n'ai pas mis de variable,

je dois avouer que je ne m'y connais pas vraiment en variable
mes codes sont assez basic ...

**stephanies_1977** · 31/01/2008, 15h20

Bonjour à tous je souhaite revenir sur ce post avec une question supplémentaire :

j'utilise le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
A = CStr(Month(Now))
 
Sheets(A).Select

pour faire apparaitre la feuille du mois en cours, seulement j'ai omis un détail dans mon travail quotidien :
le premier jour de chaque mois j'adapte encore les données du mois précédent.

de quelle manière est-ce que je peux donc encore, chaque premier du mois, faire apparaitre le feuille du mois précédent ?

D'avance merci

**fred65200** · 31/01/2008, 19h46

bonjour stephanies_1977

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Select Case Day(Date)
    Case 1: a = CStr(Month(Date) - 1) 
    Case 2, 3: If Weekday(Date, 2) = 1 Then a = CStr(Month(Date) - 1)  Else a = CStr(Month(Date))
    Case Else: a = CStr(Month(Date))
End Select

en supposant qu'un lundi 3, tu veux travailler sur ta feuille du mois précédent.

cordialement

**Qwazerty** · 31/01/2008, 20h20

SAlut

Envoyé par fred65200

a = CStr(Month(Date)) - 1

Brrrr

peut etre plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Cstr(Month(Date)-1)

A++
Qwaz

**fred65200** · 31/01/2008, 20h23

bonjour Qwazerty,

Bien vu, je rectifie de suite.
Merci
fred

**stephanies_1977** · 01/02/2008, 12h28

super,
merci à vous ça à l'air de fonctionner.

de quelle manière est-ce que je peux appliquer ce code pour la séléction d'une cellule ?
je m'explique:
dans ma feuille j'ai plusieurs colonnes :

A B C D E F
Janvier Février Mars
shop Total shop Total shop Total
xxx 23 xxx 23 xxx 23
yyy 25 yyy 25 yyy 25

(les mois sont fusionnés entre colonne A&B, C&D, E&F)

afin de copier les résultats dans les colonnes respectives, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
If Month(Now) = 1 Then
    Cells.Find(What:="jan", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Else
    If Month(Now) = 2 Then
        Cells.Find(What:="feb", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Activate
        ActiveCell.Offset(0, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False

la encore je suis bloquée par rapport au premier jour de chaque mois ou je dois encore encoder les données du mois précédent.

Encore merci pour votre aide !!!!

afficher feuille du mois en cours

Macros et VBA Excel

Discussions similaires

Partager

Partager