Scrollcolumn suivant case cliquee

Bonjour a tous,

Petite question, je voudrais que l'affichage de mon tableau s'indexe sur les dates que je pointe.

En gros, si je clique sur n'importe quelle date dans les colonnes 2 et 3, mon affichage va se caler avec la premiere colonne visible correspondant a la date cliquee.

C'est possible ca ? Si oui j'ai envie de savoir comment

Merci d'avance.

Bonjour,

Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim c As Range
    If (Target.Column = 3 Or Target.Column = 4) And Target.Row > 15 And IsDate(Target) Then
        Set c = [1:1].Find(CDate(Target), LookIn:=xlFormulas)
        If Not c Is Nothing Then
            Application.Goto Cells(Target.Row, c.Column), True
        End If
    End If
End Sub

eric

bonsoir,

une autre version (en nommant la plage de dates "DateDF"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
   Set isect = Application.Intersect(Target, [DateDF])
   If Not isect Is Nothing Then
      i = CLng(Target) + 8 - CLng([H1])
      ActiveWindow.ScrollColumn = i
   End If
End If
End Sub

A+

C'est trop hot, merci !!!!

Dans le meme genre, je voudrais savoir comment a l'ouverture du fichier, je peux mettre la date du jour comme premiere colonne et si possible la remplir en hachure fine...

MErci.

bonsoir,

Le fichier joint répond à la question de mettre la date du jour en 1ère colonne. (dans le module ThisWorkbook)

Par contre je n'ai pas traité le problème des hachures qui peut être résolu de différentes manière,

Une mise en forme conditionnelle me semble le plus pratique , mais tout dépend si cette mise en forme doit rester définitivement pour tous les jours dont la date est dépassée ou si elle ne concerne réellement que le jour "en cours"...*

A+