XL 2016 Comxboxlist + tri

[babie971]

Bonjour !

je souhaiterais insérer dans mon fichier 2 types de comboxlist :

1 utiliser sur une plage très grande à chaque sélection de cellule affiché par un double click, elle s'activerait feuil1 avec tri par ordre alphabétique "feuil1"
2 sur une seule cellule "feuil2" avec tri par ordre alphabétique

Je pense être plus précise dans le fichier joint

j'ai également pré-saisie les noms de comboxlist souhaitées dans VBA

mon choix pour la comboxlist est causé par le fait que le fichier que j'utilise soit zoomé à 10% et donc rende illisible une liste dans la validation de données.
si besoins de précision à votre disposition!


Merci d'avance pour votre aide.

 

[youky(BJ)]

Bonjour Babie,
Voici avec du vba
Je pense être bon,
Bruno

 

[babie971]

Bonjour Babie,
Voici avec du vba
Je pense être bon,
Bruno

Bonsoir Bruno,

C'est super je vais tenter de le transposer sur mon fichier

Un grand merci

 

[youky(BJ)]

Quelques précisions.
Dans la macro j'ai:
With Feuil2 cela n'est pas le nom de l'onglet mais ce que l'on appel le codename
ci dessous on vois le codename à gauche et à droite le nom donné à l'onglet
Donc à adapter sur votre fichier.
ICI on vois que l'onglet nommé Data est Feuil1
Même si on renomme Data en BD Feuil1 reste, alors que si j'appel Sheets("Data") bug

Bruno

 

[babie971]

Bonsoir Bruno,

C'est super je vais tenter de le transposer sur mon fichier

Un grand merci

ça y est j'ai testé et ça marche du tonnerre!!

Thanks you!!

 

[babie971]

Quelques précisions.
Dans la macro j'ai:
With Feuil2 cela n'est pas le nom de l'onglet mais ce que l'on appel le codename
ci dessous on vois le codename à gauche et à droite le nom donné à l'onglet
Donc à adapter sur votre fichier.
ICI on vois que l'onglet nommé Data est Feuil1
Même si on renomme Data en BD Feuil1 reste, alors que si j'appel Sheets("Data") bug
Regarde la pièce jointe 1084336
Bruno

je l'ai remarqué effectivement astucieux