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 listbox- permission refusée

listbox- permission refusée

2 réponses
Avatar
blandine
Bonsoir,

Je cherche a faire une listbox pour qu'elle soit apres utilisée dans un
graphique.
J'ai regardé un peu comment ca se faisait, les données se mettent dans la
liste, mais qd on clique dessus, le message permission refusée s'affiche.
Voici mon code, et les données dans les cellules a importer ne comprennent
pas de formules:
Merci de votre aide,

Blandine

Private Sub ListBox1_Click()
Dim a As Variant
Dim tableau()
ReDim tableau(22)
For i = 2 To 23
If Sheets("données").Cells(i, 8) <> "" And Sheets("données").Cells(i, 8)
<> "ratios par secteurs" Then
tableau(l) = Sheets("données").Cells(i, 8)
l = l + 1
End If
Next
ListBox1.List = tableau
ListBox1.ColumnWidths = 90
End Sub
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
Daniel
Bonjour.
La feuille est-elle protégée ?
Cordialement.
Daniel
"blandine" a écrit dans le message de
news:
Bonsoir,

Je cherche a faire une listbox pour qu'elle soit apres utilisée dans un
graphique.
J'ai regardé un peu comment ca se faisait, les données se mettent dans la
liste, mais qd on clique dessus, le message permission refusée s'affiche.
Voici mon code, et les données dans les cellules a importer ne
comprennent
pas de formules:
Merci de votre aide,

Blandine

Private Sub ListBox1_Click()
Dim a As Variant
Dim tableau()
ReDim tableau(22)
For i = 2 To 23
If Sheets("données").Cells(i, 8) <> "" And Sheets("données").Cells(i, 8)
<> "ratios par secteurs" Then
tableau(l) = Sheets("données").Cells(i, 8)
l = l + 1
End If
Next
ListBox1.List = tableau
ListBox1.ColumnWidths = 90
End Sub




Avatar
JB
Bonsoir,

-S'agit-il d'une zone de liste dans le tableur?
-Si oui, on ne l'alimente pas sur l'événement Click mais avant
-l'événement Click permet de récuprérer le résultat
-Il suffit peut être de spécifier la source dans ListFillRange par un
nom de champ.

JB
On 14 août, 18:06, blandine
wrote:
Bonsoir,

Je cherche a faire une listbox pour qu'elle soit apres utilisée dans un
graphique.
J'ai regardé un peu comment ca se faisait, les données se mettent d ans la
liste, mais qd on clique dessus, le message permission refusée s'affich e.
Voici mon code, et les données dans les cellules a importer ne compre nnent
pas de formules:
Merci de votre aide,

Blandine

Private Sub ListBox1_Click()
Dim a As Variant
Dim tableau()
ReDim tableau(22)
For i = 2 To 23
If Sheets("données").Cells(i, 8) <> "" And Sheets("données").Cells (i, 8)
<> "ratios par secteurs" Then
tableau(l) = Sheets("données").Cells(i, 8)
l = l + 1
End If
Next
ListBox1.List = tableau
ListBox1.ColumnWidths = 90
End Sub