XL 2013 Simplifier alimentation listbox

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2016

• #2

Re : Simplifier alimentation listbox

Bonjour vmax,


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


A+ 😎

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 26 Février 2016

• #3

Re : Simplifier alimentation listbox

Bonsoir

ça ne fonctionne pas

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2016

• #4

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+ 😎

 

Pièces jointes

• test.jpg

  44.2 KB · Affichages: 84

Dernière édition: 26 Février 2016

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 26 Février 2016

• #5

Re : Simplifier alimentation listbox

Dans : Private Sub UserForm_Initialize()

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2016

• #6

Re : Simplifier alimentation listbox

Re,

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


A+ 😎

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 26 Février 2016

• #7

Re : Simplifier alimentation listbox

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2016

• #8

Re : Simplifier alimentation listbox

Re,

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


A+ 😎

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 26 Février 2016

• #9

Re : Simplifier alimentation listbox

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 26 Février 2016

• #10

Re : Simplifier alimentation listbox

Re,

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


A+ 😎

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 27 Février 2016

• #11

Re : Simplifier alimentation listbox

Bonjour

alors personne pour me venir en aide !

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 27 Février 2016

• #12

Re : Simplifier alimentation listbox

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

Code:

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

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 27 Février 2016

• #13

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Février 2016

• #14

Re : Simplifier alimentation listbox

Bonjour laetitia 😀



Amicalement Lone-wolf 😎

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 27 Février 2016

• #15

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 😱

 

Vote positif 0 Vote négatif