Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb Listbox

Pb Listbox

2 réponses
Avatar
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
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
JB
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" wrote:
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


Avatar
Michel MTO
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" a écrit dans le message de
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" wrote:
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