Selection d'un onglet et activer la cellule avec la date du jour

Résolu/Fermé
Packmann Messages postés 2 Date d'inscription mardi 14 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015 - 14 juil. 2015 à 15:46
 Maurice - 15 juil. 2015 à 12:37
Bonjour les spécialistes , un débutant à besoin de vos conseils
j'ai un fichier avec plusieurs onglets d'article pour le traitement de commande

colonne A
(de A4 -> A1400)
colonne B Quantité
lun.06.07 267
mar.07.07 213
mer.08.07 258
jeu.09.07 195
ven.10.07 279
sam.11.07 291
dim.12.07 0
lun.13.07 267
mar.14.07 264

j'aimerais que lorsque l'on selectionne un onglet la cellule avec la date du jour
soit selectionnée et affichée , même si lors de la fermeture du fichier on se trouvait sur une date antérieur ou futur

voici code lors de la selection de l'onglet , manque plus que le contenu :-)

Private Sub Worksheet_Activate()

MsgBox "merci pour la solution de selection et de l'affichage du jour "

End Sub


avec mes meilleures salutations et remerciements pour vos solutions

3 réponses

Zoul67 Messages postés 1956 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
14 juil. 2015 à 18:29
Bonjour,

à la place de ce joli msgbox :
i = 2
While Cells(i, 1).Value < Date
i = i + 1
Wend
Cells(i, 1).Select


Mais il faut que tes dates soient au format date et que la date du jour se trouve en colonne A...

A+
0
Packmann Messages postés 2 Date d'inscription mardi 14 juillet 2015 Statut Membre Dernière intervention 15 juillet 2015
15 juil. 2015 à 11:25
Tout d'abord merci à Zoul67 pour la pronmptitude
j'ai mis le texte à la place du message box , et à la selection de la feuille c'est la cellule A2 qui est selectionnée .
Que dois encore faire pour que ce soit la date du jour qui soit selectionnée est affichée ?

Private Sub Worksheet_Activate()
i = 2
While Cells(i, 1).Value < Date
i = i + 1
Wend
Cells(i, 1).Select

End Sub
0
Zoul67 Messages postés 1956 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
15 juil. 2015 à 12:17
Bonjour,

"Mais il faut que tes dates soient au format date"
(à vérifier par un clic droit - Format de cellule)

A+
0
Bonjour
une autre solution
bien sure test la date dans la colonne A
Sub testChercheDate()
Derligne = Range("A" & Rows.Count).End(xlUp).Row
    Set A = Range("A2:A" & Derligne)
    B = CDbl(DateValue(Now))
    C = Application.Match(B, A, 0)
      If IsError(C) Then
          MsgBox "Date non trouvée. V"
      Else
          NumLig = A(C).Row
          Application.Goto Cells(NumLig, 1), True
      End If
End Sub

A+
Maurice
0