OVH Cloud OVH Cloud

Liste de choix

2 réponses
Avatar
sebastien
Bonjour,
peut on dans une boite de dialogue int=E9grer une liste de=20
choix reprenant une plage comprenant 2 colones.

Ex. :=20

en colonne A j ai des num de comptes
en colonne B j ai les intitul=E9s de comptes

j aimerai que sur la boite dialogue apparaisse ds la liste=20
de choix les num ainsi que les intitul=E9s de comptes.

Une solution =E9vidente consiste a cr=E9er une 3eme colone en=20
concat=E9nant les 2 premieres...=20
mais je souhaite l =E9viter

Peut on trouver une solution autre (directement en=20
parametrant la boite de dialogue ou en VBA)

Merci beaucoup

Sebastien

2 réponses

Avatar
fabienne HUÏEZ
Voici un petit bout de code qui pourra t'aider :
Les NumérosCompte sont en colA sur Feuil1. Les intitulés
en colonne B.

Sub RemplissageListeChoix()
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("A1").Select


Do While IsNull(ActiveCell) = False
If ActiveCell = "" Then Exit Do
NumCompte = ActiveCell.Value

ActiveCell.Offset(Rowoffset:=0,
columnoffset:=1).Activate
IntituleCompte = ActiveCell.Value

NumIntitule = NumCompte & " " & IntituleCompte
Listbox1.AddItem NumIntitule
ActiveCell.Offset(Rowoffset:=0, columnoffset:=-
1).Activate
End Sub

fabienne

-----Message d'origine-----
Bonjour,
peut on dans une boite de dialogue intégrer une liste de
choix reprenant une plage comprenant 2 colones.

Ex. :

en colonne A j ai des num de comptes
en colonne B j ai les intitulés de comptes

j aimerai que sur la boite dialogue apparaisse ds la
liste

de choix les num ainsi que les intitulés de comptes.

Une solution évidente consiste a créer une 3eme colone en
concaténant les 2 premieres...
mais je souhaite l éviter

Peut on trouver une solution autre (directement en
parametrant la boite de dialogue ou en VBA)

Merci beaucoup

Sebastien

.



Avatar
sebastien
parfait !
Merci beaucoup


-----Message d'origine-----
Voici un petit bout de code qui pourra t'aider :
Les NumérosCompte sont en colA sur Feuil1. Les intitulés
en colonne B.

Sub RemplissageListeChoix()
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Range("A1").Select


Do While IsNull(ActiveCell) = False
If ActiveCell = "" Then Exit Do
NumCompte = ActiveCell.Value

ActiveCell.Offset(Rowoffset:=0,
columnoffset:=1).Activate
IntituleCompte = ActiveCell.Value

NumIntitule = NumCompte & " " & IntituleCompte
Listbox1.AddItem NumIntitule
ActiveCell.Offset(Rowoffset:=0, columnoffset:=-
1).Activate
End Sub

fabienne

-----Message d'origine-----
Bonjour,
peut on dans une boite de dialogue intégrer une liste de
choix reprenant une plage comprenant 2 colones.

Ex. :

en colonne A j ai des num de comptes
en colonne B j ai les intitulés de comptes

j aimerai que sur la boite dialogue apparaisse ds la
liste

de choix les num ainsi que les intitulés de comptes.

Une solution évidente consiste a créer une 3eme colone
en


concaténant les 2 premieres...
mais je souhaite l éviter

Peut on trouver une solution autre (directement en
parametrant la boite de dialogue ou en VBA)

Merci beaucoup

Sebastien

.

.