Discussion :

[j.mathieu]

Hello,

J'ai un fichier contenant des valeurs par jour.
Les jours sont en colonnes et les valeurs en lignes.

Je voudrai qu'à l'ouverture du fichier et au changement de feuille (car il y a plusieurs feuilles similaires mais pour des dates différentes), la date courante soit sélectionnée.
La ligne contenant les jours (dans l'ordre) est H2. J'ai par exemple ceci :
27/2 28/2 1/3 2/3 3/3 .... etc
Et pour chaque jour j'ai des lignes avec des valeurs.

Voici donc ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_SheetActivate(ByVal Sh As Object, ByVal Target As Range)
 
 
    Dim cellule As Range    
    Dim sToday As String
 
    sToday = Format(Now, "d/m")
 
    For Each cellule In ThisWorkbook.Worksheets(ActiveSheet).Range("H2").EntireRow
        If cellule.Value = sToday Then
            cellule.Select
        End If
    Next
EndSub

1) Je récupère la date courante au même format que dans le tableau excel
2) Je parcours la ligne H2 et je sélectionne toute la colonne de la cellule contenant la date courante

Bon apparemment mon For Each n'est pas bon et je n'ai pas mis le code pour sélectionner la colonne de la cellule. Le VBA n'est pas mon fort , quelqu'un aurait-il une idée ?

Merci par avance !

[j.mathieu]

Ok mais déjà mon For Each n'est pas bon, il ne compile même pas (Incompatibilité de type).

D'autres pistes ?

[j.mathieu]

Euh..Je ne vois pas comment ton code peut marcher là . Il n'y a même plus de boucle.

[ouskel'n'or]

Tu as encore raison, je vais me coucher

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim cell As Range
    With ActiveSheet
        For Each cell In .Range("H2:H" & Range("H65536").End(xlUp).Row)
            If Format(cdate(cell.Value),"d/m") = sToday Then
                cell.Select
            End If
        Next
    End With
End Sub

[j.mathieu]

Hum toujours pas bon. C'est le range qui a l'air d'être faux.
J'ai besoin de parcourir toute la ligne 2, et il n'y a pas forcément le même nombre de colonne dans chaque feuille. Par contre le début des dates sera toujours la cellule H2.

Exemple :
- Feuille 1 : les dates vont de H2 à DZ2
- Feuille 2 : les dates vont de H2 à GK2

[ouskel'n'or]

J'ai cru que tu cherchais une ligne, pas une colonne. Mais j'ai une excuse : Que venait faire H2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim cell As Range
    With ActiveSheet
        For Each cell In .Range(Cells(2, 8), Cells(2, Range("IV2").End(xlToLeft).Column))
            'MsgBox cell 'pour voir ce que tu compares
            If Format(CDate(cell.Value), "d/m") = sToday Then
                cell.Select
            End If
        Next
    End With
End Sub

[j.mathieu]

Yeah ! C'est mieux comme ça. Désolé pour le "H2" qui traînait.
Pourquoi "IV2" (je ne comprends pas) ?

Autre question, un peu plus recherchée :
Mon tableau est en 2 parties ("figer les volets") : la partie fixe (les premières colonnes) et la partie qui "bouge" (les colonnes avec les dates).
Je voudrai qu'en plus du .Select sur la date courante, ce soit la colonne (de la cellule de la date courante) qui soit positionnée en premier après le figeage des volets.

Je ne sais pas si je suis assez clair. En gros il faut juste que je définisse la colonne de la cellule contenant la date courante, comme "début de volet".

[ouskel'n'or]

Pourquoi "IV2" ?

Valable jusqu'à Excel 2003 ou pour les "*.xls" -> IV est la dernière colonne de la feuille de calculs (A, B, C, D,... IV )
Pour placer la cellule date du jour, ligne 2 en haut à gauche regarde ScrollColumn et ScrollRow dans l'aide en ligne

Code :

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

1
2
3
Worksheets("La Feuille").Activate
ActiveWindow.ScrollColumn = Cell.Column
ActiveWindow.ScrollRow = 2

[j.mathieu]

Valable jusqu'à Excel 2003 ou pour les "*.xls" -> IV est la dernière colonne de la feuille de calculs (A, B, C, D,... IV )

C'est bien ce que je pensais mais j'ai eu un doute comme pour mon cas (Excel 2007), ma dernière colonne c'est GK.

Pour ScrollColumn, nickel. Merci beaucoup ouskel'n'or. C'est vraiment un forum de qualité !