Discussion :

[dvlp92]

Bonjour,

pour un projet d'étude je dois faire une automatisation complète de tableau de bord, mais je bloque sur le sommaire.

J'ai plusieurs onglets dans lesquels j'ai des tableaux positionnés aux mêmes endroits.

Dans mon onglet sommaire j'ai le nom d'un département et de 4 villes, on les retrouve dans les différents onglets. J'aimerai pouvoir quand je clique en face de la ville dans le sommaire pour tel ou tel onglet sélectionné arriver directement dans l'onglet et sur le nom de la ville correspondante.

le sommaire donnerai ça:

................................... TEST1 TEST2

Hauts-de-Seine
Boulogne Billancourt
Antony
Nanterre


j'ai réussi un faire un code qui permet de créer des lien dynamique vers les onglets (qui change en fonction des onglets du fichier):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Activate()
    [A5:EZ5].ClearContents
    For i = 2 To Sheets.Count
    If Worksheets(i).Visible = xlSheetVisible Then
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(5, i), Address:="", SubAddress:="'" & _
         nf & "'" & "!A1", TextToDisplay:=nf
    End If
    Next i
    [C5:C100].Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess
End Sub

Est-ce que quelqu'un peut m'aider?

Sommaire automatisé.xlsm

Merci d'avance.

[geogeo70]

Dans mon onglet sommaire j'ai le nom d'un département et de 4 villes, on les retrouve dans les différents onglets. J'aimerai pouvoir quand je clique en face de la ville dans le sommaire pour tel ou tel onglet sélectionné arriver directement dans l'onglet et sur le nom de la ville correspondante.

bonsoir,

je vous propose de faire une procédure événementielle (_selectionchange) dans la feuille sommaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim col As Integer, lig As Integer
 
    col = Target.Column
    lig = Target.Row
 
    If col < 2 Or col > Worksheets.Count Or lig < 8 Or lig > 11 Then Exit Sub 'exclusions de cellules
 
    Worksheets(col).Activate
    ActiveSheet.Cells(4 + (lig - 8) * 6, 1).Activate
 
End Sub

je mettrai en couleur les cellules actives du sommaire créé pour limiter la zone

petite correction 'pléonasme'

Worksheets(i).Visible = xlSheetVisible , dire true = true ne sert a rien dans un "if", if suffit d'écrire:

if Worksheets(i).Visible then....


le fichier :Sommaire automatisé2.xlsm

geogeo70

[dvlp92]

Merci Beaucoup pour votre aide, c'est exactement ça.