Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre
d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox.
(la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
sur le net je n'est pas trouvé ce qui me fallait
Merci à toute personne qui pourra m'aider.
--
__________________________________________
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
Croquignol
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre
d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox.
(la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
Dim I As Integer
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then MsgBox .List(I) & " sélectionné."
Next
End With
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Lionel de Luca
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme a( I )= element selectionne ( I )
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Merci pour ton aide
mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme
a( I )= element selectionne ( I )
merci d'avance
--
__________________________________________
Amicalement
Lionel de Luca
ldeluca@tiscali.fr
__________________________________________
"Croquignol" <croquignol@free.fr> a écrit dans le message de news:
3F867331.E994FB71@free.fr...
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre
d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox.
(la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
Dim I As Integer
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then MsgBox .List(I) & " sélectionné."
Next
End With
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme a( I )= element selectionne ( I )
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Croquignol
Re,
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab() J = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then J = J + 1 ReDim Preserve MonTab(J) MonTab(J) = .List(I) End If Next End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Re,
Merci pour ton aide
mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme
a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab()
J = 0
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
J = J + 1
ReDim Preserve MonTab(J)
MonTab(J) = .List(I)
End If
Next
End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
--
__________________________________________
Amicalement
Lionel de Luca
ldeluca@tiscali.fr
__________________________________________
"Croquignol" <croquignol@free.fr> a écrit dans le message de news:
3F867331.E994FB71@free.fr...
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre
d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox.
(la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
Dim I As Integer
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then MsgBox .List(I) & " sélectionné."
Next
End With
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab() J = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then J = J + 1 ReDim Preserve MonTab(J) MonTab(J) = .List(I) End If Next End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Lionel de Luca
Impec, Merci beaucoup
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Re,
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme
a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab() J = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then J = J + 1 ReDim Preserve MonTab(J) MonTab(J) = .List(I) End If Next End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Impec, Merci beaucoup
--
__________________________________________
Amicalement
Lionel de Luca
ldeluca@tiscali.fr
__________________________________________
"Croquignol" <croquignol@free.fr> a écrit dans le message de news:
3F8681BC.3522EE73@free.fr...
Re,
Merci pour ton aide
mais maintenant j'aimerai memoriser chaque élément sélectionné sur la
forme
a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab()
J = 0
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
J = J + 1
ReDim Preserve MonTab(J)
MonTab(J) = .List(I)
End If
Next
End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
--
__________________________________________
Amicalement
Lionel de Luca
ldeluca@tiscali.fr
__________________________________________
"Croquignol" <croquignol@free.fr> a écrit dans le message de news:
3F867331.E994FB71@free.fr...
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre
d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn"
de la
listbox.
(la quantité sélectionnable est aléatoire mais ne peut pas dépasser
le
compteur mentionné au début)
Dim I As Integer
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then MsgBox .List(I) & " sélectionné."
Next
End With
__________________________________________ "Croquignol" a écrit dans le message de news:
Re,
Merci pour ton aide mais maintenant j'aimerai memoriser chaque élément sélectionné sur la forme
a( I )= element selectionne ( I )
Voici un exemple :
Dim I As Integer, J As Integer, MonTab() J = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then J = J + 1 ReDim Preserve MonTab(J) MonTab(J) = .List(I) End If Next End With
Le tableau MonTab contiendra les textes de tous les éléments sélectionnés.
En eséprant que ça t'aide,
Croquignol
merci d'avance
-- __________________________________________
Amicalement
Lionel de Luca
__________________________________________ "Croquignol" a écrit dans le message de news:
Bonjour,
je viens de créer une macro vba qui me permet de compter le nombre d'éléments d'une listbox multiselect
Mon problème est de recupérer le nom de chaque élément séléctionn" de la
listbox. (la quantité sélectionnable est aléatoire mais ne peut pas dépasser le
compteur mentionné au début)
Dim I As Integer With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then MsgBox .List(I) & " sélectionné." Next End With
Amicalement,
Croquignol
Lionel de Luca
Voici ma macro corrigée avec ton aide
Private Sub CommandButton1_Click() Dim I As Integer, compteur2 As Integer, ref() compteur2 = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then compteur2 = compteur2 + 1 ReDim Preserve ref(compteur2) ref(compteur2) = .List(I) MsgBox (ref(compteur2)) End If Next End With
End Sub
la msgbox me restitue sans problème les sélections faites dans la liste
Mon nouveau problème est :
pour chaque ref( compteur2 ) 2 éléments sont associés dans une feuille dans une autre feuille j'ai fais une présentation de 7 étiquettes identiques les unes sous les autres pour une impression sur une page
J'aimerais : - si compteur2 < 7, je remplis chaque étisuette avec chaque ref et éléments associés
- si compteur2< x, je remplis les 7 premières et je les imprimes, puis les 7 suivantes , et ainsi de suite
--
__________________________________________
Amicalement
Lionel de Luca
__________________________________________
Voici ma macro corrigée avec ton aide
Private Sub CommandButton1_Click()
Dim I As Integer, compteur2 As Integer, ref()
compteur2 = 0
With ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then
compteur2 = compteur2 + 1
ReDim Preserve ref(compteur2)
ref(compteur2) = .List(I)
MsgBox (ref(compteur2))
End If
Next
End With
End Sub
la msgbox me restitue sans problème les sélections faites dans la liste
Mon nouveau problème est :
pour chaque ref( compteur2 ) 2 éléments sont associés dans une feuille
dans une autre feuille j'ai fais une présentation de 7 étiquettes identiques
les unes sous les autres pour une impression sur une page
J'aimerais :
- si compteur2 < 7, je remplis chaque étisuette avec chaque ref et éléments
associés
- si compteur2< x, je remplis les 7 premières et je les imprimes, puis les 7
suivantes , et ainsi de suite
--
__________________________________________
Amicalement
Lionel de Luca
ldeluca@tiscali.fr
__________________________________________
Private Sub CommandButton1_Click() Dim I As Integer, compteur2 As Integer, ref() compteur2 = 0 With ListBox1 For I = 0 To .ListCount - 1 If .Selected(I) Then compteur2 = compteur2 + 1 ReDim Preserve ref(compteur2) ref(compteur2) = .List(I) MsgBox (ref(compteur2)) End If Next End With
End Sub
la msgbox me restitue sans problème les sélections faites dans la liste
Mon nouveau problème est :
pour chaque ref( compteur2 ) 2 éléments sont associés dans une feuille dans une autre feuille j'ai fais une présentation de 7 étiquettes identiques les unes sous les autres pour une impression sur une page
J'aimerais : - si compteur2 < 7, je remplis chaque étisuette avec chaque ref et éléments associés
- si compteur2< x, je remplis les 7 premières et je les imprimes, puis les 7 suivantes , et ainsi de suite