Oui exact tu a raison j'ai mal exposé mon problème.
En fait j'aimerais faire un tirages aléatoire de l'équipe, pour que les équipes puissent être mélanger et envoyer vers la feuil2
Bonjour a tous
moi mon probleme est tout autre je dispose d'un Userforme avec 2 listbox: dans la premiere listbox nommée "listbox2" je selectionne les éléments que je souhaite afficher dans la deuxieme listbox nommée "listbox1 " .Mon soucis lorsque je coche sur l'option "choix plusieurs paramétres" ou sur l'option "choix étendue" ;les éléments choisis dans listbox2 ne s'affiche pas automatiquement dans listbox1.
Bonjour a tous
moi mon probleme est tout autre je dispose d'un Userforme avec 2 listbox: dans la premiere listbox nommée "listbox2" je selectionne les éléments que je souhaite afficher dans la deuxieme listbox nommée "listbox1 " .Mon soucis lorsque je coche sur l'option "choix plusieurs paramétres" ou sur l'option "choix étendue" ;les éléments choisis dans listbox2 ne s'affiche pas automatiquement dans listbox1.
Bonjour a tous
moi mon probleme est tout autre je dispose d'un Userforme avec 2 listbox: dans la premiere listbox nommée "listbox2" je selectionne les éléments que je souhaite afficher dans la deuxieme listbox nommée "listbox1 " .Mon soucis lorsque je coche sur l'option "choix plusieurs paramétres" ou sur l'option "choix étendue" ;les éléments choisis dans listbox2 ne s'affiche pas automatiquement dans listbox1.
Je te remercie il y a juste un petit problème ou alors je n'ai pas compris!..
Quand je change les noms sur la feuille inscription sa ne fonctionne plus?
Bizarre... je ne constate pas ce comportement.
Je viens de remplacer Loane par TOTO en C2 de l'onglet Inscriptions : de retour sur l'onglet 1er Tour, le remplacement a eu lieu.
Remarque : les colonnes F:H de l'onglet Inscriptions ne servent à rien et peuvent être effacées ; elles m'ont juste servi de sauvegarde pendant mes essais.
ROGER2327 #6312
Vendredi 20 Sable 140 (Saint Sabre, allopathe - fête Suprême Quarte) 30 Frimaire An CCXXI, 6,5840h - pelle 2012-W51-4T15:48:06Z
Et vous faites bien ! Mais il eut été plus judicieux de le fournir dès le début, plutôt qu'un fichier bidon débarrassé des formules de l'onglet Inscriptions. On peut évidemment trouver une solution. Mais comprenez qu'on ne perde pas notre temps à résoudre des problèmes dans un contexte pour appliquer la solution à un autre contexte radicalement différent : le mieux est que vous déposiez un fichier qui corresponde à votre véritable problème, c'est-à-dire montrant quels sont les champs calculés et quels sont les champs de données, et éventuellement les autres contraintes auxquelles vous êtes soumis.
À bientôt...
ROGER2327 #6313
Vendredi 20 Sable 140 (Saint Sabre, allopathe - fête Suprême Quarte) 30 Frimaire An CCXXI, 7,8360h - pelle 2012-W51-4T18:48:23Z
J'ai oublié tout à l'heure de donner la solution pour le cas où la seule contrainte nouvelle est la formule en colonne B de l'onglet Inscriptions. Il suffit de remplacer la ligne
VB:
If IsEmpty(oCel) Then oCel.Offset(0, -1) = Empty Else oCel.Offset(0, -1) = WorksheetFunction.Round(Rnd, 5) + oCel.Row / 100000000#
par
VB:
If IsEmpty(oCel) Or oCel.Value = "" Then oCel.Offset(0, -1) = Empty Else oCel.Offset(0, -1) = WorksheetFunction.Round(Rnd, 5) + oCel.Row / 100000000#
dans le code du module Module1.
Bonne nuit !
ROGER2327 #6314
Vendredi 20 Sable 140 (Saint Sabre, allopathe - fête Suprême Quarte) 30 Frimaire An CCXXI, 9,4287h - pelle 2012-W51-4T22:37:44Z