Commandbutton avec fonction tout sélectionner

Version imprimable

20/02/2015, 15h46
lleirce

Commandbutton avec fonction tout sélectionner

Bonjour,

Dans un formulaire VB, créer par Philippe Thuilliez, je voudrai rajouter un commandbuton qui en cliquant dessus me sélectionne l'ensemble des onglets apparaissant dans le formulaire.
J'ai un fichier dans lequel j'ai repris un formulaire activé par macro. Cette macro liste l'ensemble des ongles d'un fichier excel et je peux ensuite sélectionner les onglets dont je veux exporter le contenu. Cependant mon fichier source est enrichi tous les jours d'un nouvel onglet. En début d'année tout va bien, la sélection n'est pas trop longue. Mais très rapidement je vais passer beaucoup de temps à sélectionner tous mes onglets.
Je voudrais donc ajouter un bouton qui me sélectionne tous les onglets présents dans le formulaire.
Mais je ne sais pas comment programmer ce bouton.

En pièce jointe mon fichier de travail.

Merci pour votre aide.
20/02/2015, 15h58
parmi
Bonjour,

Tu veux sélectionner tous les onglets ou tous les noms inscrits dans une Listbox ?

Pour sélectionner tous les onglets

Code:

Worksheets.Select

Pour sélectionner tous les items d'une Listbox
Code:

1 2 3 4 5 Dim I As Long For I = 0 To Me.ListBox1.ListCount - 1 Me.ListBox1.Selected(I) = True Next

Bonjour,

Tu peux ajouter ce bout de code a ton UF :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
    Me.lstSheetList.MultiSelect = fmMultiSelectMulti  'Permet une multi selection dans la listbox
    '(tu peux le parametrer directement dans les proprietes de la listbox et enlever cette ligne)
 
    Dim i As Long
 
    For i = 0 To Me.lstSheetList.ListCount - 1
       Me.lstSheetList.Selected(i) = True
    Next i
 
End Sub

J'espère répondre a ton besoin ;)

Antony

20/02/2015, 16h46
lleirce

Bonjour Antony,

Merci pour ton code qui me permet bien de tout sélectionner, maintenant je voudrai tout ajouter dans la colonne de droite du formulaire.

Je viens de m'apercevoir que ma demande initiale n'était pas complète.
Dans le formulaire qui se lance, je voudrais bien sélectionner tout ce qui s'affiche à gauche du formulaire mais ensuite je voudrais tout transférer dans la partie droite du formulaire.

Lleirce

Code:

1
2
3
4
5
6
7
    Dim I As Long
 
    For I = 0 To lstSheetList.ListCount - 1
        If lstSheetList.Selected(I) Then
            lstSheetSelected.AddItem lstSheetList.List(I)
        End If
    Next