XL 2021 ouvrir une feuille a la semaine en cours

marco22

XLDnaute Occasionnel
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
VB:
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
 

Pièces jointes

  • POINTS TAROT 23-24_4 V2.xlsm
    95.7 KB · Affichages: 6

chris

XLDnaute Barbatruc
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
VB:
=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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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.
VB:
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
 

Pièces jointes

  • POINTS TAROT 23-24_4 V3.xlsm
    97.8 KB · Affichages: 8

Discussions similaires

Statistiques des forums

Discussions
313 204
Messages
2 096 206
Membres
106 528
dernier inscrit
Sabrnajean