@tontonbox
merci pour ton retour. :) tu as écrit ensuite :
« centrer la feuille plus au milieu lors de la sélection de la date du jour »
version correspondante : https://www.cjoint.com/c/LKyrbx0RLU0
code de Module1 :
Option Explicit
Sub vers_date()
Dim col%, c%
For col = Cells(3, Columns.Count).End(1).Column To 2 Step -1
If Cells(3, col) = Date Then
c = col - 8: If c < 1 Then c = 1
Application.Goto Cells(1, c), True
Cells(3, col).Select
Exit Sub
End If
Next col
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Attention
* la largeur des colonnes est la largeur standard d'une colonne : 10,78
* j'ai un écran large qui me permet de voir 16 colonnes d'un coup ;
➯ pour « centrer au milieu », ça fait 16 colonnes / 2 = 8 colonnes ;
d'où : c = col - 8 ; selon la largeur de ton écran, tu devras adapter ;
exemple : si tu vois 12 colonnes d'un coup ; mets c = col - 6.
* de toutes façons, il faut laisser cette sécurité : If c < 1 Then c = 1
car il n'existe pas de colonne dont le n° est <= 0 ! minimum : 1 ;
sans ce test, ça pourrait planter sur cette instruction :
Application.Goto Cells(1, c), True
rhodo