LISTE DEROULANTE

[DENIS]

BONJOUR A TOUS ET TOUTES
ref si dessous

ce que je recherche c est de prendre des cellules dans une autre feuille du meme classeur.

merci pour la solution


Private Sub UserForm_Activate()
Dim LstFeuille As String
LstFeuille = Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
SelectFeuille.RowSource = "A1:" & LstFeuille
' Afficher la première SelectFeuille de la liste (0)
SelectFeuille.ListIndex = 0
End Sub

 

[utilsfr]

Bonjour

Voici le code

Private Sub UserForm_Activate()
Dim LstFeuille As String
LstFeuille = Worksheets("nomdetafeuille").Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
SelectFeuille.RowSource = "nomdetafeuille!A1: " & LstFeuille
' Afficher la première SelectFeuille de la liste (0)
SelectFeuille.ListIndex = 0
End Sub

Cordialement
ROBERT René

 

[DENIS]

MERCI RENE ET BONNE JOURNEE A TOI ET TOUS LES FAUX RHUMEURS