Liste déroulante de choix

Bonjour,

j'ai créé des liste sur une feuille excel sur la première ligne et je n'arrive pas à créer des menus déroulant colonne E à partir de la 5ème ligne. Les données devant apparaître dans cette liste sont colonne K.

Ce que je veux faire est il possible, merci de votre aide.

46essai1.pdf (8.76 Ko)

Bonjour,

Pour avoir de l'aide sur Excel, il est plus simple de joindre un fichier ... Excel

N'hésite pas à revenir avec un fichier exemple commenté

La réponse ne tardera alors sans doute pas

A te (re)lire

@+

Edit : Sinon, qu'appelle-tu des menus déroulants ? S'agit-il de filtres automatiques ? Si oui, on ne peut avoir qu'un seul filtre automatique sur une feuille.

@+

Bonjour,

j'ai un peu de mal avec la terminologie excel. Première ligne, c'est des filtres (c'est ce que je voulais en tous cas).Colonne E à partir de la 4ème ligne, je voudrais un menu déroulant avec les valeurs de la colonne K.

49temps.xls (16.00 Ko)

Bonjour

Alain83 a écrit :

Colonne E à partir de la 4ème ligne, je voudrais un menu déroulant avec les valeurs de la colonne K.

1 - Pourquoi juste à partir de la ligne 4 et non de la ligne 2 ?

2 - Il n'y a aucune valeur en colonne K

A te relire

Amicalement

Nad

1 - Pourquoi juste à partir de la ligne 4 et non de la ligne 2 ?

La ligne 3 serait bien, je garderai la 2 pour faire des calculs.

2 - Il n'y a aucune valeur en colonne K

Il y a des noms, des mots, des chaînes de caractères alors :

Oursinières

A/Boulot

R/Boulot

boulotA/R

R/Corniche

Piste_Cyclable

Autre

Bonjour,

Avec tes données de K1 à K7

Sélectionne E3:E103

Données - Validation - Autoriser : Liste - Source : =$K$1:$K$7

Je te laisse tester

@+

Nickel, merci.

Bonjour,

j'ai un problème avec cette macro. Si je déclare ma valeurs "Parcours" comme ci-dessous "Const Parcours = 6", mon script ne fonctionne pas alors que si je déclare "Dim Parcours as integer", Parcours =6" aprés le Sub, cela fonctionne. Ma constante est mal déclarée ?

Merci de votre aide.

Option Explicit

Const Parcours = 6

Sub Données_Parcours()
'remplit les lignes dont le champs Parcours est rempli
Dim premiereligne, derniereligne, Parcours As Integer
Dim i, j As Integer

    premiereligne = Application.InputBox("premiere ligne")
    derniereligne = Application.InputBox("derniere ligne")

    For i = premiereligne To derniereligne
        If Cells(i, Parcours).Value = "Oursinieres" Then
            Cells(i, Parcours - 4).Value = "course à pieds"
            Cells(i, Parcours - 3).Value = 14.27
            Cells(i, Parcours - 2).Value = 360
        ElseIf Cells(i, Parcours).Value = "A/Boulot" Then
            Cells(i, Parcours - 4).Value = "vélo"
            Cells(i, Parcours - 3).Value = 6
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "R/Boulot" Then
            Cells(i, Parcours - 4).Value = "vélo"
            Cells(i, Parcours - 3).Value = 6
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "R/Corniche" Then
            Cells(i, Parcours - 4).Value = "course à pieds"
            Cells(i, Parcours - 3).Value = 8.68
            Cells(i, Parcours - 2).Value = 279
        ElseIf Cells(i, Parcours).Value = "Piste_Cyclable" Then
            Cells(i, Parcours - 4).Value = "course à pieds"
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "boulotA" Then
            Cells(i, Parcours - 4).Value = "course à pieds"
            Cells(i, Parcours - 3).Value = 5.97
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "boulotR" Then
            Cells(i, Parcours - 4).Value = "course à pieds"
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "BoulotV" Then
            Cells(i, Parcours - 4).Value = "vélo"
            Cells(i, Parcours - 2).Value = 0
        ElseIf Cells(i, Parcours).Value = "boulotA/R" Then
            Cells(i, Parcours - 4).Value = "vélo"
            Cells(i, Parcours - 3).Value = 12
            Cells(i, Parcours - 2).Value = 0

        End If
    Next i

End Sub

Bonsoir

Deux déclarations de variable parcours

Une en Constante au niveau module

Une autre en integer au niveau de la macro

Celle de la macro est prépondérante à celle définie au niveau module

Donc dans ce cas parcours vaut 0

Const Parcours = 6

Sub Données_Parcours()

'remplit les lignes dont le champs Parcours est rempli

Dim premiereligne, derniereligne, Parcours As Integer

Dim i, j As Integer

'

'

'

End Sub

Je te remercie.

J'ai ouvert un autre sujet pour Public Const comme les listes déroulantes était résolus.

J'ai un peu cafouillé, je m'en excuses.

Bonjour,

est que l'on peux mettre les données sur un autre onglet que celui où on veut notre liste.

Merci de votre aide.

thibo a écrit :

Bonjour,

Avec tes données de K1 à K7

Sélectionne E3:E103

Données - Validation - Autoriser : Liste - Source : =$K$1:$K$7

Je te laisse tester

@+

Bonjour,

Alain83 a écrit :

...est que l'on peux mettre les données sur un autre onglet que celui où on veut notre liste...

Oui, à la condition de nommer ta liste sur l'autre feuille et de faire ensuite référence à ce nom dans ta liste déroulante

@+

Nickel, merci.

Rechercher des sujets similaires à "liste deroulante choix"