XL 2019 VBA PLANNING Aller à la colonne du lundi de la semaine en cours

blaise14 · 4 Avril 2020

Bonjour à tous,

Je viens de m'inscrire sur ce forum où j'ai déjà réussi à trouver la moitié de mon bonheur avec le formule ci-dessous:

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Mon objectif est de naviguer dans un planning et pouvoir revenir au lundi de la semaine en cours avec une macro.
Et idéalement aller au samedi de la semaine qui suit ainsi que 2 semaines après ci possible.
A l'heure actuelle, je n'arrive qu'a aller à la date du jour avec le code ci-dessus.
Merci de votre aide

Staple1600 · 4 Avril 2020

Re

Et en bonus, une version light

VB:

Sub Aller_Lundi_SemaineENCOURS_Light()
Dim R As Range: Set R = Sheets("PERSONNEL").Range("C7:NI7")
Application.Goto Cells(7, 2 + Application.Match(CLng(DateAdd("d", 1 - Weekday(Date, 2), Date)), R, 0)), -1
End Sub

Staple1600 · 4 Avril 2020

Bonsoir le fil

•>Blaise14 (Bienvenue sur le forum)
Ceci devrait pouvoir te mettre sur la piste

VB:

Sub Test()
Lundi = DateAdd("d", 1 - Weekday(Date, vbMonday), Date)
MsgBox Format(Lundi, "dddd dd mmmm yyyy")
End Sub

Staple1600 · 4 Avril 2020

Re

Et pour coller à ce que tu veux
(ma façon de faire)

VB:

Sub Aller_Lundi_SemaineENCOURS()
Dim Rng As Range: Set Rng = Sheets("PERSONNEL").Range("C7:NI7")
Lundi = DateAdd("d", 1 - Weekday(Date, vbMonday), Date)
With Application
.Goto Cells(7, 2 + .Match(CLng(Lundi), Rng, 0)), True
End With
End Sub

blaise14 · 4 Avril 2020

Merci beaucoup !

J'ai pas trop compris le fond et la forme de la formule mais ça marche !!!
( en même temps j'utilise VBA depuis seulement 2 jours et j'avais jamais entré une ligne de code ailleurs auparavant...)
Ci dessous ce que j'ai appliqué et qui fonctionne si jamais ça peut intéresser quelqu'un d'autre

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = DateAdd("d", 1 - Weekday(Date, vbMonday), Date) Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Et pour le lundi de la semaine qui suit j'ai simplement ajouté un +7
Sub sem_suiv()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = DateAdd("d", 1 - Weekday(Date, vbMonday), Date) Then
ActiveWindow.ScrollColumn = cellule.Column + 7
End If
Next cellule
End Sub

Merci beaucoup Staple1600 - ta réponse était tellement rapide que j'ai même pas eu le temps de m'énerver

Staple1600 · 4 Avril 2020

Re

Tu as essayé le code du message#3?
Il fait la même chose que le tien, mais en plus court.

Staple1600 · 4 Avril 2020

Re

Et en bonus, une version light

VB:

Sub Aller_Lundi_SemaineENCOURS_Light()
Dim R As Range: Set R = Sheets("PERSONNEL").Range("C7:NI7")
Application.Goto Cells(7, 2 + Application.Match(CLng(DateAdd("d", 1 - Weekday(Date, 2), Date)), R, 0)), -1
End Sub

blaise14 · 4 Avril 2020

Ils fonctionnent tous merci

Fredo P. · 5 Avril 2020

blaise14 à dit:
Bonjour à tous,

Je viens de m'inscrire sur ce forum où j'ai déjà réussi à trouver la moitié de mon bonheur avec le formule ci-dessous:

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Mon objectif est de naviguer dans un planning et pouvoir revenir au lundi de la semaine en cours avec une macro.
Et idéalement aller au samedi de la semaine qui suit ainsi que 2 semaines après ci possible.
A l'heure actuelle, je n'arrive qu'a aller à la date du jour avec le code ci-dessus.
Merci de votre aide

blaise14 à dit:
Bonjour à tous,

Je viens de m'inscrire sur ce forum où j'ai déjà réussi à trouver la moitié de mon bonheur avec le formule ci-dessous:

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Mon objectif est de naviguer dans un planning et pouvoir revenir au lundi de la semaine en cours avec une macro.
Et idéalement aller au samedi de la semaine qui suit ainsi que 2 semaines après ci possible.
A l'heure actuelle, je n'arrive qu'a aller à la date du jour avec le code ci-dessus.
Merci de votre aide

Application.goto reference:=Worksheets("X").cells(z,y)
FP

blaise14 à dit:

Bonjour à tous,

