XL 2016 Planning d'entretien préventif - revenir automatiquement à a date du jour

fanfan38

XLDnaute Barbatruc

• 29 Décembre 2022

• #2

Bonjour
Est ce que tu souhaites ou veux tu changer la date en B4?

A+ François

 

Pièces jointes

• Prévtest.xlsm

  24.3 KB · Affichages: 11

Vote positif 0 Vote négatif

L

L_Wa

XLDnaute Nouveau

• 29 Décembre 2022

• #3

Bonjour @p56 et @fanfan38

Tout d'abord merci à vous

@p56 je t'ai mis le fichier avec ton code en PJ, le code fait bien apparaitre la date du jour mais pas où je le souhaite (colonne B). peut-être que l'origine du problème est dû au fait d'avoir figé les onglets ?

@fanfan38 en fait avec mes flèches je peux déplacer le planning pour contrôler l'antériorité etc. Mais je souhaite via le bouton "AJD" revenir directement à la date du jour

 

Pièces jointes

• Prév go today test.xlsm

  25 KB · Affichages: 35

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 29 Décembre 2022

• #4

bonjour à tous
c'est peur-être cela que tu souhaites, que la colonne du jour soit au bord de la fenêtre ( pas la colonne b, mais la deuxième colonne visible)
alors ajoute ceci à la procédure go today
ActiveWindow.ScrollColumn = ActiveCell.Column + 2

 

Vote positif 0 Vote négatif

Deadpool_CC

XLDnaute Accro

• 29 Décembre 2022

• #5

Bonjour,

dans la macro visant à sélectionner la date du jour le N° de colonne ne prend pas en compte le fait que les date commence à le 2nd colonne
essaye avec un "+2" :

VB:

Sub Go_Today()
Dim dt As Double
   
    dt = Date - ActiveSheet.Range("B4").Value
    ActiveSheet.Cells(4, dt + 2).Select
End Sub

 

Vote positif 0 Vote négatif

L

L_Wa

XLDnaute Nouveau

• 29 Décembre 2022

• #6

Bonjour @Deadpool_CC & @sousou

@Deadpool_CC le + 2 sélectionne bien la date du jour

@sousou ActiveWindow.ScrollColumn = ActiveCell.Column + 2 ajouté au code de @p56 fonctionne !

Merci

 

Vote positif 0 Vote négatif