Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Débutant en listBox

  • Initiateur de la discussion Yann
  • Date de début
Y

Yann

Guest
Bonjour à tous et merci d'avance pour votre aide,

Je voudrais faire une chose toute simple qui me pose problème, je voudrais via une usf afficher les valeurs dans une listBox contenues dans la colonne B et afficher, par exemple dans un label la valeur correspondante de la colonne C sur click de l'utilisateur.

Merci beaucoup à tous pour votre aide précieuse.

Yann
 

Pièces jointes

  • Classeur2.zip
    7.8 KB · Affichages: 26
  • Classeur2.zip
    7.8 KB · Affichages: 22
  • Classeur2.zip
    7.8 KB · Affichages: 24
M

Minick

Guest
Salut,

Tu trouveras une facon de faire dans la pj.

@+
Minick
 

Pièces jointes

  • Classeur2.zip
    9.9 KB · Affichages: 39
  • Classeur2.zip
    9.9 KB · Affichages: 23
  • Classeur2.zip
    9.9 KB · Affichages: 31
P

petchy

Guest
bonsoir Yann et le forum

voila ton fichier modifié,j'espere que ça ira

@ plus
petchy
 

Pièces jointes

  • Yann.zip
    8.8 KB · Affichages: 24
  • Yann.zip
    8.8 KB · Affichages: 22
  • Yann.zip
    8.8 KB · Affichages: 18
Y

Yann

Guest
Merci beaucoup à tous les deux, mais encore une petite question :

Est-il possible d'afficher dans la listbox uniquement les valeurs pour lesquelles une valeur existe dans la colonne C ?

Merci une fois de plus d'avance.

Yann
 

Pièces jointes

  • Classeur2.zip
    9 KB · Affichages: 19
  • Classeur2.zip
    9 KB · Affichages: 28
  • Classeur2.zip
    9 KB · Affichages: 28
M

michel

Guest
bonsoir Yann , Petchy et Minick

j'espère que j'ai bien compris ta question …

Private Sub UserForm_Initialize()
Dim Cell As Range
For Each Cell In Range("B1:B" & Range("B65536").End(xlUp).Row)
If Not Cell.Offset(0, 1) = "" Then ListBox1.AddItem Cell
Next Cell
End Sub


bonne soiree
michel
 
M

michel

Guest
rebonsoir Yann

.....apres réflexion , si la structure de ton fichier exemple ne change pas , la macro ci-dessous devrait etre plus rapide à executer

Private Sub UserForm_Initialize()
Dim Cell As Range
For Each Cell In Range("C1:C" & Range("C65536").End(xlUp).Row)
ListBox1.AddItem Cell.Offset(0, -1)
Next Cell
End Sub



bonne soiree
michel
 

Discussions similaires

Réponses
16
Affichages
552
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…