Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 ROTATION FEUILLE AUTOMATIQUE

pierrelcq

XLDnaute Junior
Bonjour,

Un collègue m'a fait un petit code pour que tout les 30 secondes il y ai une rotation automatique entre mes deux feuilles excels puisque je les affiche sur une télévision

Il manque juste un petit bout de code que nous n'arrivons pas à réaliser.

J'aimerais que la rotation automatique s'effectue uniquement du jeudi au dimanche.

Lorsque nous sommes lundi/mardi/mercredi, il faudrait que l'affichage ne corresponde qu'à ma feuille "TDB S"

Voici le code utilisé :

Sub Rotation()
Dim I As Long
While ActiveSheet.Name = "TDB S" Or ActiveSheet.Name = "TDB S+1"
For I = 1 To 30
Application.Wait Now + TimeValue("0:00:01")
DoEvents
If ActiveSheet.Name <> "TDB S" And ActiveSheet.Name <> "TDB S+1" Then Exit For
Next
If ActiveSheet.Name = "TDB S" Then
Feuil25.Activate
ElseIf ActiveSheet.Name = "TDB S+1" Then
Feuil22.Activate
End If
Wend
End Sub

Le fichier est dispo en pièce jointe.

Je vous remercie

Pierre
 

Pièces jointes

  • excel pour forum.xlsm
    314.7 KB · Affichages: 10

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pierre,
La fonction Weekday donne le jour d'une date.
En fonction de ce jour on peut décider de faire une rotation ou non.
En PJ un exemple montrant l'application.
VB:
Sub RotationOuNon()
    For L = 6 To 35
        date_test = CDate(Cells(L, 2))      'Capture date
        Cells(L, 4) = Weekday(date_test, 2) 'Extraction jour
        ' Si compris entre Jeudi et Dimanche alors Rotation
        If Weekday(date_test, 2) >= 4 And Weekday(date_test, 2) <= 7 Then
            Cells(L, 5) = "OUI"
        Else
            Cells(L, 5) = "NON"
        End If
    Next L
End Sub
Attention, bien choisir son option Weekday pour l'analyse.
 

Pièces jointes

  • Rotation.xlsm
    16.6 KB · Affichages: 5

pierrelcq

XLDnaute Junior
Sylvanu,

Merci pour ton aide encore une fois,

J'affiche déjà le jour J en (AM;10) sur la feuille N°2.

Est-ce qu'on peut utiliser cette information pour activer ou non la rotation sans passer par une fonction weekday comme tu le proposes car c'est un peu complexe de mon côté ?

Merci

Pierre
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…