XL 2016 ROTATION FEUILLE AUTOMATIQUE

pierrelcq · 24 Septembre 2020

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 · 24 Septembre 2020

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.

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 · 24 Septembre 2020

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 · 24 Septembre 2020

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 :

VB:

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

pierrelcq · 24 Septembre 2020

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

XL 2016 ROTATION FEUILLE AUTOMATIQUE

pierrelcq

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

WEEKDAY function - Microsoft Support

Pièces jointes

pierrelcq

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

pierrelcq

XLDnaute Junior

Discussions similaires