Problème Liste déroulante EXCEL

[ercey59]

Bonjour,

Cela fait 3 jours que je cherches sur internet comment résoudre mon problème en vain,
je vous soumets donc ma requête.

J'ai créé un document excel, dans lequel je veux que la liste déroulante présente dans la feuille MENU me permette d'afficher le tableau correspondant dans la feuille de calcul portant la même dénomiantion.

J'ai représenté les tableaux des feuilles de calculs soumis a une dénomination par une couleur afin de pouvoir les repérer facilement.

J'ai expliquer mon cas de manière plus compréhensive dans le document excel joint.



Merci de votre secour, je recherches depuis des jours désespérément.

Cordialement

 

[Papou-net]

Re : Problème Liste déroulante EXCEL

Bonjour ercey59, et bienvenue à toi,

Voici ton fichier complété.

NB : j'ai remplacé ta liste déroulante issue de la barre d'outils Formulaires par celle de la barre d'outils Contrôles (activeX), plus facile d'utilisation avec VBA.

Cette liste se met automatiquement à jour chaque fois que tu reviens sur la feuille MENU.

Cordialement.

 

[ercey59]

Re : Problème Liste déroulante EXCEL

Merci , mais quand je choisi dans la liste déroulante un titre, le tableau ne se rempli pas (la couleur me sert d'indice).

Je penses qu'il y a un soucis.

Pourais-tu également me dire comment tu as fait ta manipulation, cela pourrais me servire dans mes prochains projets .

Merci,

 

[ERIC S]

Re : Problème Liste déroulante EXCEL

Bonjour à tous

sans macro

tu efface ton objet

tu listes tes feuilles en M
tu fusionnes C11 à I11
tu vas sous validation, liste (tu regardes la formule qui permet de s'adapter à la longueur de ta liste en M
tu utilises indirect (je ne l'ai fait que dans les cellules jaunes)

 

[ercey59]

Re : Problème Liste déroulante EXCEL

Merci, mais la solution de Papou-net n'est -elle pas plus "simple" et plus optimisé, en prévisoon de l'importante quantité de données à prévoir

 

[Papou-net]

Re : Problème Liste déroulante EXCEL

Merci , mais quand je choisi dans la liste déroulante un titre, le tableau ne se rempli pas (la couleur me sert d'indice).

Je penses qu'il y a un soucis.

Pourais-tu également me dire comment tu as fait ta manipulation, cela pourrais me servire dans mes prochains projets .

Merci,

RE :

Oups ! J'ai oublié de programmer le combobox, mea culpa.

Voici qui est réparé.

Pour savoir comment j'ai fait : tu ouvres l'éditeur VBA, tu double-cliques sur "Feuil1(MENU'=)" dans l'explorateur de fichiers et tu verras le code suivant

Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then Sheets(ComboBox1.Value).Activate
End Sub

Private Sub Worksheet_Activate()
With ComboBox1
.Clear
For sh = 2 To Sheets.Count
.AddItem Sheets(sh).Name
Next
End With
End Sub
La première procédure se déroule lorsque la liste déroulante est modifiée.

La seconde se déclenche à chaque fois que tu actives la feuille MENU. Ainsi, si tu ajoutes des feuilles à ton classeur, elles seront ajoutées à la liste dès que tu reviendras sur la 1ère feuille. Idem si tu en supprimes, elles seront effacées de la liste. Il est important que la feuille MENU soit toujours la première sur la gauche.

Espérant avoir répondu à tes questions.

Cordialement.

PS : bonsoir ERIC S, ta réponse par formule est également intéressante: à notre ami de faire son choix.

 

[ERIC S]

Re : Problème Liste déroulante EXCEL

Re

Je ne connais pas ton utilisation, ni ton niveau de vba, ni ton niveau de formules
je ne peux pas juger du "plus simple"

Effectivement les macros simplifient la vie de ceux qui les maitrisent.
Quand à la qté de données, il n'y a pas d'info dans ton énoncé

Si c'était pour moi, je prendrais effectivement macro

 

[ercey59]

Re : Problème Liste déroulante EXCEL

Bon je suis chiant, mais papou-net, tu a fait une programmation qui me redirige sur la feuille, hors moi ce que je désire c'est que les donnés de la feuille de selection apparaissent dans la partie du menu (tableau blanc)

Merci à vous

 

[ERIC S]

Re : Problème Liste déroulante EXCEL

Re

papounet étant parti

à essayer :
avec copie des couleurs

If ComboBox1.Value <> "" Then
    Sheets(ComboBox1.Value).Range("B4:J27").Copy Destination:=Sheets("Menu").Range("B13")
   
End If

sans

If ComboBox1.Value <> "" Then

    Sheets(ComboBox1.Value).Range("B4:J27").Copy
    Sheets("MENU").Select
    Range("B13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If

 

[Papou-net]

Re : Problème Liste déroulante EXCEL

RE :

Arf, rien compris jusque là mais ça devrait avoir changé maintenant.

Cordialement.