Liste de choix

[Guillaume]

Salut a tous!

comment peut on sélectionner en VBA un élement d'une liste de choix?

Merci d'avance.

 

[Yoyo]

Bonjour Guillaume,


As tu essayé une macro enregistré ou tu sélectionnne ta liste de choix et ensuiste tu modifie le code

Cordialement Yoyo

 

[bebere]

bonjour Guillaume,Yoyo,le forum
le 21/1/2006 je t'ai répondu(en page 3 pour le moment)
à bientôt

 

[Guillaume]

J'ai vu mais je n'arrive pas à le faire marcher :

Private Sub ListBox1_Click()

If ListBox1 = 'Contrat de capitalisation N°1' Then

TextBox1.Value = Range('Alloc!AK6').Value
TextBox1.Value = Format(TextBox1.Value, '#,##0.00 €')

TextBox2.Value = Range('Alloc!AK12').Value
TextBox2.Value = Format(TextBox2.Value, '#,##0.00 €')

If Range('Alloc!AT35') = 'OUI' Then

ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 0

Else

ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 1

End If

Dim L As Integer
Dim Mot As String

With ListBox2
For L = 0 To .ListCount - 1
If .List(L) = Sheets('Alloc').Range('H7').Value Then
.Selected(L) = True
Mot = .List(L)
End If
Next L
End With

End If

On peut me dire ce ki ne va pas svp ?

 

[bebere]

bonjour
Private Sub ListBox1_Click()

If ListBox1 = 'Contrat de capitalisation N°1' Then
with sheets('Alloc')
TextBox1.Value = .Range('AK6').Value
TextBox1.Value = Format(TextBox1.Value, '#,##0.00 €')

TextBox2.Value = .Range('AK12').Value
TextBox2.Value = Format(TextBox2.Value, '#,##0.00 €')
que veux tu faire avec ce qui suit?
If .Range('AT35') = 'OUI' Then
ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 0
Else
ListBox30.RowSource = 'Feuilleperf!G136:G137'
ListBox30.ListIndex = 1
End If

Dim L As Integer
Dim Mot As String
'tu as bien la valeur de .Range('H7').Value dans ta listbox2
With ListBox2
For L = 0 To .ListCount - 1
If .List(L) = .Range('H7').Value Then
.Selected(L) = True
Mot = .List(L)
End If
Next L
End With
end with
End If

 

[Guillaume]

C génial ca marche en fait!
Merci beaucoup Bebere !

Dernière petite chose :
J'aimerais faire l'inverse si c'est possible à présent, c'est à dire sélectionner un élement de ma listbox2 et après avoir clicker sur un bouton 'valider' que cet élement soit sélectionner dans ma liste de choix qui se trouve en C1.

 

[bebere]

Guillaume
si c'est une liste de validation(menu->données->validation->liste)
je pense que l'on ne sait qu'écrire en C1
la sélection de listbox2 ?

à mettre dans le code de ton bouton

With ListBox2
For L = 0 To .ListCount - 1
If .Selected(L) = True Then
Sheets('Feuil1').Range('C1').Value = .List(L)
Exit For
End If
Next L
End With
à bientôt

 

[Guillaume]

Bebere le second code pour valid dans la liste de choix ne marche pas :/
Tu saurais me dire ce qu'il faut modifier?

Merci d'avance