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
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
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
Bonjour.
La feuille est-elle protégée ?
Cordialement.
Daniel
"blandine" <blandine@discussions.microsoft.com> a écrit dans le message de
news: F70638FC-E682-4E74-84DC-2D07A198841B@microsoft.com...
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
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
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
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 <bland...@discussions.microsoft.com>
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
-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