menu deroulant Excel

Version imprimable

07/01/2014, 13h28
GRM33990

menu deroulant Excel

Bonjour,
Pouvez vous me renseigner ?
Petit problème sur excel
J'ai créer un menu déroulant avec une dizaine d(option et se menu se trouve sur plusieurs cellules a la suite de haut en bas
et je voudrais que lorsque une option est sélectionné dans une cellules précédentes elle n'apparaisse plus dans le menu déroulant
dans les cellules suivantes
Merci d'avance
07/01/2014, 21h48
parmi

Bonjour,

Est-ce que tu connais d'avance combien de lignes contiennent des listes déroulantes de choix ?
10/01/2014, 09h17
GRM33990

Menu déroulant

Bonjour merci beaucoup de me répondre

Oui je les connais
10/01/2014, 15h00
parmi

Pour être certain de bien comprendre, est-ce que c'est la valeur de la liste qui doit disparaître ou la liste déroulante au complet ?

Si c'est la valeur dans la liste, est-ce que l'ordre des cellules remplies a une importance ? (tu pourrais remplir la ligne 7 avant la 5, disons...) J'imagine qu'au final, tu ne veux voir qu'une seule occurrence d'une valeur de la liste, c'est ça ?
12/01/2014, 15h21
GRM33990

Menu déroulant

Bonjour,

Oui c'est juste la valeur et nom aucune importance pour l'ordre des cellules
en fait c'est sur un devis et le menu déroulant correspond aux options du bateau
donc on peut en mettre une avant l'autre aucun problème

merci encore de t'intéresser a mon problème

Essaie comme ceci
Je prends pour acquis que tes listes de validation sont en colonne A
Il y aura sûrement des modifications à apporter...

Dans le code de ta feuille

Code:

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    RefaireListes
End Sub

Dans un module standard

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
Sub RefaireListes()
    Dim I As Long, nbLignes As Long
    Dim Liste As String
 
    Liste = "a,b,c,d,e,f,g,h,i,j"   'Ta liste de choix originale
    nbLignes = 10                   'La dernière ligne contenant une liste de choix
 
    Liste = ModifierListe(Liste)
 
    For I = 2 To nbLignes           '2 s'il y a des entêtes en ligne 1
        If Range("A" & I) = "" Then
            With Range("A" & I).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=Liste
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If
    Next
End Sub
 
'On refait la liste de choix en éliminant les choix déjà inscrits
Function ModifierListe(Liste As String) As String
    Dim I As Long
 
    For I = 2 To 10     'Modifier au besoin
        If Range("A" & I) <> "" Then
            Liste = Replace(Liste, Range("A" & I), "")
        End If
    Next
 
    Liste = Replace(Liste, ",,", ",")
 
    ModifierListe = Liste
End Function

14/01/2014, 10h11
GRM33990

Menu déroulant

MERCI POUR TOUT
cela dit je n'arrive pas a le faire fonctionner ci il y a moyen que je te fasse parvenir le fichier fait moi signe
en tout cas merci d'avance
14/01/2014, 11h28
parmi

tu peux ajouter un fichier à ton message, au format xls ou xlsx.
Si tu veux le joindre au format xlsm, il doit être zippé auparavant.
15/01/2014, 14h58
parmi

Après avoir regardé ton fichier, je me rends compte que ce sera plus complexe que prévu...

Tu utilises le même format de feuille pour les différents modèles, est-ce nécessaire ?

Ce à quoi je pense, c'est de créer une seule feuille dont les listes seraient chargées au changement du Combobox des modèles et de mettre toutes les listes de références dans une même feuille, en colonnes.

Tu mets les noms des modèles en ligne 1, disons.
En-dessous, tu crées les différentes autres listes qui commencent toutes aux mêmes lignes. Donc, les options pourraient commencer de ligne 5 à 25. Les moteurs de ligne 30 à 40, selon les besoins.

Les prix pourraient être dans la colonne juste à côté de chaque modèle ou tu pourrais aussi avoir une autre feuille seulement pour les prix.

