Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Semaine calendrier + zoom

Semaine calendrier + zoom

4 réponses
Avatar
Paul B
Bonjour à tous (et plus particulièrement à celle ou celui qui pourra
m'aider...)

1. J'utilise un tableau ayant la plage de cellules BF2:HE2 le numéro des
semaines calendriers (avec la fonction WEEKNUM)
Je souhaite créer un bouton pouvant me positionner directement sur la
semaine en cours... qui pourrait éclairer ma lanterne, en m'indiquant la
macro à écrire ???

2. Y-a-t'il une possibilité de définir le taux de zoom en fonction de la
résolution d'écran de l'utilisateur ?
Il s'agit d'un fichier partagé en réseau, et je ne veux pas définir un taux
de zoom fixe...

Voilà... Je sais... ces questions peuvent paraître simple à des initiés,
mais je débute...

Merci d'avance de vos lumières, et meilleurs messages !!

Paul
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JLuc
Bonjour à tous (et plus particulièrement à celle ou celui qui pourra
m'aider...)

1. J'utilise un tableau ayant la plage de cellules BF2:HE2 le numéro des
semaines calendriers (avec la fonction WEEKNUM)
Je souhaite créer un bouton pouvant me positionner directement sur la
semaine en cours... qui pourrait éclairer ma lanterne, en m'indiquant la
macro à écrire ???

2. Y-a-t'il une possibilité de définir le taux de zoom en fonction de la
résolution d'écran de l'utilisateur ?
Il s'agit d'un fichier partagé en réseau, et je ne veux pas définir un taux
de zoom fixe...

Voilà... Je sais... ces questions peuvent paraître simple à des initiés,
mais je débute...

Merci d'avance de vos lumières, et meilleurs messages !!

Paul


Pour la premiere question :

Sub SeRendrealAdresse()
semaine = ISOWeekNum(Date)
Range("BF2").Offset(0, semaine * 3 - 3).Select
End Sub


Public Function ISOWeekNum(d1 As Date) As Integer
' Fonction recuperee sur
http://www.excelabo.net/xl/calendriers.php#numsemVBA
'Daniel Maher
Dim Jan03 As Long
Jan03 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
ISOWeekNum = Int((d1 - Jan03 + Weekday(Jan03) + 5) / 7)
End Function

--
JLuc

Avatar
Lolote
Salut JeanLuc,

En BE1, la formule =AUJOURD'HUI()
En BE2, ta formule WEEKNUM
Puis exécute la macro suivante. Elle permet de parcourir ta plage et de se
positionner sur la première valeur égale à la valeur WEEKNUM du jour.

Sub Déplacement()
Dim xCellule As Range
For Each xCellule In Range("BF2:HE2")
If xCellule.Value = Range("BE2") Then
Application.Goto Reference:=Range(xCellule.Address),
Scroll:úlse
Exit For
End If
Next
End Sub

Pour la question 2, je réfléchi.......
Ok ????

@+ Lolote


"JLuc" a écrit dans le message de news:

Bonjour à tous (et plus particulièrement à celle ou celui qui pourra
m'aider...)

1. J'utilise un tableau ayant la plage de cellules BF2:HE2 le numéro des
semaines calendriers (avec la fonction WEEKNUM)
Je souhaite créer un bouton pouvant me positionner directement sur la
semaine en cours... qui pourrait éclairer ma lanterne, en m'indiquant la
macro à écrire ???

2. Y-a-t'il une possibilité de définir le taux de zoom en fonction de la
résolution d'écran de l'utilisateur ?
Il s'agit d'un fichier partagé en réseau, et je ne veux pas définir un
taux
de zoom fixe...

Voilà... Je sais... ces questions peuvent paraître simple à des initiés,
mais je débute...

Merci d'avance de vos lumières, et meilleurs messages !!

Paul


Pour la premiere question :

Sub SeRendrealAdresse()
semaine = ISOWeekNum(Date)
Range("BF2").Offset(0, semaine * 3 - 3).Select
End Sub


Public Function ISOWeekNum(d1 As Date) As Integer
' Fonction recuperee sur
http://www.excelabo.net/xl/calendriers.php#numsemVBA
'Daniel Maher
Dim Jan03 As Long
Jan03 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
ISOWeekNum = Int((d1 - Jan03 + Weekday(Jan03) + 5) / 7)
End Function

--
JLuc





Avatar
Jac
Salut Paul,

as-tu essayé l'enregistreur de macro ?
Macro à mettre à l'ouverture du fichier ou à l'accès à la feuille à zoomer
---------------------------
[A1].CurrentRegion.Select
ActiveWindow.Zoom = True
---------------------------
ou si tes titres sont ligne 1
---------------------------
Range("A1", [IV1].End(xlToLeft)).Select
ActiveWindow.Zoom = True
---------------------------
Moi, en général, je rajoute encore
ActiveWindow.Zoom = ActiveWindow.Zoom - 3
car je trouve que ça passe mieux.

Jac

"Paul B" a écrit dans le message de news:
448fd8a6$0$712$
Bonjour à tous (et plus particulièrement à celle ou celui qui pourra
m'aider...)



2. Y-a-t'il une possibilité de définir le taux de zoom en fonction de la
résolution d'écran de l'utilisateur ?
Il s'agit d'un fichier partagé en réseau, et je ne veux pas définir un
taux
de zoom fixe...


Avatar
JB
Bonjour,

Dans un module:

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long)
As Long
Sub auto_open()
If GetSystemMetrics(0) = 800 Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 90
End If
End Sub

Cordialement JB


Bonjour à tous (et plus particulièrement à celle ou celui qui pourra
m'aider...)

1. J'utilise un tableau ayant la plage de cellules BF2:HE2 le numéro des
semaines calendriers (avec la fonction WEEKNUM)
Je souhaite créer un bouton pouvant me positionner directement sur la
semaine en cours... qui pourrait éclairer ma lanterne, en m'indiquant la
macro à écrire ???

2. Y-a-t'il une possibilité de définir le taux de zoom en fonction de la
résolution d'écran de l'utilisateur ?
Il s'agit d'un fichier partagé en réseau, et je ne veux pas définir un taux
de zoom fixe...

Voilà... Je sais... ces questions peuvent paraître simple à des in itiés,
mais je débute...

Merci d'avance de vos lumières, et meilleurs messages !!

Paul