Je viens de m'inscrire sur ce forum où j'ai déjà réussi à trouver la moitié de mon bonheur avec le formule ci-dessous:

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Mon objectif est de naviguer dans un planning et pouvoir revenir au lundi de la semaine en cours avec une macro.
Et idéalement aller au samedi de la semaine qui suit ainsi que 2 semaines après ci possible.
A l'heure actuelle, je n'arrive qu'a aller à la date du jour avec le code ci-dessus.
Merci de votre aide

Cliquez pour agrandir...

Fredo P. · 5 Avril 2020

Bonjour,
Quand l'adresse de la cellule est connue:
application.goto reference:= worksheets("X").cells(z,y)

Staple1600 · 5 Avril 2020

Fredo P. à dit:
Bonjour,
Quand l'adresse de la cellule est connue:
application.goto reference:= worksheets("X").cells(z,y)

Bonjour Fredo P.
Application.Goto...Oui comme dans l'exemple du message#3
(paramétré sur True)

Et si la référence est connue alors, autant l'utiliser directement, non ?

blaise14 · 10 Avril 2020

Bonsoir,
J'ai un dernier besoin pour finaliser mon planning.
Toujours en lien avec la demande précédente.
Etant donné que j'ai besoin d’accéder (uniquement pour le consulter en lecture seule) au planning en question depuis un smartphone et qu'il n'est pas capable de gérer vba je me retrouve à l'ouverture du planning au premier jour de l'année.

J'ai donc pensé à la solution suivante lors de la fermeture du classeur je souhaite masquer les colonnes de de la colonne du premier jour de l'année ("J") jusqu'au dimanche de la semaine précédente.

Peut on m'aider ??? Merci d'avance

Staple1600 · 10 Avril 2020

Bonsoir

Pour masquer des colonnes, il faut du VBA
A la rigueur une MFC pourrait masquer le contenu des cellules, mais cela te mènera pas à la semaine en cours.

Maintenant, une suggestion en passant.
Si ton planning doit être utilisé sur un smartphone, pourquoi ne pas utiliser les applis qui font cela très bien sur le Playstore ou autre ?

Kaytilou · 11 Avril 2020

blaise14 à dit:
Merci beaucoup !

J'ai pas trop compris le fond et la forme de la formule mais ça marche !!!
( en même temps j'utilise VBA depuis seulement 2 jours et j'avais jamais entré une ligne de code ailleurs auparavant...)
Ci dessous ce que j'ai appliqué et qui fonctionne si jamais ça peut intéresser quelqu'un d'autre

Sub sem_encours()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = DateAdd("d", 1 - Weekday(Date, vbMonday), Date) Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Et pour le lundi de la semaine qui suit j'ai simplement ajouté un +7
Sub sem_suiv()
Dim cellule As Range
For Each cellule In Sheets("PERSONNEL").Range("C7:NI7")
If cellule = DateAdd("d", 1 - Weekday(Date, vbMonday), Date) Then
ActiveWindow.ScrollColumn = cellule.Column + 7
End If
Next cellule
End Sub

Merci beaucoup Staple1600 - ta réponse était tellement rapide que j'ai même pas eu le temps de m'énerver

blaise14 à dit:
Ils fonctionnent tous merci

Bonjour Blaise
Votre macro me plait et m'intrigue. Comment avez vous organisé votre tableau excel. Possible de le partager car je cherche à faire un planning et je suis à la recherche d'idée.
Je vous remercie par avance

blaise14 · 11 Avril 2020

Staple1600 à dit:
Bonsoir

Pour masquer des colonnes, il faut du VBA
A la rigueur une MFC pourrait masquer le contenu des cellules, mais cela te mènera pas à la semaine en cours.

Maintenant, une suggestion en passant.
Si ton planning doit être utilisé sur un smartphone, pourquoi ne pas utiliser les applis qui font cela très bien sur le Playstore ou autre ?

En fait c'est un planning chantier que je partage avec mes équipes sur le terrain. Du coup moi seul peut apporter des modifs dessus. Quand j'y fait des modifs, je suis sur PC donc j'ai VBA. Et c'est bien un code VBA qui me manque pour masquer les colonnes.
Je 'utilise pas d'app préfaites parce qu'il est bien plus confortabale d'avoir un outil adapté à mon besoins uniquement sans fonction inutiles...
Merci d'avance parce que pour l'instant je me casse les dents à trouver ce code...

XL 2019 VBA PLANNING Aller à la colonne du lundi de la semaine en cours

blaise14

XLDnaute Nouveau

Staple1600

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

blaise14

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

blaise14

XLDnaute Nouveau

Fredo P.

XLDnaute Nouveau

Fredo P.

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

blaise14

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Kaytilou

XLDnaute Nouveau

blaise14

XLDnaute Nouveau

Discussions similaires