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 Rowsource contrôle

Rowsource contrôle

2 réponses
Avatar
Kyvu
Bonjour =E0 tous,

A l'ouverture de mon userform, je charge le rowsource de=20
mon contr=F4le avec ceci:

Private Sub UserForm_Activate()
Dim ListeArticle As String
ListeArticle =3D Range("Param=E8tres!F4").End(xlDown).Address
SelectionArticle.RowSource =3D "Param=E8tres!F4:" &=20
ListeArticle
SelectionArticle.ListIndex =3D 0
End Sub

Ca marche tr=E8s bien dans le classeur actif, mais je=20
voudrais maintenant aller chercher les donn=E9es dans un=20
autre classeur ouvert qui se nomme "Data.xls",=20
feuille "Donn=E9es". J'ai essay=E9 plusieurs syntaxes mais=20
rien =E0 faire, =E7a ne marche pas:

ListeArticle =3D Workbooks("Data.xls").Range("Param=E8tres!
F4").End(xlDown).Address

Quelqu'un a-t-il une id=E9e?

Merci.

@micalement.



Kyvu On Line!
Signaler un problème avec ce contenu

2 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
Kyvu
Re-bonjour,

J'ai réussi à pointer vers le classeur en question:

Private Sub UserForm_Activate()
Dim ListeArticle As String
ListeArticle = Workbooks("Data.xls").Worksheets
("Données").Range("Données!F4").End(xlDown).Address
SelectionArticle.RowSource = "Données!F4:" & ListeArticle
SelectionArticle.ListIndex = 0
End Sub

Mais maintenant c'est le chargement du rowsource qui
échoue!

@micalement.



Kyvu On Line!
Avatar
Alain CROS
Bonjour.

Essaye comme ça.

Private Sub UserForm_Activate()
With Workbooks("Data.xls").Worksheets("Données")
SelectionArticle.RowSource = .Range("F4:" & _
.Range("F4").End(xlDown).Address).Address(, , , True)
End With
SelectionArticle.ListIndex = 0
End Sub

Alain CROS

"Kyvu" a écrit dans le message de news: 2a6bd01c46692$f8507fa0$
Re-bonjour,

J'ai réussi à pointer vers le classeur en question:

Private Sub UserForm_Activate()
Dim ListeArticle As String
ListeArticle = Workbooks("Data.xls").Worksheets
("Données").Range("Données!F4").End(xlDown).Address
SelectionArticle.RowSource = "Données!F4:" & ListeArticle
SelectionArticle.ListIndex = 0
End Sub

Mais maintenant c'est le chargement du rowsource qui
échoue!

@micalement.



Kyvu On Line!