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

XL 2016 ROTATION FEUILLE AUTOMATIQUE

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

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

Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
852
Dranreb
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
339
VBA_dev_Anne_Marie
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
G
  • Question Question
XL 2016 Compte à rebours dans un userform
2
Réponses
15
Affichages
765
patricktoulon
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
199
Lu76Fer
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
487
telemarrk
T
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
475
sylvanu
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
631
darkjedi
D
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
723
Usine à gaz
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
566
Oneida
A
  • Question Question
XL 2019 Faire un filtre sur deux dates
Réponses
0
Affichages
696
A-F
A
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
347
patricktoulon
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
1 K
AtTheOne
XLS : Fonctionnement des chiffres Unicode
Réponses
0
Affichages
140
Lu76Fer
  • Résolu(e)
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
923
patricktoulon
P
  • Question Question
XL 2019 Rotation automatique entre deux feuilles
Réponses
11
Affichages
2 K
Phil69970
P
  • Résolu(e)
XL 2019 Rotation automatique entre 2 feuilles
Réponses
12
Affichages
2 K
pierrelcq
P
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
767
salma_hayek
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…