Sélection automatique du mois

E

edelweisseric

XLDnaute Occasionnel

• 27 Février 2006

• #2

Bonsoir Marc

Avec ceci tu devrais t'en tirer (si j'ai bien compris)

Private Sub Workbook_Open()
mois01 = Month(Date)
Range('x1').Select
ActiveCell.Offset(mois01 - 1, 0).Select
End Sub

Bon courage

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 27 Février 2006

• #3

Je te remercie beaucoup et sans vouloir abuser veux-tu m'expliquer ce code.

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 27 Février 2006

• #4

Bonsoir Marc

Private Sub Workbook_Open() ''à l'ouverture du classeur (fichier) cette macro est systématiquement lu et effectuée

mois01 = Month(Date) '''month(date) donne le n° du mois de la date du jour (date = aujourd'hui) qui est passé en valeur à la variable mois01

Range('x1').Select ''' se positionne sur la cellule 'X1'

ActiveCell.Offset(mois01 - 1, 0).Select ''' se positionne sur la ligne de la cellule 'x1' + mois01 - 1 (la première ligne étant prise par le mois de janvier) donc descend du résultat, et sur la colonne '0' donc 'x', j'aurai mis '1' elle se serait déplacée sur la colonne 'y'

End Sub

Pour le 27-02-2006 =>
Private Sub Workbook_Open()

mois01 = Month(Date) ''' = 2

Range('x1').Select

ActiveCell.Offset(mois01 - 1, 0).Select '''=2-1 => descend d'1 ligne donc février, 0 reste sur cette colonne

End Sub

Ai je été clair ?

Cordialement

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 27 Février 2006

• #5

Re bonsoir,
Je viens de procéder à l'essai et ca affiche un message : erreur de compilation.

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Février 2006

• #6

Bonjour à tous,

En tout premier lieu, un grand et sincère Merci à :
'@+Thierry 2 Avril 2005 - edelweisseric - CBernardT - jeromegmc - Jam - Ti_ - Pascal21 - ERIC S - Tibo
ainsi que pour ces liens : (
Lien supprimé
Lien supprimé
Lien supprimé

Les liens cités ci-avant m'ont amené à me poser la question suivante : S'il est possible (et apparemment ca l'est) de récupérer un mois en fonction de la date du jour, il devrait être possible également d'arriver à sélectionner ce mois directement. C'est pourquoi j'ai formulé ma demande. Si je reviens vers vous, c'est parce que je me dis qu'il doit être possible à ce que je m'affranchisse de la sélection dans la liste de validation et que le mois se sélectionne automatiquement à l'ouverture du classeur et reste afficher en A1 car il est imprimer sur l'état ensuite.
Or, le code donné par edelweisseric, je ne comprends pas pourquoi, ne fonctionne pas. Il est évident que je commets au moins une erreur, mais où...
En vous remerciant. [file name=SelectMoisAuto.zip size=14836]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectMoisAuto.zip[/file]

 

Pièces jointes

• SelectMoisAuto.zip

  14.5 KB · Affichages: 16

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 28 Février 2006

• #7

Bonjour Marc

Tout d'abord toutes mes excuses car j'ai commis une petit erreur dans mon code à cet endroit :

Range('x1').Select => il ne sait pas où aller chercher il faut donc mettre :
Sheets('Feuil1').Select => pour qu'il sache

mais voici un nouveau code que tu dois mettre dans woorkbook :

Private Sub Workbook_Open()
mois01 = Month(Date)
Sheets('Feuil1').Select
Select Case mois01
Case 1
Range('A1').Value = 'Janvier'
Case 2
Range('A1').Value = 'Février'
Case .......
Case 12
Range...... = 'Décembre'
End Select
end sub

bien entendu je te laisses le soin de continer jusqu'au mois de décembre

A+ et n'hésite pas

Bon courage

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Février 2006

• #8

Bonjour eric,
Non tu ne t'es pas trompé, j'ai juste fait un exemple pour la compréhension sans reprendre le véritable emplacement.Je te remercie vivement et vais passer à la pratique.
En te souhaitant une bonne journée.
Ici il neige à Saint Germain.

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Février 2006

• #9

J'ai encore un problème.
Le mois s'affiche bien à l'emplacement, mais l'action ne se déclenche pas.
Peux tu me dire d'où celà vient ?
En te remerciaant.

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Février 2006

• #10

J'ai oublié le fichier. [file name=SelectMoisAuto2.zip size=14772]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectMoisAuto2.zip[/file]

 

Pièces jointes

• SelectMoisAuto2.zip

  14.4 KB · Affichages: 19

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 28 Février 2006

• #11

Re Bonjour Marc

Normal je t'avais mis un exemple ...

Ecris Janvier, ... en majuscule dans la sub, et cela devrait fonctionner

Du côté de fontainebleau, il ne neige plus (pour l'instant !!!! )

Bon courage

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 28 Février 2006

• #12

Bonjour

regarde par curiosité le fichier joint

=aujourdui() en A1 + format 'mmmm'

+ modif macros

A+

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 28 Février 2006

• #13

et avec le fichier ce ne serait pas mieux?

et hop! [file name=SelectMoisAutoES.zip size=12513]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectMoisAutoES.zip[/file]

 

Pièces jointes

• SelectMoisAutoES.zip

  12.2 KB · Affichages: 17

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 28 Février 2006

• #14

Je te remercie ERIC pour ton aide appréciable, mais je n'avais pas pensé à vous signaler que j'avais besoin de cette liste de validation dans la même cellule qui se trouve occulté dans ta solution (que j'apprécie). Si c'était possible de l'avoir en même temps ce serait le top du top, ou me dire que cette fois je rêve.
Merci à vous. [file name=SelectMoisAuto3.zip size=12491]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectMoisAuto3.zip[/file]

 

Pièces jointes

• SelectMoisAuto3.zip

  12.2 KB · Affichages: 19

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 28 Février 2006

• #15

re

essaie cette version

A+ [file name=SelectMoisAutoES_20060228153817.zip size=12488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectMoisAutoES_20060228153817.zip[/file]

 

Pièces jointes

• SelectMoisAutoES_20060228153817.zip

  12.2 KB · Affichages: 25

Vote positif 0 Vote négatif