utisiation du mois de la date du jour

Question

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



Configuration: Windows 7 / Internet Explorer 9.0

Frenchie83 · Answer

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

Utisiation du mois de la date du jour

1 réponse

Discussions similaires

Newsletters