Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Passer d'un onglet à un autre en cliquant sur une cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

koukou40

XLDnaute Occasionnel
Bonjour !

Dans un tableau, figure plusieurs onglets ("Synthèse", "pierre", "paul" etc...).
J'aimerais qu'en cliquant sur la cellule "pierre" par exemple dans l'onglet "synthèse", je puisse aller directement dans l'onglet le concernant ("pierre").
Auriez vous un début de réponse ?
Même en code VBA je suis preneur !

ci-joint un fichier exemple.

Cdt,
 

Pièces jointes

Re : Passer d'un onglet à un autre en cliquant sur une cellule

Bonjour tous,

à tester, dans la feuille "Synthèse", le
Code:
Option Explicit
Dim Cell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  For Each Cell In Range("B4:B7")
    On Error Resume Next
    If Target = Cell Then Sheets(Target.Text).Activate
  Next
End Sub
 
Re : Passer d'un onglet à un autre en cliquant sur une cellule

bonjour :


1) nommer une plage (par exemple : Navigation) de cellules que tu veux qui fasse le switch de feuille (dans cahque feuilles)

procédure :
a/ sélectionne la plage de cellule qui doivent renvoyer vers les feuilles
b/ Insertion/nom/définir : saisir le nom Navigation et valider.

2) Mettre dans le VB de chaque feuilles dont tu veux que cela fonctionne. la macro suivante

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

If Not Application.Intersect(Target, Range("Navigation")) Is Nothing Then
If Target.Columns.Count <> 1 Then Exit Sub
If Target.Rows.Count <> 1 Then Exit Sub
sheets(target).select
end if

end sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…