utisiation du mois de la date du jour Fermé

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