Sommaire Excel à partir de tableaux dans différents onglets

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:

---

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?

Pièce jointe 166199

Merci d'avance.

Citation:

---

Envoyé par dvlp92

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:

---

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 :Pièce jointe 166230

geogeo70

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