Discussion :

[Gillou55]

Bonjour,

Je souhaiterais creer une macro qui positionne l'affichage de ma feuille sur la colonne de la date du jour.
j'ai bien trouvé plusieurs choses se rapportant a ma demande mais aucune de concluante.

donc pour exemple :

Si nous somme le jeudi 19 septembre en appuyant sur le bouton date du jour il faudrait que la cellule contenant la date du jour se positionne
apres la colonne C (A,B,C etant figé) et cela pour chaque jour.

Merci de votre aide

[Invité]

Bonjour,

A tester :

Dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub PositionnerSurDateDuJour(ByVal ShEnCours As Worksheet)
 
Dim I As Integer
Dim AireDates As Range
 
    With ShEnCours
         .Activate
         Set AireDates = .UsedRange.Rows(1).Cells
         With AireDates
              For I = 1 To AireDates.Count
                  If IsDate(AireDates(I)) Then
                     If AireDates(I) = Date Then
                        Application.Goto AireDates(I)
                        'Debug.Print AireDates(I)
                        Exit For
                     End If
                  End If
              Next I
         End With
         Set AireDates = Nothing
    End With
 
End Sub

Si vous souhaitez atteindre la date du jour à l'ouverture du fichier, dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
        PositionnerSurDateDuJour Sheets("Feuil1")
End Sub

Sinon, vous pouvez associer cette macro à un bouton.

[ARTURO83]

Bonjour,

Autre proposition , macro à associer au bouton "Date du jour"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Position_sur_date_du_jour()
    Application.ScreenUpdating = False
    [A1].Select
    c = Application.Match(CDbl(Date), [E1:CL1], 1)
    ActiveWindow.ScrollColumn = c + 4
End Sub

Cdlt

[Gillou55]

Merci

J'ai pris la solution d'ARTURO83 qui correspond exactement a ce que je recherchais,

[Gillou55]

Re-Bonjour

Je reprends ce post que je croyais rapidement résolu,
je travail sur mon PC avec XL 2013 mais en le transférant sur le PC de mon association ce matin je me suis aperçu que c'est XL 2010
et la solution d' d'ARTURO83 ne fonctionne plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Position_sur_date_du_jour()
    Application.ScreenUpdating = False
    [A1].Select
    c = Application.Match(CDbl(Date), [E1:CL1], 1)
    ActiveWindow.ScrollColumn = c + 4 ' j'ai en proposition     ActiveWindow.ScrollColumn = 4
End Sub

mais cela ne fonctionne plus, alors que faire pour que cela refonctionne sous XL 2010

Merci d'avance

[ARTURO83]

Bonjour,

Votre calendrier sur la ligne 1 contient-il la date du jour?

Curieusement, je suis sur Excel 2007, vous l'avez appliquez sur excel 2013 et cela fonctionnait, donc avec une version comprise entre les 2, il n'y a pas de raison que cela ne fonctionne pas sous 2010.

[anasecu]

Bonjour

, alors que faire pour que cela refonctionne sous XL 2010

La solution fonctionne sur toutes les versions excel de 2007 à 2016 au moins et tu peux même la simplifier en une seule ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Position_sur_date_du_jour()
    ActiveWindow.ScrollColumn = Application.Match(CDbl(Date), Rows(1), 1)
End Sub

Si la date du jour est inexistante tu es positionné sur la colonne de la cellule numérique inférieure.
si cela ne fonctionne pas c'est sans doute que tu n'es pas sur la bonne ligne.