Liste déroulante tirant sa source d'un tableau

[deniooo]

Bonsoir !
J'ai besoin de créer une liste de validation dont les champs seraient modifiables et stockés dans des celulles sur la même feuille.

Comment faire ?!!

 

[ccpapy]

Re : Liste déroulante tirant sa source d'un tableau

bonsoir,
c'est une simple liste que tu veux ?
si oui =
pour ta cellule , clic sur données, validation, remplacer tout par liste sur le menu deroulant, et choisir les cellules pour les données sources, ok...
à+

 

[deniooo]

Re : Liste déroulante tirant sa source d'un tableau

Merci je viens de voir 🙂

c'est super simple, mais par contre..
Je veux transmettre un fichier à du personnel avec des listes de validations. Elles ne sont pas complétes, les gens peuvent mettre de données et ainsi les compléter.

Donc j'ai pris une grande plage vide ainsi les gens peuvent la remplir.

MAIS !

lorsque que l'on clic sur la liste on a une grande liste blanche (puisque les champs ne sont pas renseignés). Donc j'aimerai n'afficher dans la liste que les cellules qui ont une valeur.

Donc j'ai pensé à utiliser columns("a").usedrange.cells avec une boucle de parcours mais je ne sais pas comment renvoyer l'adresse de ces cellules dans une variable pour la mettre dans le code de la liste...

Une idée ?!

(ahhhh c'est plus dur là heinnnn?!!! 😉)

 

[BOISGONTIER]

Re : Liste déroulante tirant sa source d'un tableau

Bonsoir,


Liste dynamique:

Si des éléments sont ajoutés à une liste, créer un nom de champ dynamique avec
Insertion/Nom/Définir Maliste.

Si les noms sont dans la colonne A à partir de A2

=DECALER($A$2;;;NBVAL($A:$A)-1)

Pour créer la liste de validation:
Données/Validation puis dans Source =MaListe

Données/Validation


JB

 

[deniooo]

Re : Liste déroulante tirant sa source d'un tableau

Ah.. Pas tout compris là..

J'ai essayer d'ajouter ta ligne mais.. elle ne fonctionne pas.
De plus je ne comprends pas du tout la syntaxe.. peux-tu m'expliquer ?!

Rien dit j'ai pigé merci !

Par contre dés que je veux changer de colonne, par exemple à partir de D44, il m'affiche une belle erreur.. Que faire ?!

 

[ccpapy]

Re : Liste déroulante tirant sa source d'un tableau

bonjour à tous
voici un exemple qui te permettra de comprendre un peu mieux (je l'espère)
il reprend la formule de BOISGONTIER que je salue au passage
ta liste peut se trouver sur la feuille ou sur une autre feuille

à +

 

[ccpapy]

Re : Liste déroulante tirant sa source d'un tableau

désolé,
fichier liste3
avec la liste en ligne 44
à+

 

[deniooo]

Re : Liste déroulante tirant sa source d'un tableau

Je viens de voir ton fichier (le WE a été long..) et c'est exactement ce qu'il me faut!

Je viens bien de trouver la technique. Avec les name ! je ne connaissais pas.

Maintenant j'essaye de le retraduire en vb, or j'ai un probléme :

ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:="=OFFSET(Feuil1!R44C7,,,COUNTA(Feuil1!C7)-1)"

Voila ce qui fonctionne. Maintenant cela ne fonction que sur la sheet "Feuil1".
J'ai donc voulu dynamiser le tout :

bernard = ActiveWorkbook.ActiveSheet.Name
    ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:="=OFFSET(" & bernard & "!R44C7,,,COUNTA(Feuil1!C7)-1)"

Qui me retourne une belle erreur 1004 lorsque je l'applique à une cellule avec ce code :

    bernard = ActiveWorkbook.ActiveSheet.Name
    ActiveWorkbook.Names.Add Name:="toto", RefersToR1C1:="=OFFSET(" & bernard & "!R44C7,,,COUNTA(Feuil1!C7)-1)"
    Range("G40").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=toto"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Une idée de l'erreur ?