Décaler les colonnes en fonction de la date du jour

Bonjour,

voici ce que j'essai de faire sans avoir trouver le moyen jusqu'a présent.

J'ai un planning "personnel et matériel" je voudrais que mon tableau se déplace d'une colonne vers la gauche à chaque changement de date(date du jour).

Sachant que j'ai figé la cellule C4 pour avoir ma liste colonne B et ma ligne 3 ou est affiche les dates.

Voici les images pour essayer de me faire comprendre.

1ère

2ème on voit le décalage La colonnes E est a gauche ce qui correspond a la date du jour

Si quelqu'un peut m'aider sachant que j'ai essayer avec la fonction décalé mais je bloc sur le fait de lui dire que la la cellule comportant la date du jour doit faire décaler à gauche la colonne comportant cette cellule.

Merci à vous si je ne suis pas clair dans mon explication dite le moi.

Bonjour

Avec une macro à placer dans le module ThisWorkbook

Private Sub Workbook_Open()
Dim Cel As Range
  Set Cel = Sheets("Feuil1").Rows(3).Find(what:=Date, LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Application.Goto Sheets("Feuil1").Range(Cel.Address), scroll:=True
  End If
End Sub

A toi d'adapter le nom de la feuille

Merci pour cette réponse je vais m'y pencher pour la comprendre.

Pour afficher le module ThisWorkbook c'est bien Alt-F11?

Merci

Bonjour

grigri a écrit :

Pour afficher le module ThisWorkbook c'est bien Alt-F11?

Oui c'est bien ça

Dans la fenêtre en haut à gauche double clic sur le mot ThisWorkbook

Ensuite tu y colles la macro

Bon y a qque chose qui va pas , j'ai bien coller le code que tu m'as donné mais rien n'y fait j'ai renommer la feuille par le nom de ma feuille mais bon cela ne veut pas.

Merci

Bonjour

Ce code est exécuté lors de l'ouverture du fichier

Si toujours problème, places une copie sur le forum (avec juste la feuille et la ligne 3 telle qu'elle est dans ton fichier et la macro)

bonjour,

voila le fichier, je suis pas sur de ce que j'ai fais mais je test et retest encore j'essai de comprendre.

Merci

Bonjour

Cela vient de ton format de date

Remplaces la macro actuelle par celle-ci

Private Sub Workbook_Open()
Dim Cel As Range
  Set Cel = Sheets("Planning").Rows(3).Find(what:=Format(Date, "dddd dd mmmm yyyy"), LookIn:=xlValues, lookat:=xlWhole)
  If Not Cel Is Nothing Then
    Application.Goto Sheets("Planning").Range(Cel.Address), scroll:=True
  End If
End Sub

Merci en effet ça fonctionne.

Par contre est il possible de créer un raccourci genre Ctrl+A ou Z ou autre, pour que la macro se joue et donc se cale au bon jour?

Le planning reste actif 24h/24h donc a minuit au passage du jour suivant j'aurais aimé que cela passe automatiquement, je veux éviter de fermer et ouvrir le fichier.

sinon un grand merci.

Etant pas tres doué, mais je cherche toujours à comprendre.

Bonjour

Regardes si cela te va

Oui en effet cela correspond a ce que je voulais faire.

Je te remercie beaucoup pour ton aide.

je vais tenté de fignoler pour rendre cela agréable.

Merci

Bon j'y suis encore ce soir j'essai de refaire la même chose en essayant d'utiliser les formules que tu as utilisé, mais je ne m'en sorts pas il me manque un élément ou quelque chose que je ne fais pas.

j'épluche ce que tu as fais mais......

Bon ça y est j'y suis, j'ai simplement oublié d'affecter le raccourci.

Merci pour tout.