aide sur option button et listbox

Re : aide sur option button et listbox

Bonjour Angoul, bonjour le forum,

En pièce jointe ton fichier modifié et commenté. Je pense que tu pourrais remplacer les Listboxes 1 à 4 par des Textboxes...

Édition :

Ooops j'ai oublié de dire ! le passage se fait au double-clic...

Re : aide sur option button et listbox

Je te remercie robert, c'est ce que je voulait
mais j'ai une petite question j'ai modifier ton code qui etait :
Public Sub affich()
With UserForm1 'prend en compte l'UserForm1
.ListBox.Clear 'vide les anciennes valeur de ListBox
.ListBox.List = sh.Range("E4:E7").Value 'remplissage de ListBox
End With
End Sub

par

par Public Sub affich()
With UserForm1 'prend en compte l'UserForm1
.ListBox.Clear 'vide les anciennes valeur de ListBox
.ListBox.List = sh.Range("E4:E25").Value 'remplissage de ListBox
End With
End Sub

cela fonctionne cela s'affiche mais helas je peut plus cliquer sur un nom pour le faire passer dans l'autre listbox

peut tu m'expliquer pourquoi????

Re : aide sur option button et listbox

Bonjour Angoul, bonjour le forum,

Pour savoir dans quelle textboxes il fallait envoyer la donnée je prend en compte le nombre de valeur restantes. Comme au début il n'y avait que 4 valeurs le code indiquait : Cas 4, Cas 3, Cas 2 et Cas 1... En en ayant 25, ça ne pouvait fonctionner qu'en remplaçant respectivement par Cas 25, Cas 24, Cas 23 et Cas 22. J'espère que ces explications seront claires...

En pièce jointe ton fichier modifié.