High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Onglets par plages horaire

Dernière réponse le 11 déc 2008 à 14:14:55 freddv, le 11 déc 2008 à 10:36:40 
 Signaler ce message aux modérateurs

Bonjour,

Je voudrais faire une macro qui ouvre mon classeur sur le bon onglet suivant la plage horaire.
De 6h00 à 12h00 ouvre l'onglet matin
De 12h00 à 20h00 ouvre l'onglet apres-midi
De 20h00 à 6h00 le lendemain matin ouvre l'onglet nuit


Merci pour vos connaissances, car les miennes ne sont pas assez suffisante pour résoudre ce probléme.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Onglets par plages horaire » dans :
Limiter les horaires d'utilisation du PC VoirSi vous avez plusieurs comptes utilisateurs, il est possible avec la commande NET USER de limiter les horaires de travail sur chaque compte, afin d'éviter que vos enfants passent trop du temps devant le PC par exemple. Pour cela, vous devez...
[Windows XP Familial] Rajouter l'onglet sécurité manquant VoirSous Windows XP Édition Familiale, l'onglet Sécurité n'existe pas pour les partitions NTFS. Vérifier dans un premier temps qu'il s'agit bien d'une partition NTFS. Sur les partitions FAT32 il n'y a pas de mécanismes de permission, donc pas d'onglet...
IGoogle - Ajouter, modifier, partager et supprimer un onglet Voir
Référencement d’une plage de cellules VoirPLAGE DE CELLULES CONTIGUËS Une plage de cellules se note en indiquant les références de la cellule de début et de fin, séparées par le caractère : (deux-points) : Reference_Cellule_Debut:Reference_Cellule_Fin La référence à une ligne ou à une...
Posez votre question Répondre

1

dy, le 11 déc 2008 à 11:12:35

Slt je ne vois pas trop l'interret de ta macro ! :)
à mon avie en un clic tu pourrais l'ouvrir plus rapidement qu'une macro
bon j'ais un tout petit peu de connaissance ca devrais faire un truc du genre


sub public ouvreonglet()

Dim temps As Date
Dim matinmin As Variant
Dim matinmax As Date
Dim apresmidimin As Variant
Dim apresmidimax As Variant
Dim nuitmin As Variant
Dim nuitmax As Variant
temps = Time


matinmin = "06:00:00"
matinmax = "12:00:00"
apresmidimin = "12:00:00"
apresmidimax = "20:00:00"
nuitmin = "20:00:00"
nuitmax = "06:00:00"


If temps >= matinmin And temps < matinmax Then
Sheets("matin").Activate
ElseIf temps >= apresmidimin And temps < apresmidimax Then
Sheets("apres-midi").Activate
ElseIf temps >= nuitmin And temps < nuitmax Then
Sheets("nuit").Activate
End If

end sub


j'ais créer des varaible pour les horraires je trouve ca plus visible si tu veus les changer

   
Répondre à dy

2

freddv, le 11 déc 2008 à 11:39:39

Ca fonctionne, merci beaucoup de m'avoir accordé un peu de votre temps bonne fetes de fin d'année a vous et vos proches.

   
Répondre à freddv

3

freddv, le 11 déc 2008 à 11:51:36

A priori cela ne fonctionne pas pour la nuit, j'ai changé la variable 6:00:00 par 05:59:59 mais toujours pas.
Sub ouvreonglet()

Dim temps As Date
Dim matinmin As Variant
Dim matinmax As Date
Dim apresmidimin As Variant
Dim apresmidimax As Variant
Dim nuitmin As Variant
Dim nuitmax As Variant
temps = Time


matinmin = "06:00:00"
matinmax = "12:00:00"
apresmidimin = "12:00:00"
apresmidimax = "20:00:00"
nuitmin = "20:00:00"
nuitmax = "05:59:59"


If temps >= matinmin And temps < matinmax Then
Sheets(" planning matin").Activate
ElseIf temps >= apresmidimin And temps < apresmidimax Then
Sheets(" planning am").Activate
ElseIf temps >= nuitmin And temps < nuitmax Then
Sheets("planning nuit").Activate
End If

End Sub

   
Répondre à freddv

4

freddv, le 11 déc 2008 à 12:25:25

J'ai trouvé en cherchant un peu. Merci à dy pour son soutien.

Sub ouvreonglet()

Dim temps As Date
Dim matinmin As Variant
Dim matinmax As Date
Dim apresmidimin As Variant
Dim apresmidimax As Variant
Dim nuitmin As Variant
Dim nuitmax As Variant
Dim nuit1min As Variant
Dim nuit1max As Variant
temps = Time


matinmin = "06:00:00"
matinmax = "12:00:00"
apresmidimin = "12:00:00"
apresmidimax = "20:00:00"
nuitmin = "20:00:00"
nuitmax = "23:59:59"
nuit1min = "00:00:00"
nuit1max = "05:59:59"

If temps >= matinmin And temps < matinmax Then
Sheets(" planning matin").Activate
ElseIf temps >= apresmidimin And temps < apresmidimax Then
Sheets(" planning am").Activate
ElseIf temps >= nuitmin And temps < nuitmax Then
Sheets(" planning nuit").Activate
ElseIf temps >= nuit1min And temps < nuit1max Then
Sheets(" planning nuit").Activate


End If

End Sub

   
Répondre à freddv

5

 dy, le 11 déc 2008 à 14:14:55

De rien :)

   
Répondre à dy
Posez votre question Répondre
Ils ont besoin de votre aide