XL 2016 Listes déroulantes à améliorer

[didier09]

Bonsoir le Forum,

Je reviens vers vous afin d'améliorer un classeur. J'ai adapté un fichier à mes besoins mais je souhaiterai que mes listes déroulantes soient plus optimisées:
J'ai un onglet "Données", un onglet "Détails Opérations". Un formulaire à compléter qui alimente l'onglet "Détails Opérations".
Mon souci est que mes premières listes "Secteurs" et "Communes" ont des doublons, je souhaiterai n'avoir aucun doublon dans les propositions de ces deux listes déroulantes.
En espérant avoir était clair, merci à ceux qui prendront le temps de regarder mon fichier.

Didier

 

[JM27]

Bonsoir
Un petit fichier exemple.

 For i = 2 To Sheets("Données").Range("A65536").End(xlUp).Row
        Secteurs = Sheets("Données").Range("A" & i)
        If Secteurs.ListIndex = -1 Then Secteurs.AddItem Sheets("Données").Range("A" & i)
    Next i
    Secteurs = ""
   
    For i = 2 To Sheets("Données").Range("B65536").End(xlUp).Row
        Communes = Sheets("Données").Range("B" & i)
        If Secteurs.ListIndex = -1 Then Communes.AddItem Sheets("Données").Range("B" & i)
    Next i
    Communes = ""

 

[Florian53]

Bonsoir didier09,

Voici un essai

 

[didier09]

Merci à tous les deux pour votre réactivité. Je comprends la macro de JM27, pour la modif de Florian, il va falloir que je m'y penche plus longtemps...
En visionnant le fichier de Florian je me posais la question suivante: pour cibler encore plus la saisie serait-il possible de filtrer les listes en fonction du choix de la sélection précédente. En effet les postes ou les traitements dépendent des communes et les communes des secteurs. J'ai plusieurs secteurs et beaucoup de communes. Du coup cela change ma demande, merci de votre compréhension et de votre aide.

Didier

 

[Florian53]

Bonsoir Ce lien n'existe plus,

Voici un nouvelle essai, en espérant que sa corresponde à ta demande

 

[ChTi160]

Bonsoir didier
Bonsoir le Fil ,le Forum
Une approche perfectible ou je ne traite que les 4 premiers Combobox du Userform procédure "Ajouter un enregistrement"
jean marie

 

[JM27]

Bonsoir
j'ai fait secteurs , communes , postes , traitement
je te propose de continuer

 

[didier09]

Merci Florian, c'est tout à fait ce que je voulais. J"essaie de faire pareil avec les postes et les traitements en m'inspirant de ce que tu as fait. Si problème je me permettrai de reposter.
Quoi qu'il en soit, je reposterai le fichier si j'y arrive tout seul, ça peut peut être servir à quelqu'un.

Bonne soirée.
Didier

 

[didier09]

Ci joint le fichier modifié et fonctionnel pour le bouton Ajouter, il faudra si besoin adapter le bouton Modifier.

Merci Florian pour ton aide.

Cdlt, Didier

 

[didier09]

Désolé Chti160, j"avais pas vu ton travail. Avec les couleurs c'est super visuel pour voir si oui ou non il y a une sélection à faire. Je te remercie, je regarde ça demain.

Didier

 

[ChTi160]

Bonjour ,
le fichier modifié , valeur Combobox affichée (si un seul choix)
jean marie

 

[didier09]

Bonsoir Le Forum,

Merci Jean Marie pour ton travail. Cela va bien m'aider pour la saisie, excellente idée. Je vais insérer un petit calendrier pour la saisie de la date, por ça je vais faire.

Bonne soirée
Didier

 

[ChTi160]

Bonsoir Didier
Bonsoir le Fil ,le Forum
je n'ai traité , que les quatre premiers Combobox ne sachant pas quoi faire pour les autres !
n'hésite pas si besoin .
jean marie

 

[didier09]

Les autres Combobox n'ont pas besoin d'être traités spécifiquement, il n'y a pas beaucoup de ligne: max 10. Merci pour ta disponibilité.

Didier

 

[ChTi160]

Bonjour Didier
Bonjour le Fil ,le Forum
Une adaptation (perfectible) d'un Calendrier , dans le Userform "Ajouter"
Edit : pas traité (encore) la validation de Saisie !
jean marie