XL 2021 ouvrir une feuille a la semaine en cours

[marco22]

Bonjour
J'ai créer un fichier Excell pour compter les oints de mon club de tarot.
Quand j'ouvre mon fichier il s'ouvre a la page menu, je clique sur "table" la page table s'ouvre et je voudrais que la cellule sélectionnée soit le numéro de la semaine colonne A
La cellule A5 donne le N° de la semaine actuelle et je voudrais que la cellule sélectionnée soit la cellule A30 (qui est la semaine 45)
Je voudrai transformer la macro "Table" pour qu'elle aille automatiquement a cette feuille et a la cellule de la semaine en cours
Je préfère aller a la semaine car je n'enregistre pas les scores le jour même.
Je ne sais pas si j'ai été clair
Je vous envoi le fichier
Merci d'avance
Marco22

 

[chris]

Bonjour

Fichier pas passé

 

[sylvanu]

Bonjour Marco,

Je vous envoi le fichier

On l'attend.

 

[marco22]

oups voici le fichier

 

[sylvanu]

oups voici le fichier

Oups, encore raté !

 

[marco22]

Je n'ai pas l'impression que j'ai réussi a joindre

 

[sylvanu]

Cliquez sur "Joindre un dossier" et après l'avoir choisi faites "Envoyer".
Attention, taille max 1Mo. Sinon faites le maigrir.

 

[marco22]

mon fichier est trop lourd
je lui est fait un regime il a perdu du poids

 

[sylvanu]

Re,
Un fichier ne peut contenir qu'une seule macro Workbook_Open qui doit être placée dans Thisworkbook.
J'ai donc supprimé les deux autres.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Worksheets("table").Activate
ActiveSheet.Unprotect
Semaine = [A5]
Ligne = Application.Match(Semaine, [A6:A200], 0)
Cells(Ligne + 5, "C").Select
End Sub

 

[chris]

RE
NO.SEMAINE ne marche pas selon la norme française mais américaine
Utiliser NO.SEMAINE.ISO

Enlever la formule dans le cellule A5 de table et corriger les autres puis remplacer la bouton table par la formule

=LIEN_HYPERTEXTE("[Chemin\POINTS TAROT 23-24_4.xlsm]table!A"&EQUIV(NO.SEMAINE.ISO(AUJOURDHUI());table!A:A;0);"Semaine en cours")

en adaptant Chemin

 

[marco22]

Merci
ça a l'air de bien fonctionner!

 

[marco22]

J'aurai préféré modifier si cela est possible la macro Table pour aller directement à la cellule de la semaine en cours
comme cela quand je clique sur mon bouton table j'arrive directement sur la cellule de la semaine en cours
Est-ce possible
Merci

 

[sylvanu]

Re,
Regardez cette PJ, j'ai supprimé l'accès direct en ouvrant le fichier.
Cela se fait maintenant par appui sur table.
Pour être plus visible les lignes ont des caractères rouges.
Il sont remis en noir quand on sort.

Sub Table()
    Sheets("table").Select
    ActiveSheet.Unprotect
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Couleur vbRed
End Sub
Sub Couleur(C)
    Application.ScreenUpdating = False
    Worksheets("table").Activate
    ActiveSheet.Unprotect
    Semaine = [A5]
    Ligne = Application.Match(Semaine, [A6:A200], 0)
    Cells(Ligne + 5, "C").Select
    Range(Cells(Ligne + 5, "B"), Cells(Ligne + 8, "T")).Font.Color = C
End Sub

 

[marco22]

Merci c'est exactement ce que je voulais

 

[chris]

Bon je retourne aux champignons ...