XL 2013 Simplifier alimentation listbox

[vmax67]

Bonjour à tous

j'aimerai simplifier l'alimentation de ma listbox.

Actuellement je dois activer un optionbutton 1 ou 2, après je dois choisir une ville dans la combobox
pour alimenter ma Listbox. J'aimerai alimenter directement la listbox après activation d'un des optiontbuton
puisque l'info ville se trouve déjà dans le label 9 pour optiontbuton 1 et label 10 pour optiontbuton 2.

Par avance je vous remercie pour votre aide.

Vmax

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Bonjour vmax,


peut-être comme ceci : OptionButton2 = True: OptionButton1 = True: C1.ListIndex = Label9.Caption


A+

 

[vmax67]

Re : Simplifier alimentation listbox

Bonsoir

ça ne fonctionne pas

Erreur : impossible de définir la propriété ListIndex. Le type ne correspond pas.

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Re,

où est-ce que tu as mis C1.ListIndex = Label9.Caption ? J'ai testé et pas de problème.






A+

 

[vmax67]

Re : Simplifier alimentation listbox

Dans : Private Sub UserForm_Initialize()

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Re,

Essaie de mettre au dessus de la ligne On Error Resume Next pour voir.


A+

 

[vmax67]

Re : Simplifier alimentation listbox

Lequel
sous
Private Sub C1_Click()
ou
Private Sub lbx1_Change()
car chez moi aucun des deux ne fonctionne !!

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Re,

On Error Resume Next
OptionButton2 = True: OptionButton1 = True: C1.ListIndex = Label9.Caption


A+

 

[vmax67]

Re : Simplifier alimentation listbox

Et non, je ne sais si ça une influence mais je suis sous Excel 2016

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Re,

dans ce cas je ne puis t'aider plus. Change aussi la version d'Excel dans ton profil.


A+

 

[vmax67]

Re : Simplifier alimentation listbox

Bonjour

alors personne pour me venir en aide !

 

[laetitia90]

Re : Simplifier alimentation listbox

bonjour vmax67 Lone-wolf
demarre seulement avec ce code dans user pour voir si cela fonctionne apres on verra

Private Sub UserForm_Initialize()
NomOnglet = ActiveSheet.Name & " " & [E7] & " - " & [L7]
Label1.Caption = "LISTES DES JOUEURS"
Label2.Caption = "Joueur 1  -------> " & [A9]
Label3.Caption = "Joueur 2  -------> " & [A11]
Label4.Caption = "Joueur 3  -------> " & [A13]
Label6.Caption = "Joueur 1  -------> " & [A9]
Label7.Caption = "Joueur 2  -------> " & [A11]
Label8.Caption = "Joueur 3  -------> " & [A13]
Label9.Caption = [E7]
Label10.Caption = [L7]
UserForm1.Label17.Caption = Sheets("Saisie").Range("A56").Value
 OptionButton2 = 1: OptionButton1 = 1
End Sub
Private Sub OptionButton1_Change()
 Dim t(), ta(), i As Long, x As Long, k As Long, z
 On Error Resume Next
  z = IIf(OptionButton1, Label9, Label10)
  lbx1.Clear
  x = 1
  t = Feuil9.Range("c2:h" & Feuil9.Cells(Rows.Count, 1).End(3).Row).Value
  For i = 1 To UBound(t)
  If t(i, 1) = z Then
  ReDim Preserve ta(1 To 6, 1 To x)
  For k = 1 To 6
  ta(k, x) = t(i, k)
  Next k: x = x + 2: End If: Next i
  lbx1.Column = ta
 End Sub

 

[vmax67]

Re : Simplifier alimentation listbox

Bonjour Lætitia

Merci, c'est parfait, j'ai dupliqué le code pour l'OptioButton2 et ça fonctionne.

Bonne journée

Vmax

 

[Lone-wolf]

Re : Simplifier alimentation listbox

Bonjour laetitia



Amicalement Lone-wolf

 

[laetitia90]

Re : Simplifier alimentation listbox

re

pourquoi dupliqué le code pour OptioButton2 ????

on utilise la proprietee change
Private Sub OptionButton1_Change

donc quand tu click sur optio...2 tu declenches evenement change de optio...1 qui passe a false

z = IIf(OptionButton1, Label9, Label10)

je pense que tu vas comprendre