Transformer contenu d'une cellule en liste deroulante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 14 mars 2019, 17:36

Bonsoir cher Forum
J'aimerais par macro transformer le contenu d'une cellule en liste déroulante.
Une par une c'est possible mais j'aimerai le faire en boucle sur toutes les cellules de ma plage.Merci
tests.xlsm
(15.66 Kio) Téléchargé 21 fois
A
Andre13
Membre impliqué
Membre impliqué
Messages : 1'679
Appréciations reçues : 109
Inscrit le : 13 juillet 2017
Version d'Excel : 2007-2013

Message par Andre13 » 14 mars 2019, 18:30

Bonjour toutes et tous
bout de code de Dan merci à lui ;;) + enregistreur de macro
ci-joint, on peut toujours l'améliorer :wink:


Note,
En cliquant le bouton 'GO' de la Feuil1, un mot dans la colonne B, le cellule voisine de droite une liste déroulante apparaîtra
André
tests__ktm.xlsm
(26.05 Kio) Téléchargé 14 fois
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 16 mars 2019, 14:03

Merci pour la solution mais c'est pas tout a fait ce que je recherche
Dans la cellule B5 par exemple j'ai trois éléments A ; P ; Konan et je voudrais les avoir en C5 dans une liste déroulante.
Merci si je me suis fais comprendre.
Y
Yoyo01000
Membre habitué
Membre habitué
Messages : 141
Appréciations reçues : 4
Inscrit le : 19 décembre 2018
Version d'Excel : 2016

Message par Yoyo01000 » 16 mars 2019, 14:22

Bonjour,
en C5 : validation de données-liste et dans source tu mets =$B5
ensuite tu tires vers le bas et ainsi ça te créé, à chaque fois, la liste du contenu de la cellule en B du dessous.

Solution plus pratique que les rentrer manuellement à chaque fois mais c'est sans VBA;
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 16 mars 2019, 14:50

Oui mais on aura le contenu de la cellule mais pas les éléments qui compose le contenu
Y
Yoyo01000
Membre habitué
Membre habitué
Messages : 141
Appréciations reçues : 4
Inscrit le : 19 décembre 2018
Version d'Excel : 2016

Message par Yoyo01000 » 16 mars 2019, 14:58

Autant pour moi, j'ai mal compris ce que tu demandes :oops:
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 434
Appréciations reçues : 96
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 16 mars 2019, 18:19

Bonjour,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([C5:C9], Target) Is Nothing Then
        Target.Validation.Delete
        Target.Validation.Add xlValidateList, Formula1:=Replace(Target.Offset(, -1), ";", ",")
   End If
End Sub
Boisgontier
Copie de tests-1.xlsm
(18.77 Kio) Téléchargé 11 fois
K
KTM
Membre fidèle
Membre fidèle
Messages : 301
Appréciations reçues : 6
Inscrit le : 13 septembre 2018
Version d'Excel : 2013 FR

Message par KTM » 16 mars 2019, 18:56

Merci c'est OK
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message