Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel listbox et texbox VBA

listbox et texbox VBA

4 réponses
Avatar
maud s
Bonjour j'ai un userform ou se trouve une listbox2 dans lakelle il doit
reprendre un champ.

exemple:
en cellule
A1 nom1
A2 nom2
A3 nom3

en cellule K1 L1 M1 N1 j ai quatre autres noms
idem pour toutes les lignes

si dans usform listbox1 c 'est nom2 qui est choisi je voudrais que ma
listbox2 m affiche uniquement K2 L2 M2 N2



si possible: si par exemple nom4 est selectionné et que K4 L4 M4 N4 .....qui
me trouve parmi ces cellules la dernieres celules vides et qui me demande
d'ajouter si je tape un nom dans un textbox1 par exemple et me le stocke
dans la colonne correspondante.

ai je été clair?

j ai voulu ajouter un fichier pour illustrer mais j ai pas réussi..
désolé....

merci a ceux qui peuvent m'aider
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fredo P.

j ai voulu ajouter un fichier pour illustrer mais j ai pas réussi..
désolé....

Bonsoir Maud

Dépose le ici
http://cjoint.com
Cliquer su parcourir> clic sur le fichier à joindre> recopie le lien qui
sera attribué> renvois sur mpfe
merci a ceux qui peuvent m'aider



Avatar
Youky
Essai ceci
Private Sub ListBox1_Change()
ListBox2.Clear
For k = 11 To 14
ListBox2.AddItem Feuil1.Cells(ListBox1.ListIndex + 1, k)
Next
End Sub

à remplacer Feuil1 par le codename de la feuille concernée ou
Sheets("nomonglet")

youky

"maud s" a écrit dans le message de news:
O9%
Bonjour j'ai un userform ou se trouve une listbox2 dans lakelle il doit
reprendre un champ.

exemple:
en cellule
A1 nom1
A2 nom2
A3 nom3

en cellule K1 L1 M1 N1 j ai quatre autres noms
idem pour toutes les lignes

si dans usform listbox1 c 'est nom2 qui est choisi je voudrais que ma
listbox2 m affiche uniquement K2 L2 M2 N2



si possible: si par exemple nom4 est selectionné et que K4 L4 M4 N4
.....qui me trouve parmi ces cellules la dernieres celules vides et qui me
demande d'ajouter si je tape un nom dans un textbox1 par exemple et me le
stocke dans la colonne correspondante.

ai je été clair?

j ai voulu ajouter un fichier pour illustrer mais j ai pas réussi..
désolé....

merci a ceux qui peuvent m'aider



Avatar
Youky
Petite rectif car j'avais oublié le cas du Textbox
Celui-ci doit être saisit avant
Youky

Private Sub ListBox1_Change()
ListBox2.Clear
For k = 11 To 14
If Feuil1.Cells(ListBox1.ListIndex + 1, k)="" Then
Feuil1.Cells(ListBox1.ListIndex + 1, k)=TextBox1.Text
ListBox2.AddItem Feuil1.Cells(ListBox1.ListIndex + 1, k)
Exit For
Else
ListBox2.AddItem Feuil1.Cells(ListBox1.ListIndex + 1, k)
End If
Next
End Sub
Avatar
maud s
merci ca a l air de marcher apres une petite manip que j ai faite car la
valeur de la listbox1 doit etre recupérée kelkepart sous la feuille excel si
on veut s'én servir par exemple pour une liste de validation


range("A1")=listbox1.value...



"Youky" a écrit dans le message de news:

Petite rectif car j'avais oublié le cas du Textbox
Celui-ci doit être saisit avant
Youky

Private Sub ListBox1_Change()
ListBox2.Clear
For k = 11 To 14
If Feuil1.Cells(ListBox1.ListIndex + 1, k)="" Then
Feuil1.Cells(ListBox1.ListIndex + 1, k)=TextBox1.Text
ListBox2.AddItem Feuil1.Cells(ListBox1.ListIndex + 1, k)
Exit For
Else
ListBox2.AddItem Feuil1.Cells(ListBox1.ListIndex + 1, k)
End If
Next
End Sub