Discussion :

[POURCAL]

Bonjour à vous tous,

Voilà, j'ai un problème à résoudre. je gère un grand planning annuel et je souhaiterai pouvoir saisir le N° de la semaine dans la cellule A2 et que ma feuille se décale automatiquement à la bonne semaine le long de ma 1ère colonne figée.
Je n'ai aucune connaissance en VBA et donc je suis en recherche d'une aide précieuse afin de résoudre mon soucis.

Merci d'avance

PLANNING.xlsx

[rjamin]

Bonjour,
Une proposition.
Quand on inscrit S25 en A2 l'affichage se centre sur la semaine 25.

[POURCAL]

Bonsoir rjamin,

Je suis impressionnée par votre rapidité à répondre à mon soucis. En effet, votre proposition fonctionne parfaitement, mais, en fait il faudrait vraiment que ma Semaine 25 se colle à la colonne A afin d'avoir le plus de visuel possible sur les semaines suivantes dans mon écran.
J'ai bien conscience d'en demander beaucoup, mais au cas où ...

Merci d'avance si jamais vous deviez avoir une autre idée

[rjamin]

Bonjour,
Nouvelle proposition répondant à la demande mais attention que dans ce cas il ne faut pas toucher à la largeur de la colonne A. Si ça n'est pas possible il faut adapter le décalage.
Dites-moi quoi et donné la largeur max de la colonne A. Elle est à 40 pour le moment.

[papouclo]

Bonjour,
Autre proposition , indépendante de la largeur de la colonne A, utilisant la procédure événementielle Worksheet_Change.
J'ai modifié la saisie en A2 en demandant d'y saisir (validation de données) uniquement le nombre entier n (entre 1 et 52) de la semaine choisie, l'affichage Sn étant obtenu par l'emploi du format personnalisé "S"0 .
Le code de la procédure entrée en Feuil1 est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d As Integer
    
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    If Target.Cells.Count > 1 Then Exit Sub
    'permet de sortir de la procédure si la cellule sélectionnée n'est pas la cellule A2 dans laquelle on indique la semaine choisie.
    If Application.Intersect(Target, [A2]) Is Nothing Then Exit Sub
    
    'calcule dans la variable d le numéro de la colonne à afficher à côté de la colonne A après défilement
    d = 5 * ([A2].Value - 1) + 2
    
    [A2].Show
    ActiveWindow.ScrollColumn = d

End Sub

Cordialement
Claude

[POURCAL]

Bonjour,
Autre proposition , indépendante de la largeur de la colonne A, utilisant la procédure événementielle Worksheet_Change.
J'ai modifié la saisie en A2 en demandant d'y saisir (validation de données) uniquement le nombre entier n (entre 1 et 52) de la semaine choisie, l'affichage Sn étant obtenu par l'emploi du format personnalisé "S"0 .
Le code de la procédure entrée en Feuil1 est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d As Integer
    
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    If Target.Cells.Count > 1 Then Exit Sub
    'permet de sortir de la procédure si la cellule sélectionnée n'est pas la cellule A2 dans laquelle on indique la semaine choisie.
    If Application.Intersect(Target, [A2]) Is Nothing Then Exit Sub
    
    'calcule dans la variable d le numéro de la colonne à afficher à côté de la colonne A après défilement
    d = 5 * ([A2].Value - 1) + 2
    
    [A2].Show
    ActiveWindow.ScrollColumn = d

End Sub

Cordialement
Claude

[POURCAL]

Bonjour,
Autre proposition , indépendante de la largeur de la colonne A, utilisant la procédure événementielle Worksheet_Change.
J'ai modifié la saisie en A2 en demandant d'y saisir (validation de données) uniquement le nombre entier n (entre 1 et 52) de la semaine choisie, l'affichage Sn étant obtenu par l'emploi du format personnalisé "S"0 .
Le code de la procédure entrée en Feuil1 est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d As Integer
    
    'permet de sortir de la procédure si plus d'une cellule est sélectionnée
    If Target.Cells.Count > 1 Then Exit Sub
    'permet de sortir de la procédure si la cellule sélectionnée n'est pas la cellule A2 dans laquelle on indique la semaine choisie.
    If Application.Intersect(Target, [A2]) Is Nothing Then Exit Sub
    
    'calcule dans la variable d le numéro de la colonne à afficher à côté de la colonne A après défilement
    d = 5 * ([A2].Value - 1) + 2
    
    [A2].Show
    ActiveWindow.ScrollColumn = d

End Sub

Cordialement
Claude