Rechercher et selectionner un onglet en fonction de la date du jour [Résolu]

Messages postés
7
Date d'inscription
vendredi 14 juin 2019
Statut
Membre
Dernière intervention
4 septembre 2019
- - Dernière réponse :  ngio - 5 sept. 2019 à 15:42
Bonsoir,
J'ai un petit souci avec ce code.
Cela concerne les jours de la semaine, dont la date du jour est inscrite dans le cellule H10 de chaque onglet. ce que je souhaite, c'est que lorsque j'effectue une macro sur une autre feuille du classeur que la feuille du jour soit de nouveau sélectionnée et active.

Private Sub CommandButton1_Click()
Dim Onglets As Variant

ActiveSheet.Activate

'affectation des données saisies dans la textbox
Range("A1:C10") = Me.TextBox1

'vérifie le nom de chaque onglet
For Each Onglets In ThisWorkbook.Sheets

'compare la feuille active avec les autres et sélectionne celle qui est à la date du jour
If Onglets.Name <> "Feuil5" Then
Sheets(Onglets.Name).Select = Sheets(Onglets.Name).Cells(10, "H") = Date
End If
Next Onglets

'ferme le formulaire
UserForm1.Hide
End Sub

Je joins cette image qui donne le code erreur.
Merci d'avance

Afficher la suite 

3 réponses

0
Merci
Bonjour,

Essaie comme cela ...
Private Sub CommandButton1_Click()
Dim Onglet As Worksheet
For Each Onglet In ThisWorkbook.Sheets
'compare la feuille active avec les autres et sélectionne celle qui est à la date du jour
If Onglet.Name <> "Feuil5" And Onglet.Cells(10, "H") = Date Then
Onglet.Activate
Exit For
End If
Next Onglet
'ferme le formulaire
Unload Me
End Sub

Cordialement.
Commenter la réponse de gyrus
0
Merci
salut Gyrus merci pour la solution j'essai ça et je te dis
Commenter la réponse de ngio
0
Merci
Je reviens vers toi pour te remercier. Car, ta solution est la bonne. Problème résolu!!
Commenter la réponse de ngio