Rechercher et selectionner un onglet en fonction de la date du jour
Résolu
ngiobogoss
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
ngio -
ngio -
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
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
A voir également:
- Rechercher et selectionner un onglet en fonction de la date du jour
- Fonction si et - Guide
- Rechercher ou entrer l'adresse - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Rouvrir un onglet fermé - Guide
3 réponses
Bonjour,
Essaie comme cela ...
Cordialement.
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.