RECHERCHEV + menu déroulant

[kmariage]

Bonjour à tous,

Après beaucoup d'heures de recherche sur le forum, et sans réponse à cette recherche (j'ai du mal à digérer l'expression "google est ton ami") je viens vous demander de l'aide.

Je dois réaliser un petit programme Excel avec une première liste déroulante dans la colonne A avec le nom d'un sport. Puis dans la colonne B, une seconde liste déroulante avec seulement les marques de ce sport.

J'ai tenté d'insérer une rechercheV mais Excel me mets un message d'erreur.

Bien entendu, le fichier test ne comporte que deux marques par sport, mais elle contiendra au moins une dizaine de marques chacunes.

Je vous remercie pour votre aide.

[Maxence HUBICHE]

C'est ça que tu veux ?

[mercatog]

Bonsoir
une proposition vba en utilisant les évènements SelectionChange et Change de la feuille Test

Néanmoins, tu devras annuler la fusion des cellules Sport de la feuille Données articles et de remplir toutes les cellules avec doublons sur les sports.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Kol As New Collection
Dim Lst As String
Dim i As Integer
Dim c As Range
 
If Target.Count = 1 And Target.Column = 1 And Target.Row > 3 Then
    Target.Validation.Delete
    With Sheets("Données articles")
        For Each c In .Range("sport")
            On Error Resume Next
            Kol.Add c.Value, c.Value
            On Error GoTo 0
        Next c
    End With
    For i = 2 To Kol.Count
        Lst = Lst & "," & Kol(i)
    Next i
    Lst = Mid(Lst, 2)
    If Lst <> "" Then Target.Validation.Add Type:=xlValidateList, Formula1:=Lst
End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lst As String
Dim c As Range
 
If Target.Count = 1 And Target.Column = 1 And Target.Row > 3 Then
    If Target.Value <> "" Then
        Application.ScreenUpdating = False
        Target.Offset(0, 1).Validation.Delete
        With Sheets("Données articles")
            .AutoFilterMode = False
            .Range("sport").AutoFilter field:=1, Criteria1:=Target.Value
            For Each c In .Range("marque").SpecialCells(xlCellTypeVisible)
                If c.Row > 1 Then Lst = Lst & "," & c.Value
            Next c
            .AutoFilterMode = False
        End With
        Lst = Mid(Lst, 2)
        If Lst <> "" Then Target.Offset(0, 1).Validation.Add Type:=xlValidateList, Formula1:=Lst
    Else
        Application.EnableEvents = False
        Target.Offset(0, 1).ClearContents
        Application.EnableEvents = True
    End If
End If
End Sub

[Pierre Fauconnier]

Salut.

Une solution sans VBA?

La faq Excel est ton amie...

[kmariage]

Bonjour à tous.

Je tiens à remercier Maxcence qui a trouvé ce que je rechercher du premier coup

C'est exactement celà !

Par contre j'ai encore une petite question. Si je dois faire plusieurs sur plusieurs lignes, est ce que je dois copier le code autant de fois sur VBA ?
Et aussi comment à tu organiser ce que tu as fais sur la droite de la feuille "données articles" dans les cellules jaune ?

[Maxence HUBICHE]

Non, tu n'as rien à faire qu'à allonger ta base (en évitant de faire ce que tu as fait : la fusion de cellule)
Tu répètes autant de fois que nécessaire le sport dan la colonne de gauche et la marque dans la colonne de droite.

Ce que j'ai mis en jaune, c'est pour te marquer les modifications que j'ai fait.
je m'en sers pour, à travers la macro, être capable d'extraire dynamiquement les sports.


Ah ! si ! une petite modif, parce que j'ai fait ça vite fait !
si tu dois ajouter des sports, il faut allonger la liste des sports.
Et allonger le nom que j'ai donné de manière à prendre en compte les nouveaux sports.
Mais on aurait pu faire cela en automatique aussi.
++

[kmariage]

Oui mais tu m'as donné l'exemple pour les cellules A4 et B4.
Si je voudrais refaire cette mise en page en ligne A5 et B5, je dois copier-coller le code dans VBA non ?

[Pierre Fauconnier]

As-tu essayé la solution de la FAQ? Cela t'éviterait de devoir adapter le code VBA en fonction des cellules concernées?

[Maxence HUBICHE]

@kmariage
Question, tu veux faire cela pour remplir une colonne en fait... en fonction du choix que tu fais à gauche, cela détermine la liste de droite.
on est bien d'accord ?

Si oui, est-ce "limité" en nombre de lignes ?

En fonction de tes questions, on va te trouver une solution sans duplication de code... une petite modification devrait suffire

[Maxence HUBICHE]

voici une solution... si cela te convient :

[kmariage]

La mise en page est un peu plus complexe que ça ...

La mise en page serait plus de ce style

[Maxence HUBICHE]

rien compris...

[kmariage]

La mise en page que j'aimerais avoir est celle que j'ai faite sur le fichier Excel joint ci dessous.

C'est un peu plus complexe que ce que tu avais fais au dessus

[kmariage]

Ou sinon qqn aurait il une solution sans codage VBA ?

[Runsh63]

Salut !

Ton fichier avec une solution sans VBA. Je me suis permis de changer la disposition des listes de critères mais ça ne change rien. Je t'envoie dans le post suivant un exemple que j'avais envoyé il y a quelques temps qui répondait aux mêmes besoins que toi sur des pays, des villes et des adresses. Il y a sur ce fichier l'explicatif sur la construction, mais n'étant pas une personne très forte pour m'exprimer, n'hésite pas à me faire signe si ce n'est pas clair. En espérant avoir répondu à ton besoin.

Cordialement,

Runsh

[Runsh63]

Re !

Le fichier expliquant comment constuire une (des) cascade(s) de listes déroulantes sans passer par de la programmation VBA.

Cordialement,

Runsh

[Pierre Fauconnier]

Je t'en ai donné une plus haut dans la discussion, via la faq

http://excel.developpez.com/faq/inde...anceListeValid

[Runsh63]

Avec toutes ces aides, tu vas maîtriser le sujet. Pense à mettre "Résolu" pour aiguiller tes petits camarades également dans le besoin ^^

Runsh

[kmariage]

Merci Rush

Par contre je ne pourrais le faire avec les marques en colonne au lieu de le faire en ligne ? :s

[Runsh63]

Re !

Bien sûr que tu peux mettre tes marques en colonne, l'important c'est de nommer correctement tes listes ensuite. Check l'exemple envoyé dans mon deuxième fichier Excel, tu remarqueras que les listes sont en ligne et non en colonne. J'avais envie de changer un peu, voilà tout ^^