Formule pour position du curseur ?

Bonsoir à vous tous,

On ne peut pas incerer une formule dans un lien hypertexte. C'est pourquoi j'aurais besoin de votre aide pour m'aider à faire une petite macro qui me positionnerait mon curseur en fonction de mon N° de semaine de l'année.

Je vous joints les détails de ma demande dans la pièce jointe !

merci de votre aide si précieuse!

à bientôt

philippe 88

Bonjour philippe,

Voici un code à mettre dans le code du ThisWorkbook :

Private Sub Workbook_Open()
    Sheets("Feuil1").Select
    Rows("2:2").Find(What:=[b2], After:=[b2], LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=False, SearchFormat:=False).Offset(1).Activate
End Sub

Bonsoir

A vérifier

Je vais chercher mes fortifiants, je traine

Salut Banzai

Ton code correspond mieux, j'avais pas vu que c'était à l'activation de la feuille. Avec un test de non existence de la valeur c'est encore mieux !

Pour ma part, j'ai juste optimisé le code de l'enregistreur de macro. Me suis même pas foulé à supprimer les arguments inutiles de la fonction Find

Bonsoir

Essaye :

Private Sub Workbook_Open()
With Sheets(1)
.Activate
col = Range("2:2").Find(Range("B2")).Column
.Cells(3, col).Select
End With
End Sub

Amicalement

Nad

Edit : Bonsoir vba et Banzai - Encore plus à la traine !!!

Merci à vous deux , je pense que je vais passer une bonne soirée à pianoter..

à bientôt merci!

Philippe

Salut Nad

Attention Nad, il ne faut pas oublier l'argument After de la méthode Find sinon la cellule sélectionnée sera toujours B3 !!

col = Range("2:2").Find(Range("B2"), After:=Range("B2")).Column

Re

Merci vba

Amicalement

Nad