XL 2019 Liste déroulante à contenu variable (VBA)

[LeForain]

Bonjour,

Sur le fichier que je vous joins, je compte faire un formulaire.
Les infos qui seront complétées sur le formulaire devront être retranscrites sur la page BASE.

Le problème est le suivant : le formulaire pourra être utilisé par 3 postes différents.
J'ai créé 3 pages (1 par poste) dans lesquelles j'ai listé les membres de chaque poste.

Dans mon formulaire, j'ai créé 3 ComboBox différentes mais je ne suis pas satisfait du résultat : je voudrais dans un premier temps :
- Choisir le poste en question
- Avoir une deuxième ComboBox avec les noms du personnel qui s'afficheraient en fonction du poste qui a été choisi.

Pouvez-vous m'aider dans cette démarche.

Merci bien

 

[LeForain]

Il est très pénible de modifier le fichier car les flèches retour en arrière ne sont pas disponibles. A la moindre erreur, tout est à refaire.
Est-il possible de les réactiver ?

 

[vgendron]

voila avec les plages nommées correctement et la formule

et hélas non. ce qui est fait par macro ne peut pas etre défait....

 

[LeForain]

Merci pour ton retour. Sur le fichier que tu as joins, est-ce que tu as essayé de rajouter des liges avec le formulaire ?

Je viens d'essayer par exemple 5 heures pour pièce 16 en couture.
Tout le tableau de la page RESULTATS est en #ERREUR

 

[LeForain]

Par ailleurs, si je supprime le contenu de la page BASE à partir de la ligne 2, si je relance le formulaire juste après, les noms que j'ai donné au groupes comme Elements, PosteDeTravail, sont comme supprimés

 

[vgendron]

je viens de le faire à l'instant.. aucun problème

 

[LeForain]

C'ets surtout le fait de vider les lignes déjà remplies qui fait tout sauter chez moi.
Je supprime les lignes qui étaient pleines.
Quand je relance le formulaire erreur à toutes les lignes comprenant "Elements" , "PosteDeTravail",...

 

[vgendron]

Quelques modifs
début des plages nommées

détection de la ligne lnum


Quand tu reset la base.. ne surtout pas DELETE la première ligne (ligne2), mais simplement effacer..
un Delete provoque la perte de reference à la ligne 2 dans les plages nommées

 

[LeForain]

Tout roule !
Merci infiniment pour ton aide @vgendron !!

 

[LeForain]

Hello @vgendron !

Suite à ton aide sur ce forum, j'ai terminé le fichier et je suis actuellement en train de le déployer sur les PC des collègues.
Même problème sur chaque PC : quand j'ouvre le fichier et que je lance la macro j'ai ce message : "Impossible de charger les objets car ils ne sont pas disponibles sur cette machine".
Je mets OK et le code s'ouvre :
La ligne Private Sub UserForm_Initialize() est en jaune
et "poste" est surligné.

Saurais-tu à quoi cela est dû ?
Nous sommes tous sous Office 2019