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

A voir également:

Selection d'un onglet et activer la cellule avec la date du jour
Aller à la ligne dans une cellule excel - Guide
Comment activer windows 10 - Guide
Activer le pavé tactile - Guide
Rouvrir un onglet fermé - Guide
Mettre à jour ses pilotes - Guide

3 réponses

Réponse 1 / 3

Zoul67 Messages postés 1959 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+

Réponse 2 / 3

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

Zoul67 Messages postés 1959 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+

Réponse 3 / 3

Maurice
15 juil. 2015 à 12:37

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

Discussions similaires

Pix

Problème Whatsapp - "La date est incorrecte"

formule de calcule

Formule Excel : "SI" une cellule contient un mot, alors ?

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

Discussions similaires

Newsletters