Sélection

Le
Pascal
Bonjour,
J'ai un classeur avec 12 feuilles pour 12 mois nommées de 1 à 12.
J'aimerais à l'ouverture du classeur que la feuille du mois ainsi que la
date du jour (en col A) soit automatiquement sélectionnée.

Merci
Pascal





Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 10/06/2007 09:26:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4581671
Bonjour,

Les dates sont écrites au format jj/mm/aa sinon adapter.

Sub auto_open()
Sheets(Trim(Str(Month(Date)))).Select
[A:A].Find(What:Úte, LookIn:=xlValues).Select
End Sub

ou

Sub auto_open()
Sheets(Trim(Str(Month(Date)))).Select
[A1].Offset(Application.Match(CDbl(Date), [A:A], 0) - 1, 0).Select
End Sub

JB

On 10 juin, 09:26, "Pascal"
Bonjour,
J'ai un classeur avec 12 feuilles pour 12 mois nommées de 1 à 12.
J'aimerais à l'ouverture du classeur que la feuille du mois ainsi que la
date du jour (en col A) soit automatiquement sélectionnée.

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 10/06/2007 09:26:12
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Pascal
Le #4581661
Merci JB exactement cela
Pascal
"JB"
Bonjour,

Les dates sont écrites au format jj/mm/aa sinon adapter.

Sub auto_open()
Sheets(Trim(Str(Month(Date)))).Select
[A:A].Find(What:Úte, LookIn:=xlValues).Select
End Sub

ou

Sub auto_open()
Sheets(Trim(Str(Month(Date)))).Select
[A1].Offset(Application.Match(CDbl(Date), [A:A], 0) - 1, 0).Select
End Sub

JB

On 10 juin, 09:26, "Pascal"
Bonjour,
J'ai un classeur avec 12 feuilles pour 12 mois nommées de 1 à 12.
J'aimerais à l'ouverture du classeur que la feuille du mois ainsi que la
date du jour (en col A) soit automatiquement sélectionnée.

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 10/06/2007 09:26:12
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 10/06/2007 09:51:06
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000748-2, 09/06/2007
Analyse le : 10/06/2007 09:56:31
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Publicité
Poster une réponse
Anonyme