probleme selection divers onglets

Question

Bonjour,

J'écris une macro VBA pour enregistrer.sou vers pdf une partie à choisir des onglets de mon classeur (onglets sélectionés).

Pour cela j'ai créé une userform dans laquelle la liste des feuilles du classeur est listée et dans laquelle les personnes peuvent selectionner les feuille à éditer.

Or je ne sais pas comment faire une selection multiple d'onglets (dont le nom à été  choisi das ma listbox) avant de lancer le traitement d'enregistrer vers pdf... En fait quel est l'équivalent CTRL + selection d'onglet non contigu ?

Quelqu'un aurait-il une idée ?

Merci d'avance

Calou

Answer 1

| dans ma listbox, ce n'est pas le nom de chaque feuille que

| je récupère mais le contenu d'une cellule précise de chaque

| feuille... Contenu que je vais ensuite recherché dans une liste

| prédéfinie dans laquelle dans la colonne d'a côté est situé le

| nom des feuilles...

Tu veux que je fasse quoi avec ce type d'information ?

Les objets dans Excel ont des noms, pour les listes, il faut d'abord

spécifier de quelles sortes de liste dont il s'agit :  ListBox, Combobox

liste de validation... Comment ces listes sont renseignées...etc

On ne crée pas du code sur du vent !

MichD

---

Answer 2

Merci pour la réponse.

Toutefois mon souci est plus complexe . En effet, dans ma listbox, ce n'est pas le nom de chaque feuille que je récupère mais le contenu d'une cellule précise de chaque feuille... Contenu que je vais ensuite recherché dans une liste prédéfinie dans laquelle dans la colonne d'a côté est situé le nom des feuilles... Donc au milieu j'ai une recherche à faire... Et du coup ca ne fonctionne pas...

Je vais poursuivre mes recherches...

Bon week-end

Calou

Answer 3

Bonjour,

Essaie comme ça en adaptant le nom des objets :

La macro tient pour acquis que le nom des feuilles dans la liste

est exact, car la procédure ne fait pas la gestion des erreurs...

'-------------------------------------

Sub test()

Dim A As Integer, B As Integer

With Me.ListBox1

    If .ListIndex <> 0 Then

        For A = 1 To .ListCount

            If .Selected(A - 1) = True Then

                B = B + 1

                If B = 1 Then

                    Sheets(.List(A - 1, 0)).Select

                Else

                    Sheets(.List(A - 1, 0)).Select False

                End If

            End If

        Next

    Else

        MsgBox "Aucune sélection faite dans la liste."

    End If

End With

End Sub

'-------------------------------------

MichD

---

"calou_synerga2" a écrit dans le message de groupe de discussion : *** Adresse électronique supprimée pour cause de confidentialité ***...

Bonjour,

J'écris une macro VBA pour enregistrer.sou vers pdf une partie à choisir des onglets de mon classeur (onglets sélectionés).

Pour cela j'ai créé une userform dans laquelle la liste des feuilles du classeur est listée et dans laquelle les personnes peuvent selectionner les feuille à éditer.

Or je ne sais pas comment faire une selection multiple d'onglets (dont le nom à été  choisi das ma listbox) avant de lancer le traitement d'enregistrer vers pdf... En fait quel est l'équivalent CTRL + selection d'onglet non contigu ?

Quelqu'un aurait-il une idée ?

Merci d'avance

Calou

Answer 4

Or je ne sais pas comment faire une selection multiple d'onglets (dont le nom à été  choisi das ma listbox) avant de lancer le traitement d'enregistrer vers pdf... En fait quel est l'équivalent CTRL + selection d'onglet non contigu ?

Obtenu avec Excel 2003, par simple enregistrement auto :

    Sheets(Array("Feuil11", "Feuil9", "Feuil7", "Feuil5")).Select