Renvoi vers une autre feuille du même classeur

[phidelfio]

Bonjour
J ai besoin d'aide sachant que je suis novice avec excel 2007.
Je recherche une solution permettant lorsque
la cellule D4 de la feuille nommée "HORAIRE" est renseignée (cf photo)
un renvoi automatique sur les autres feuilles correspondant au créneau horaire.



Par exemple si en D4 il est mentionné l'heure 06:10:00 alors automatiquement la feuille nommée 5 s'ouvre. Merci pour votre aide.

 

[gilbert_RGI]

Re : Renvoi vers une autre feuille du même classeur

Bonjour

voilà un exemple

😱

 

[phidelfio]

Re : Renvoi vers une autre feuille du même classeur

Bonjour

voilà un exemple

😱

Si en "D4" je mets 05:05:00 pas de probleme le renvoi se fait bien en page 1
Par contre si je mets en "D4" 05:16:00 le renvoi ne se fait en page 2. Merci pour la réponse tout de même mais cela ne fonctionne pas ! Dommage et encore merci

 

[phlaurent55]

Re : Renvoi vers une autre feuille du même classeur

Bonjour à tous,

avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value = "" Then Exit Sub

heure = Range("d4").Value
Select Case heure
    Case [C4] To [e4]
    Sheets(2).Select    'Sheets(2) étant la feuille nommée 1
    
    Case [C5] To [e5]
    Sheets(3).Select
    
    Case [C6] To [e6]
    Sheets(4).Select
    
    Case [C7] To [e7]
    Sheets(5).Select
    
    Case [C8] To [e8]
    Sheets(7).Select
    
    Case [C9] To [e9]
    Sheets(7).Select
End Select
End Sub

il serait peut-être utile de fusionner les cellules D4 : D9 en une seule
et ajouter ---> If Target.Row <>4 then Exit Sub

bonne semaine à tous
.

 

[phidelfio]

Re : Renvoi vers une autre feuille du même classeur

Bonjour à tous,

avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Value = "" Then Exit Sub

heure = Range("d4").Value
Select Case heure
    Case [C4] To [e4]
    Sheets(2).Select    'Sheets(2) étant la feuille nommée 1
    
    Case [C5] To [e5]
    Sheets(3).Select
    
    Case [C6] To [e6]
    Sheets(4).Select
    
    Case [C7] To [e7]
    Sheets(5).Select
    
    Case [C8] To [e8]
    Sheets(7).Select
    
    Case [C9] To [e9]
    Sheets(7).Select
End Select
End Sub

il serait peut-être utile de fusionner les cellules D4 : D9 en une seule
et ajouter ---> If Target.Row <>4 then Exit Sub

bonne semaine à tous
.

Merci trop fort !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!🙂