Discussion :

[backx3]

Bonjour,

Est-ce que quelqu'un aurait une idée pour faire en sorte qu'en ouvrant un tableau excel, un curseur se place directement sur la semaine courante ?

Je m'explique, imaginons que j'ai un classeur avec le nombre de semaines de l'année sur une même ligne (par exemple la 2), je voudrais créer un curseur, sur la ligne 1 par exemple, qui se mette automatiquement sur la semaine en cours quand j'ouvre mon classeur.

Sachant que la semaine en cours est la semaine de l'année, nous sommes donc aujourd'hui en semaine 36

Est-ce possible ? Ce serait plus par un calcul ou je dois passer par une macro ?

Merci

CurseurSemaine.xlsx

[mayekeul]

Bonjour, alors, en gros, voici comment je ferais:

Tout d'abord, définir les semaines et les identifier juste par leur numéro
puis leur appliquer un format qui dirait donc semaine xx (donc fans format cell mettre : "semaine "##)
pour la rangée supérieure , on met juste une formule qui dirait en substance
=IF(B2=WEEKNUM(NOW());"ê";"")
et puis on formatte cette rangée avec la police de caractere Wingdings

je sais pas si je me suis bien fait compris sinon, juste demande ;o)

[Quentin77170]

Sinon sans passer par Wingdings, tu peux insérer directement dans ta formule Excel ce caractère "↓"

Tu pourrais également mettre ton curseur dans toute ta plage en ligne 1 et jouer avec la mise en forme conditionnelle :
→ Dans ta ligne 1 : tu écris ↓ dans toutes les cellules qui t'intéressent
→ Tu sélectionnes toute cette plage de cellule (toujours en ligne 1), tu passes en police blanche
→ Tu ajoutes une mise en forme conditionnelle à l'aide de : "Utiliser une formule pour déterminer..."
→ Tu vérifies que la cellule active est bien "B1" dans ta sélection "B1:XX1" et tu écris la formule : "=B2="Semaine " & NO.SEMAINE(AUJOURDHUI())"
→ le format associé sera simplement "police en noir"

Du coup, ils seront toujours là mais en blanc et seul le bon curseur passera en noir.

Cela fonctionne très bien chez moi. Je te donne cette façon pour que tu choisisses celle que tu veux, elle n'est pas mieux que celle proposée par mayekeul

PS : la formule donnée par mayekeul risque de ne pas fonctionner si ton Excel est en français, utilise la formule NO.SEMAINE (qui est la version française de WEEKNUM)

[patricktoulon]

Bonjour
sinon par macro
il y a ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub cursor_position()
    With Range("A1", Cells(1, 53))
        .Value = ""
        .Font.Name = "Wingdings"
    End With
    Num= Format(Date, "ww", , vbFirstFourDays)
    Set cel = Range("B2", Cells(2, 53)).Find("Semaine " & num)
    If Not cel Is Nothing Then  cel.Offset(-1, 0).Value = "ê"
   End Sub

tu n'a plus qu'a appeler "cursor_position" dans le open du workbook

[backx3]

Merci à tous pour vos réponses !

mayekeul, je n'ai pas très bien compris mais je vais essayer ta solution, même si pour l'instant j'ai retenu celle de patricktoulon, vu que ça fait exactement ce que je veux ^^

Quentin merci mais je ne veux qu'une seule flèche dans mon classeur, si je blinde trop, mon chef va me tuer

En tout cas merci à tous, problème résolu !

Patrick, je ne comprends pas la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not cel Is Nothing Then  cel.Offset(-1, 0).Value = "ê"

Pourrais-tu me l'expliquer stp ?

[patricktoulon]

tout dabors pourquoi poser la question if

parceque la fonction find genere une erreur si la valeur n'est pas trouvée

ensuite traduction de (If Not cel Is Nothing Then cel.Offset(-1, 0).Value = "ê")en francais

si cel n'est pas rien alors la cellule ligne -1 et meme colonne ="ê"

cel etant la variable représentant la cellule trouvée avec le parmetre "semaine " & num" dans la fonction find

-1 est appliqué a l'index de ligne de cel

il m'est difficile d'etre plus clair c'est d'une simplicité
peut etre un exemple alors

OK exemple :
a suposser que j'ai une cellule avec dedans ecrit "toto" la cellule B3 par exemple
et que je veux mettre "titi" juste au dessus

je vais faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
set cel=range("A3",cells(3,15)).find("toto")'va rechercher "toto" de A3 jusqu' a la 15 colonne sur la meme ligne 
 
'si cel n'est pas rien la meme cllule  1 ligne au dessus et la meme colonne ="titi"
if not cel is nothing then cel.offset(-1,0)="titi"

[backx3]

C'est parfaitement clair merci beaucoup !

Tu gères