Utisiation du mois de la date du jour

dnk78 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   -
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



A voir également:

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
0
dnk78 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Pourquoi :
Case Is = 1
?
Case 1
fait l'affaire.
0