Pb Listbox

Le
Michel MTO
Bonjour à toutes et à tous,

J'ai ce code qui m'a été donné par lSteph :

Private Sub Listbox1_Click()
ActiveSheet.[G20] = Listbox1.Value
End Sub

Private Sub Worksheet_Activate()
Dim c As Range
Dim s As Range
Workbooks("Adresses Clients.xls").Activate
With ActiveWorkbook.Sheets("Adresses Clients")
For Each c In .[A2:A2500]
Me.Listbox1.AddItem c
Next
End With
ThisWorkbook.Activate
End Sub

J'ai l'impression (presque une certitude!!) que ma listbox garde en mémoire
tous les éléments (plutôt que cela s'initialise et corresponde exactement
aux données qui se trouve dans ma plage [A2:A2500] !!!

Pourquoi lorsque je met ce code dans Thisworkbook ma liste ne fait
apparaitre aucun élément ??

Est ce que je peux rendre 2500 dans la plage .[A2:A2500] variable sachant
qu'il se peut que des éléments viennent en plus, pouvant aller jusqu'à 3000
ou 4000 ??

Merci pour vos aides précieuses

Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #19617061
Bonsoir,

Private Sub UserForm_Initialize()
With Sheets("ListeClients")
Me.ListBox1.List = .Range("A2:A" & .Range("A65000").End
(xlUp).Row).Value
End With
End Sub

JB
http://boisgontierjacques.free.fr/

On 22 juin, 16:34, "Michel MTO"
Bonjour à toutes et à tous,

J'ai ce code qui m'a été donné par lSteph :

Private Sub Listbox1_Click()
    ActiveSheet.[G20] = Listbox1.Value
End Sub

Private Sub Worksheet_Activate()
    Dim c As Range
    Dim s As Range
    Workbooks("Adresses Clients.xls").Activate
    With ActiveWorkbook.Sheets("Adresses Clients")
    For Each c In .[A2:A2500]
    Me.Listbox1.AddItem c
    Next
    End With
    ThisWorkbook.Activate
End Sub

J'ai l'impression (presque une certitude!!) que ma listbox garde en mém oire
tous les éléments (plutôt que cela s'initialise et corresponde exac tement
aux données qui se trouve dans ma plage [A2:A2500] !!!

Pourquoi lorsque je met ce code dans Thisworkbook ma liste ne fait
apparaitre aucun élément ??

Est ce que je peux rendre 2500 dans la plage .[A2:A2500] variable sachant
qu'il se peut que des éléments viennent en plus, pouvant aller jusqu' à 3000
ou 4000 ??

Merci pour vos aides précieuses

Michel


Michel MTO
Le #19620481
Bonjour JB,

juste une précision :

Je n'ai pas créer de Userform, mon contrôle Listbox1 sur trouve directement
sur ma feuil1, et les éléments de la listbox doivent provenir d'un autre
classeur nommé Workbooks("Adresses Clients.xls") et dans la colonne A.

J'ai intégré ton code dans le code de ma feuil1 (celle qui contient mon
listbox), mais rien ne se passe, la liste reste désespéremment blanche !!

En tout cas merci de m'aider

Cordialement

Michel

"JB" news:
Bonsoir,

Private Sub UserForm_Initialize()
With Sheets("ListeClients")
Me.ListBox1.List = .Range("A2:A" & .Range("A65000").End
(xlUp).Row).Value
End With
End Sub

JB
http://boisgontierjacques.free.fr/

On 22 juin, 16:34, "Michel MTO"
Bonjour à toutes et à tous,

J'ai ce code qui m'a été donné par lSteph :

Private Sub Listbox1_Click()
ActiveSheet.[G20] = Listbox1.Value
End Sub

Private Sub Worksheet_Activate()
Dim c As Range
Dim s As Range
Workbooks("Adresses Clients.xls").Activate
With ActiveWorkbook.Sheets("Adresses Clients")
For Each c In .[A2:A2500]
Me.Listbox1.AddItem c
Next
End With
ThisWorkbook.Activate
End Sub

J'ai l'impression (presque une certitude!!) que ma listbox garde en


mémoire
tous les éléments (plutôt que cela s'initialise et corresponde exactement
aux données qui se trouve dans ma plage [A2:A2500] !!!

Pourquoi lorsque je met ce code dans Thisworkbook ma liste ne fait
apparaitre aucun élément ??

Est ce que je peux rendre 2500 dans la plage .[A2:A2500] variable sachant
qu'il se peut que des éléments viennent en plus, pouvant aller jusqu'à


3000
ou 4000 ??

Merci pour vos aides précieuses

Michel


Publicité
Poster une réponse
Anonyme