XL 2016 ROTATION FEUILLE AUTOMATIQUE

[pierrelcq]

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

 

[sylvanu]

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.

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.

WEEKDAY function - Microsoft Support

Returns the day of the week corresponding to a date. The day is given as an integer, ranging from 1 (Sunday) to 7 (Saturday), by default.

support.microsoft.com

 

[pierrelcq]

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

 

[sylvanu]

Re,
Qu'avez vous en AM10 ? Le jour de la semaine en lettres ou le N° du jour de la semaine ?
Il vous faut faire un if then eslse sur AM10 :

If [AM10] = xxx Or [AM10] = yyy Or [AM10] = zzz Then Calle Rotation

 

[pierrelcq]

En AM10, j'ai le jour de la semaine en lettres.
J'essaye votre formule, merci