Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sélection

Sélection

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" wrote:
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


Avatar
Pascal
Merci JB exactement cela
Pascal
"JB" a écrit dans le message de news:

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" wrote:
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