XL 2021 Suppression automatique d'une donnée utilisée dans une liste déroulante

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2023

• #2

Bonjour,
Je ne vois pas comment gérer ça avec des listes de validation de données.
Il faut faire plutôt des ComboBox Active X dont les listes de valeurs sont gérées par le code qui élimine celles déjà utilisée dans le bouton Valider.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Octobre 2023

• #3

Bonjour Gj23, Dudu2,

Dudu2 à dit:

Je ne vois pas comment gérer ça avec des listes de validation de données.

Cliquez pour agrandir...

A priori ce n'est guère compliqué, insérez ce code au début de la macro VALIDATION_MISSION :

VB:

Dim service$, mission$, c1 As Range, c2 As Range
service = Range("C12")
mission = Range("E12")
Set c1 = Sheets("MISSIONS REMPLA").Cells.Find(service, , xlValues, , xlWhole)
If Not c1 Is Nothing Then
    Set c2 = c1.Resize(100).Find(mission)
    If Not c2 Is Nothing Then
        c2 = "" 'vide la cellule
        c1.Resize(100).Sort c1, xlAscending, Header:=xlYes 'tri
    End If
End If

Et pour que la liste de validation en E12 de la feuille "FORMULAIRE DES MISSIONS" ignore les cellules vides, modifiez la formule de validation :

Code:

=DECALER(INDIRECT($C$12);;;NBVAL(INDIRECT($C$12)))

A+

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Octobre 2023

• #4

Bonjour

De base il est plus que conseillé

• d'utiliser les tableaux structurés pour tout ce qui est liste
• d'éviter les select dans le code (manifestement créé par l’enregistreur macros et non corrigé

Une proposition ci-joint avec :

• mise en tableaux structurés correctement nommés
  • du tableau des agents inscrits
  • des source des listes déroulantes (on ne mélange pas des sources de listes déroulantes)
• tri des listes déroulantes (il est désagréable de choisir dans une liste non triée
• nommage de tout ce qui est utile :
  • sources des listes déroulantes
  • champs de saisie du formulaire
• création des missions non pourvues via PowerQuery avec actualisation lors du choix du service concerné dans le formulaire
• refonte du code VBA

 

Pièces jointes

• REMPLA HOPAD.xlsm

  346.1 KB · Affichages: 9

Dernière édition: 23 Octobre 2023

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2023

• #5

Bon, j'y vais de ma version et j'y ai mis du temps car le code était TRÈS LOIN du compte. avec ces copies de Macros qui sont tout sauf du code et que j'ai viré.

1. Insertion d'un tableau structuré pour la liste des inscrits (sans ça c'est le b... azar !)
2. Insertion de tableaux structurés pour la liste des missions par service (sans ça c'est ...)
3. Je n'ai pas introduit de tableaux structurés pour les autres tables car non utilisée dans le code que j'ai fait
4. Paramétrage par constantes des positions de cellules et de noms de feuilles.
5. Ajout d'un petit utilitaire pour simuler une saisie validation par Combobox
6. Retrait de la liste de validation (ComboBox) des valeurs déjà présentes dans le tableau de la liste des inscrits

Edit: Fichier supprimé, voir plus loin...

 

Dernière édition: 23 Octobre 2023

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2023

• #6

La version de base de la Validation par ComboBox dynamique simulant liste de validation je ne l'ai pas mise en ressource. Donc pour ceux que ça intéresse...

 

Pièces jointes

• VBA Validation par ComboBox dynamique simulant liste de validation V1.xlsm

  49.7 KB · Affichages: 0

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 23 Octobre 2023

• #7

Bonjour @GJ23,


Ma solution avec juste des filtres sur les listes...
On peut probablement améliorer afin d'éviter d'ajouter une colonne "disponible"

Merinos

 

Pièces jointes

• liste dispo.xlsx

  13.2 KB · Affichages: 10

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 23 Octobre 2023

• #8

Correction d'un "petit" bug consistant à devoir effacer la mission si on change de service.

 

Pièces jointes

• REMPLA HOPAD (MACROS).xlsm

  371.1 KB · Affichages: 11

Vote positif 0 Vote négatif

G

GJ23

XLDnaute Nouveau

• 23 Octobre 2023

• #9

Tout d'abord, merci à tous pour vos retours et vos idées.

J'ai retenue l'idée de Chris. Merci beaucoup pour votre proposition.

Je vous souhaite une bonne fin de journée.

Cordialement.

 

Vote positif 0 Vote négatif