Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir plusieurs Userform ?

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

breitzou

XLDnaute Occasionnel
Bonsoir le forum,

tout d'abord merci de prendre le temps de lire mon message.

En parcourant d'autres fils, j'ai réalisé un fichier avec Userform pour me permettre de gérer des disciplines sportives dans un calendrier.
Le Userform remplit sa fonction sans problème, sauf que j'ai une quantité d'infos assez importantes. Donc je souhaiterais créer un Userform par discipline. En d'autres termes, pouvoir faire apparaitre un Userform propre à chaque discipline en fonction de la ligne sur laquelle je clic-droit.
Vu qu'une bonne démonstration vaut mieux qu'un long discours, je me permets de joindre un fichier dans lequel une info bulle explique précisément mon souhait.😉
Merci d'avance de vous intéresser à ma requête, étant donné qu'en plus, je suis novice en macro.😱

Cordialement
Breitzou
 

Pièces jointes

Trier par date Trier par votes
Re : Ouvrir plusieurs Userform ?

Bonsour®
il te faut rendre dynamique le RowSource de la ListBox1 en fonction de la discipline récupéré en début de ligne de saisie

soit tu défini explicitement par nommage préalable des plages à utiliser
soit tu affecte à la liste des disciplines un index et un nbre de lignes à prendre en compte parmi les données en colonne A

voila pour le principe (désolé pas le temps de développer davantage ce soir)
 
Vote positif 0 Vote négatif
Re : Ouvrir plusieurs Userform ?

Bonsoir Modeste et Lolote83,
c'est tout simplement génial!😀
Merci beaucoup à tous les deux. C'est exactement ce que je souhaitais.
Bonne soirée et à bientôt sur le forum.😉
Cordialement
Breitzou
 
Vote positif 0 Vote négatif
Re : Ouvrir plusieurs Userform ?

Bonsour® lolote83, breiztou

plus simplement comme dit :
soit tu défini explicitement par nommage préalable des plages à utiliser
Cliquez pour agrandir...

nommages à compléter
(orthographiquement identiques à liste des disciplines mais sans espace !!)
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
USF1.ListBox1.RowSource = Application.Substitute(Cells(Target.Row, 3).Text, " ", "")
Cancel = True
USF1.Show
End Sub
 

Pièces jointes

  • Capture.JPG
    53.2 KB · Affichages: 85
  • Capture.JPG
    53.2 KB · Affichages: 88
Vote positif 0 Vote négatif
Re : Ouvrir plusieurs Userform ?

Bonsour® lolote83, breiztou

plus simplement comme dit :
soit tu défini explicitement par nommage préalable des plages à utiliser
Cliquez pour agrandir...
Regarde la pièce jointe 311636
nommages à compléter
(orthographiquement identiques à liste des disciplines mais sans espace !!)
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
USF1.ListBox1.RowSource = Application.Substitute(Cells(Target.Row, 3).Text, " ", "")
Cancel = True
USF1.Show
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…