selection d'un onglet et activer la cellule avec la date du jour Résolu

Question

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

Zoul67 · Answer

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+

Packmann · Answer

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

Maurice · Answer

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

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

3 réponses

Discussions similaires

Newsletters