De cette façon, ce serait plus simple à gérer, je pense (moins de feuilles à modifier et fichier plus léger)
15/01/2014, 16h28
GRM33990

1 pièce(s) jointe(s)

Menu déroulant

MERCI de ta réponse
oui je pense que cela est possible seulement
si quand j'ai sélectionner le bateau il n'apparait que les options de ce dernier et pas toutes les options des autres modèle ?
Tiens moi informer a ce moment la
je prépare le fichier et tu pourras regarder ?
Merci encore

Essaie comme ceci.
Bien sûr, si tu changes le nom des feuilles, il faudra modifier le code.
Même chose pour les lignes où se situent les listes.
Il y aura sûrement des ajustements à faire mais le principe semble fonctionner correctement...
Et comme je n'ai pas eu beaucoup de temps pour m'y plonger, c'est certain que ça pourrait être optimisé...

Dans le code la feuille (ici "P B2 752")

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    'si on n'est pas en colonne 2, on sort
    If Target.Column <> 2 Then Exit Sub
    'si on sélectionne plusieurs cellules, comme pour effacer, on sort
    If Target.Rows.Count > 1 Then Exit Sub
    'si on efface la cellule
    If Target.Value = "" Then Exit Sub
 
    RefaireListes
End Sub

Dans un module

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Public Liste
 
Sub RefaireListes()
    Dim I As Long
    Dim ListeTemp As String
 
    Liste = GetListeOptions
    ListeTemp = ModifierListe(Liste)
 
    For I = 19 To 28           'la liste des options Bateau
        If Range("B" & I) = "" Then
            With Range("B" & I).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:=ListeTemp
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If
    Next
End Sub
 
'On refait la liste de choix en éliminant les choix déjà inscrits
Function ModifierListe(Liste As Variant) As String
    Dim I As Long
    Dim strTemp As String
 
    For I = 1 To UBound(Liste)
        If Liste(I, 1) <> "" Then strTemp = strTemp & Liste(I, 1) & ","
    Next
    strTemp = Left(strTemp, Len(strTemp) - 1)
 
    For I = 19 To 28     'Modifier au besoin
        If Range("B" & I) <> "" Then
            strTemp = Replace(strTemp, Range("B" & I), "")
        End If
    Next
 
    strTemp = Replace(strTemp, ",,", ",")
 
    ModifierListe = strTemp
End Function
 
Function GetListeOptions() As Variant
    Dim Colonne As Long
    Dim nbLignes As Long
    Dim Recherche As Range
 
    Set Recherche = Sheets("Feuil3").Rows(1).Find(Range("B16"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Colonne = Recherche.Column
        nbLignes = Sheets("Feuil3").Cells(2, Colonne).End(xlDown).Row
        Sheets("Feuil3").Activate
        GetListeOptions = Sheets("Feuil3").Range(Cells(2, Colonne), Cells(nbLignes, Colonne)).Value
        Sheets("P B2 752").Activate
    Else
        GetListeOptions = 0
    End If
 
    Set Recherche = Nothing
End Function

16/01/2014, 17h56
GRM33990

MENU DEROULANT

Bonjour,
Merci de t'etre pencher dessus
mais j'ai fais le test cela n'a pas l'aire de fonctionner regarde ci tu veux
sinon je laisse tomber
pas grave
je ferai comme j'ai commencer
17/01/2014, 16h48
parmi

1 pièce(s) jointe(s)

Ça fonctionne pourtant bien ici... du moins selon ce que j'en comprends...
Voir le fichier joint que j'ai modifié un peu.

Si ce n'est pas le cas, explique ce qui ne va pas.
20/01/2014, 13h06
GRM33990

MENU DEROULANT

SUPERRR !!!
Cela fonctionne a merveille merci beaucouppp
Juste peux tu me dire comment je peut renomer la page
car ca me met en erreur ?*

Merci encore
20/01/2014, 14h21
parmi

Regarde dans le code pour trouver les endroits où j'aurais mis le nom en dur.

Il y a aussi les sources des listes déroulantes et/ou les noms de plages que j'ai donnés. Ceux-ci devraient changer automatiquement, en principe... (?)