Curseur dynamique

[Papet]

Bonjour,

J'ai établi une feuille de planning d'absences tel que l'exemple joint. Je souhaite y placer un curseur qui se positionne dans la colonne correspondant à la date actuelle (tel que le trait rouge) lors de l'ouverture du fichier et qui ne puisse être supprimé par les utilisateurs (à inclure dans la protection de la feuille)
N'ayant pas de grosse connaissance de VBA, j'ai quelque peu galéré pour tenter de rendre dynamique ce curseur mais je n'y suis pas arrivé et n'ait pas trouvé mon bonheur sur le net.
Quelqu'un possède-t-il l'astuce SVP ?

Lou Papet

 

[phlaurent55]

Re : Curseur dynamique

Bonjour Papet,

vois fichier joint pour la sélection des cellules correspondant à la date du jour

pas très bien compris ta demande de protection car si on sélectionne la date du jour, c'est peut-être pour y mettre quelque chose

à+
Philippe

 

[CB60]

Re : Curseur dynamique

Bonsoir
La je n'ai pas mis de curseur, mais seulement une mise en forme conditionnelle, sur l'exemple joint regarde comment sont inscrit les jours et aussi le format personnalisé des dates.
Donc la cellule avec la bonne date aura un encadrer rouge

EDIT
Bonjour PierreJean

 

[BOISGONTIER]

Re : Curseur dynamique

Bonjour,

Voir PJ

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

 

[pierrejean]

Re : Curseur dynamique

bonjour Papet

une possibilité par macro evenementielle

Private Sub Worksheet_Activate()
For n = 2 To 33
  If Cells(3, n) = Date Then
   x = Cells(3, n).Left
   ActiveSheet.Shapes("Line 1").Left = x + 9
   Exit Sub
  End If
Next n
End Sub

Note: Les jours sont obtenus par formules (voir B3 et suivantes)
Pour verifier : deplace le curseur , change de feuille et reviens sur la feuil1

Edit: Salut Bruno Salut JB

 

[job75]

Re : Curseur dynamique

Bonjour le fil,

J'y vais aussi de ma solution avec cette macro :

Sub Curseur()
Dim mois As Range, jour As Range
With Feuil1 'CodeName de la feuille, ou avec le Name => Sheets("Feuil1")
  Set mois = .Rows(1).Find(Format(Date, "mmmm"), LookIn:=xlFormulas, LookAt:=xlWhole)
  Set jour = Intersect(.Rows(3), mois.MergeArea.EntireColumn).Find(Format(Date, "d"))
  .Unprotect "mdp" 'mettre le mot de passe réel
  .Shapes("Trait 1").Top = jour.Offset(1).Top
  .Shapes("Trait 1").Left = (jour.Left + jour.Offset(, 1).Left) / 2
  .Protect "mdp" 'mettre le mot de passe réel
  .Activate 'facultatif
  jour.Select 'facultatif
End With
End Sub

Elle est appelée par une Workbook_Open et par une Worksheet_Activate.

Fichier joint.

A+

 

[Papet]

Re : Curseur dynamique

Merci à tous pour votre participation.
La réponse de JOB75 correspond tout à fait à ce que je recherche et m'a donc permis d'éviter une prise d'aspirine concentrée. Je garde tout de même quelques cachets pour essayer de comprendre le code car je débute en VBA.😉

A+
Lou Papet