Rechercher et selectionner un onglet en fonction de la date du jour

Résolu/Fermé

ngiobogoss Messages postés 7 Date d'inscription vendredi 14 juin 2019 Statut Membre Dernière intervention 4 septembre 2019 - 4 sept. 2019 à 20:03
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

A voir également:

Rechercher et selectionner un onglet en fonction de la date du jour
Rechercher ou entrer l'adresse - Guide
Fonction si et - Guide
Adresse IP locale : comment la trouver facilement - Guide
Rechercher et remplacer word - Guide
Rouvrir un onglet fermé - Guide

3 réponses

Réponse 1 / 3

gyrus
4 sept. 2019 à 21:54

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.

Réponse 2 / 3

ngio
5 sept. 2019 à 15:36

salut Gyrus merci pour la solution j'essai ça et je te dis

Réponse 3 / 3

ngio
5 sept. 2019 à 15:42

Je reviens vers toi pour te remercier. Car, ta solution est la bonne. Problème résolu!!

Discussions similaires

Table des matières dont les titres n'apparaissent pas..

Pix

Problème Whatsapp - "La date est incorrecte"

Comment savoir comment on nous a ajouté sur Snap

Discussions similaires

Newsletters