Utisiation du mois de la date du jour

[Fermé]
Signaler
Messages postés
2
Date d'inscription
mardi 23 juin 2015
Statut
Membre
Dernière intervention
26 juin 2015
-
Messages postés
14815
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 août 2021
-
Bonjour, Je voudrai en ouvrant une feuille me servir du mois de la date du jour pour selectionner une cellule. exemple : 26/06/2015 donc 6 aller en cellule A45 si month =7 aller en A80 si 1 aller en A1 etc
merci d'avance pour vos réponses



1 réponse

Messages postés
2215
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
17 juillet 2021
324
Bonjour
Quelle est la logique?
mois=1 sélectionner A1
mois=6 sélectionner A45
mois = 7 sélectionner A80
En attendant plus de précisons, coller ceci dans le module de chaque feuille et remplacer les adresses de cellules entre crochets par vos adresses.
Private Sub Worksheet_Activate()
    Select Case Month(Date)
        Case Is = 1
            [A1].Select
        Case Is = 2
            [A10].Select
        Case Is = 3
            [A20].Select
        Case Is = 4
            [A30].Select
        Case Is = 5
            [A40].Select
        Case Is = 6
            [A50].Select
        Case Is = 7
            [A60].Select
        Case Is = 8
            [A70].Select
        Case Is = 9
            [A80].Select
        Case Is = 10
            [A90].Select
        Case Is = 11
            [A100].Select
        Case Is = 12
            [A110].Select
    End Select
End Sub

Cdlt
Messages postés
2
Date d'inscription
mardi 23 juin 2015
Statut
Membre
Dernière intervention
26 juin 2015

Oui, merci c'est exactement ce qu'il me fallait, j'ai de nombreuses feuilles découpé en mois et j'avait besoin pour ^être plus rapide et ne pas me tromper de mois qu'elle s'ouvre au bon mois
dnk78
Messages postés
14815
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 août 2021
296
Pourquoi :
Case Is = 1
?
Case 1
fait l'affaire.