Créer un lien hypertexte dynamique

Bonjour à tous.

Je vous explique mon problème.

J'ai un fichier avec plusieurs onglets e j'aimerai qu'à partir de la cellule I4 de l'onglet "Start" (cellule qui donne la date actuelle avec la fonction Maintenant) créer un lien hypertexte qui me permettrait de me placer sur la case du jour d'aujourd'hui dans l'onglet "Journal Actuel" (les dates se trouvent dans la colonne E de cet onglet).

Je ne sais pas si j'ai été clair.

Au fait, la même date (celle d'aujourd'hui) apparaît plusieurs fois dans la colonne E de l'onglet Journal Actuel. Il faudrait que le lien me place sur la première cellule rencontrée avec cette date.

Merci pour le temps que vous accorderez à mon petit problème.

(PS : je sais utiliser excel plutôt bien mais pour les macros par contre je n'y connais absolument rien).

Bonne journée.

Bonjour,

je te propose une solution sans hyperlien, il te suffit de cliquer sur la case I4

macro à mettre dans le code de la feuille start

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 4 Or Target.Column <> 9 Then Exit Sub
dd = Int(Range("I4"))
Worksheets("Journal Actuel").Select
With Worksheets("Journal Actuel")
i = 1
While .Range("E" & i) <> ""
 If Int(.Range("E" & i)) = dd Then .Range("E" & i).Select: Exit Sub
 i = i + 1
Wend
End With
End Sub

h2so4 a écrit :

Bonjour,

je te propose une solution sans hyperlien, il te suffit de cliquer sur la case I4

macro à mettre dans le code de la feuille start

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 4 Or Target.Column <> 9 Then Exit Sub
dd = Int(Range("I4"))
Worksheets("Journal Actuel").Select
With Worksheets("Journal Actuel")
i = 1
While .Range("E" & i) <> ""
 If Int(.Range("E" & i)) = dd Then .Range("E" & i).Select: Exit Sub
 i = i + 1
Wend
End With
End Sub

Un grand merci pour la réponse ultra-rapide.

Cependant ça ne fonctionne pas

"Erreur d'exécution '13' ;

Incompatibilité de type

Quand je lance le débogage il me met du fluo jaune sur la ligne "If Int(.Range... "

Le problème vient peut-être de moi... comme dit précédemment je n'y connais absolument rien aux macros.

bonjour,

a quoi ressemble la date qui se touve dans la colonne "E", il ne s'agit probablement pas d'un date au sens Excel.

peux-tu joindre ton fichier ?

h2so4 a écrit :

bonjour,

a quoi ressemble la date qui se touve dans la colonne "E", il ne s'agit probablement pas d'un date au sens Excel.

peux-tu joindre ton fichier ?

Voilà le fichier en pièce jointe et un grand merci

Au fait, dans la colonne E de Journal Actuel il n'y a pas les dates pour le week-end.

On passe du vendredi directement au lundi.

J'ai effacé pas mal d'onglets et de formules car le fichier d'origine fait plus de 4Mo.

bonsoir,

essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 4 Or Target.Column <> 9 Then Exit Sub
dd = Int(Range("I4"))
range("I5").select
Worksheets("Journal Actuel").Select
With Worksheets("Journal Actuel")
i = 2
While .Range("E" & i) <> ""
 If Int(.Range("E" & i)) = dd Then .Range("E" & i).Select: Exit Sub
 i = i + 3
Wend
End With
End Sub

h2so4 a écrit :

bonsoir,

essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 4 Or Target.Column <> 9 Then Exit Sub
dd = Int(Range("I4"))
Worksheets("Journal Actuel").Select
With Worksheets("Journal Actuel")
i = 2
While .Range("E" & i) <> ""
 If Int(.Range("E" & i)) = dd Then .Range("E" & i).Select: Exit Sub
 i = i + 3
Wend
End With
End Sub

Extra un tout grand merci !

Bonjour

Pourquoi une Macro là où une simple formule fait l'affaire.

En I4

=LIEN_HYPERTEXTE("[Essai.xls]'Journal Actuel'!E"&EQUIV(AUJOURDHUI();'Journal Actuel'!$E:$E;0);AUJOURDHUI())

Bien sur, elle ne fonctionne pas les dimanches

Cordialement

bonsoir Amadéus !

Bonsoir aussi à toi h2so4