Tableau Mensuel, Ouvrir sur le bon mois

Bonjour,

J'ai un tableau Excel, comme une sorte de calendrier, les mois étant les un en dessous des autres.

J'ai figé les volets sur la ligne 14.

Je ne peux vous envoyer le tableau car il contient des données personnelles et des noms. Je joins un exemple simpliste qui a aussi le bug.

J'ai mes 12 mois. Janvier est en ligne 16, Février en ligne 43 .... Décembre en ligne 313.

Ce que j'ai fait, j'ai créé une macro du nom de "Auto_Open" qui s'execute donc à chaque lancement de mon fichier.

Voici le contenu:

Select Case Month(Date)

Case 1
    Range("A1000").Select
    Range("A16").Select
Case 2
    Range("A1000").Select
    Range("A43").Select
Case 3
    Range("A1000").Select
    Range("A70").Select
Case 4
    Range("A1000").Select
    Range("A97").Select
Case 5
    Range("A1000").Select
    Range("A124").Select
Case 6
    Range("A1000").Select
    Range("A151").Select
Case 7
    Range("A1000").Select
    Range("A178").Select
Case 8
    Range("A1000").Select
    Range("A205").Select
Case 9
    Range("A1000").Select
    Range("A232").Select
Case 10
    Range("A1000").Select
    Range("A259").Select
Case 11
    Range("A1000").Select
    Range("A286").Select
Case 12
    Range("A1000").Select
    Range("A313").Select

End Select

Pour que la ligne juste après la ligne 14 soit la ligne 97 (car on est en Avril) je suis allé sélectionner la ligne 1000 puis je remonte en la ligne qui m'intéresse (ligne 97).

La macro s’exécute bien mais le souci est le suivant:

La cellule sélectionnée est bien A97 mais la ligne suivant la ligne 14 est 75 (ce qui fait 12-13-14-75-76-77...)

Moi je voudrais que cela fasse (12-13-14-97-98-99-100....)

Est-ce un bug dans ma macro ?

Bonjour

Pas tout compris

Mais si le but est de te positionner sur la première cellule du mois utilises

Cells(16 + (Month(Date) - 1) * 27, "A").Select

Sinon envoies le code complet

Bonne journée

Edit si j'ai compris un peu mieux (pas sur)

essayes

ActiveWindow.ScrollRow = 16 + (Month(Date) - 1) * 27

Salut,

cette idée me plait, mais je ne comprends pas pourquoi en dessous de la ligne figée par le volet ce n'est pas ce que je veux ... C'est un bug d'excel ou .. vous savez ?

Bonjour

pourquoi en dessous de la ligne figée par le volet ce n'est pas ce que je veux

Désolé je ne comprends pas ta question

Moi je voudrais que cela fasse (12-13-14-97-98-99-100...

Avec

ActiveWindow.ScrollRow = 16 + (Month(Date) - 1) * 27

Pour le mois d'avril tu as bien cette suite ?

A suivre

En fait J'ai un tableau, avec une ligne (ligne 14) qui est figée.

Je souhaite par macro, que la ligne 97 soit en dessous de mon volet figé (sur mon écran).

Pour cela, je descend jusqu'a la ligne 1.000 pour remonter ligne 97. Mais la ligne qui est affichée en dessous de la ligne 14 est la 75.

C'est ça mon souci.

Bonjour

A tester car je ne comprends pas

Salut,

ça, ca marche nickel, je te remercie.

Mais je ne comprends toujours pas pourquoi avec le range("A1000") puis A97 (dans mon exemple) ca marche pas ^^

Bonsoir

C'est normal ou logique

Tu lui demandes de sélectionner la cellule 1000 ensuite la 97 c'est ce qu'il fait en la sélectionnant et en la positionnant afin qu'elle soit visible à l'écran

C'est tout

Bonne nuit