Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Zone de liste

Zone de liste

5 réponses
Avatar
Pierre
Bonjour
Est-il possible sur une feuille Excel d'avoir une zone de liste qui
contiendrais 2 colonnes
(pas dans un UserForm mais sur la feuille directement)
Merci bien
Pierre
Signaler un problème avec ce contenu

5 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
Daniel
Bonsoir.
Regarde le classeur à l'adresse :
http://cjoint.com/?ftxkTvWbnJ
qui répond à ton post d'hier et donc à celui d'aujourd'hui aussi.
Cordialement.
Daniel
"Pierre" a écrit dans le message de news:
446e2e83$0$20176$
Bonjour
Est-il possible sur une feuille Excel d'avoir une zone de liste qui
contiendrais 2 colonnes
(pas dans un UserForm mais sur la feuille directement)
Merci bien
Pierre





Avatar
JB
Bonjour,


http://cjoint.com/?fufVZ26aan

Menu déroulant avec 2 colonnes (Avec BO Boite à outils contrôles)

ColumnCount:2
ColumnWidths: 60;60

Private Sub Workbook_Open()
n = Sheets("Liste_Matériels").[A65000].End(xlUp).Row - 1
ReDim materiels(n, 1)
ligne = 2
Do While Sheets("liste_matériels").Cells(ligne, 1) <> ""
materiels(ligne - 2, 0) = Sheets("liste_matériels").Cells(ligne,
1)
materiels(ligne - 2, 1) = Sheets("liste_matériels").Cells(ligne,
4)
ligne = ligne + 1
Loop
Sheets("accueil").ListBox1.List = materiels
End Sub

Private Sub choix_code_Change()
Range("F2").Value = Val(ListBox1)
End Sub

Cordialement JB
Avatar
JB
Autre exemple

http://cjoint.com/?fuhH1rbFuY

Private Sub Worksheet_Activate()
ChoixProd.ListFillRange = Range([J2], [K65000].End(xlUp)).Address
End Sub

Private Sub ChoixProd_Click()
[H1] = ChoixProd.Column(0)
[H2] = ChoixProd.Column(1)
End Sub

JB
Avatar
Pierre
Merci Bien
Mon erreur était de faire une liste sur la feuille avec la barre d'outils
Formulaire et non pas avec la BO Contrôle

Je vais pouvoir mettre en place mon appli
A+
Pierre

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

Bonsoir.
Regarde le classeur à l'adresse :
http://cjoint.com/?ftxkTvWbnJ
qui répond à ton post d'hier et donc à celui d'aujourd'hui aussi.
Cordialement.
Daniel
"Pierre" a écrit dans le message de news:
446e2e83$0$20176$
Bonjour
Est-il possible sur une feuille Excel d'avoir une zone de liste qui
contiendrais 2 colonnes
(pas dans un UserForm mais sur la feuille directement)
Merci bien
Pierre









Avatar
Pierre
Merci Bien
Mon erreur était de faire une liste sur la feuille avec la barre d'outils
Formulaire et non pas avec la BO Contrôle

Je vais pouvoir mettre en place mon appli
A+
Pierre
"JB" a écrit dans le message de news:

Bonjour,


http://cjoint.com/?fufVZ26aan

Menu déroulant avec 2 colonnes (Avec BO Boite à outils contrôles)

ColumnCount:2
ColumnWidths: 60;60

Private Sub Workbook_Open()
n = Sheets("Liste_Matériels").[A65000].End(xlUp).Row - 1
ReDim materiels(n, 1)
ligne = 2
Do While Sheets("liste_matériels").Cells(ligne, 1) <> ""
materiels(ligne - 2, 0) = Sheets("liste_matériels").Cells(ligne,
1)
materiels(ligne - 2, 1) = Sheets("liste_matériels").Cells(ligne,
4)
ligne = ligne + 1
Loop
Sheets("accueil").ListBox1.List = materiels
End Sub

Private Sub choix_code_Change()
Range("F2").Value = Val(ListBox1)
End Sub

Cordialement JB