Discussion :

[lleirce]

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.

[parmi]

Bonjour,

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

Pour sélectionner tous les onglets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets.Select

Pour sélectionner tous les items d'une Listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Bonjour,

Tu peux ajouter ce bout de code a ton UF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[parmi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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