Selection d'un onglet et activer la cellule avec la date du jour
Résolu
Packmann
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Maurice -
Maurice -
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
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
- Activer office gratuitement - Accueil - Bureautique
- Activer mise à jour google chrome - Accueil - Applications & Logiciels
- Comment activer windows 10 - Guide
- Cle pour activer windows 10 gratuitement - Guide
- Comment activer la souris tactile - Guide
3 réponses
Bonjour,
à la place de ce joli msgbox :
Mais il faut que tes dates soient au format date et que la date du jour se trouve en colonne A...
A+
à 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+
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
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
Bonjour
une autre solution
bien sure test la date dans la colonne A
A+
Maurice
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