Pb liste déroulante

[romain9207]

Bonjour tt le monde,

Je suis en galère et j'espère que quelqu'un pourra m'aider.
Je voudrais que les choix fais dans ma listbox1 apparaissent tous dans ma listbox2 ce qui n'est pas le cas dans le programme suivant,
Si quelqu'un avait une solution à me proposer,
merci beaucoup d'avance


Private Sub CommandButton1_Click()

Dim element_select As Boolean
Dim nb_elements, I As Integer

element_select = False
nb_elements = UserForm1.ListBox1.ListCount

ListBox2.Clear

'For I = 0 To nb_elements - 1
'If ListBox1.Selected(I) = True Then
'element_select = True
'ListBox2.AddItem ListBox1.List(I)


For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
element_select = True
ListBox2.AddItem (I) ' Par éxemple


Exit For

End If
Next

If element_select = False Then
MsgBox "Vous n'avez pas sélectionné de paramètres influents => Fin du programme"
Exit Sub
End If

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub OptionButton1_Click()

ListBox1.MultiSelect = fmMultiSelectSingle

End Sub

Private Sub OptionButton2_Click()

ListBox1.MultiSelect = fmMultiSelectMulti

End Sub

Private Sub OptionButton3_Click()

ListBox1.MultiSelect = fmMultiSelectExtended

End Sub

Private Sub UserForm_Initialize()

For I = 0 To nb_elements - 1
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next I

OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True

OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"

CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True

End Sub

 

[fanfan38]

Re : Pb liste déroulante

Bonjour
Je penses que ce n'ai pas à nous de mettre tes macros dans un fichier...
Joint un fichier exemple ce sera plus simple
Merci

François

 

[romain9207]

Re : Pb liste déroulante

Bonjour,

Merci d'avoir répondu si vite, c'est super

Voila le fichier et dsl

gspr que vous pourrez m'aidez

Merci bcp d'avance

 

[BOISGONTIER]

Re : Pb liste déroulante

Bonjour,

Private Sub CommandButton1_Click()
    Dim element_select As Boolean
    Dim nb_elements, I  As Integer
    element_select = False
    nb_elements = UserForm1.ListBox1.ListCount
  ListBox2.Clear
  element_select = False
  For I = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(I) = True Then
      element_select = True
      ListBox2.AddItem ListBox1.List(I) ' Par éxemple
    End If
  Next
  If element_select = False Then
        MsgBox "Vous n'avez pas sélectionné de paramètres influents => Fin du programme"
        Exit Sub
  End If
End Sub

JB

 

[romain9207]

Re : Pb liste déroulante

Rebonjour et Merci bcp BOISGONTIER,

J'aimerais maintenant savoir si c'est possible d'afficher la valeur dans la listbox2 car meme en ajoutant 2 dans columncount, ca marche pas.

Je voudrais aussi savoir si c'est possible de faire des calculs sur ces meme valeur.
En fait, i fau ke je fasse la somme quadratique des valeurs sélectionnées

sqrt(a²+b²+c²)

Voila,

Merci beaucoup d'avance si quelqu'un peut faire quelque chose