XL 2019 Liste déroulante permettant d'aller sur certaines cellules

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 !

boubou1973

XLDnaute Occasionnel
Bonjour à tous,

je cherche sur internet depuis une bonne heure mais je n'ai pas trouvé mon bonheur donc je viens trouver ma réponse auprès des cracks du forum !

Dans le fichier joint, je souhaite mettre une liste déroulante en cellule A1. Lorsque je choisis une journée, je souhaiterais que cela m'amène à la cellule correspondant à cette journée.
Par exemple, dans la liste, je choisis journée 1, la cellule G9 est affichée, je choisis journée 2, la cellule G26 s'affiche et ainsi de suite jusqu'à la 38ème journée.

pour information, je n'ai aucune connaissance du VBA....
Egalement, il ne faut pas tenir compte des nombreuses cellules #ref. J'ai extrait mon exemple d'un fichier contenant d'autres feuilles.

Merci à tous pour l'aide que vous pourrez m'apporter
Bonne fin de journée, boubou
 

Pièces jointes

Bonjour à tous,

je cherche sur internet depuis une bonne heure mais je n'ai pas trouvé mon bonheur donc je viens trouver ma réponse auprès des cracks du forum !

Dans le fichier joint, je souhaite mettre une liste déroulante en cellule A1. Lorsque je choisis une journée, je souhaiterais que cela m'amène à la cellule correspondant à cette journée.
Par exemple, dans la liste, je choisis journée 1, la cellule G9 est affichée, je choisis journée 2, la cellule G26 s'affiche et ainsi de suite jusqu'à la 38ème journée.

pour information, je n'ai aucune connaissance du VBA....
Egalement, il ne faut pas tenir compte des nombreuses cellules #ref. J'ai extrait mon exemple d'un fichier contenant d'autres feuilles.

Merci à tous pour l'aide que vous pourrez m'apporter
Bonne fin de journée, boubou
Bonjour,
Une proposition par vba en PJ avec ce code dans la feuille "Alexis" plus une feuille avec les jours d'ajoutée
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If IsNumeric(Application.Match([a1], [g:g], 0)) Then Application.Goto Cells(Application.Match([a1], [g:g], 0), 1), True
End Sub

**Une version "essai3" avec un combobox pour palier à l'affichage limité des listes de validation à 8 journées et également plus de visibilité
 

Pièces jointes

Dernière édition:
Bonjour Jacky,

je vous remercie pour votre réponse. J'ai oublié de vous dire que le fichier serait converti sur Google Sheets qui, je crois, ne prend pas en charge le VBA. Je pensais qu'il était possible de le faire par fonctions.
Je suis désolé pour cette recherche inutile.

boubou
 
- 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

Réponses
1
Affichages
455
Retour