[Résolu] Sélection VBA d'onglets selon liste

[Polobe36]

Bonjour à tous, le Forum,

Comment faudrait-il faire en VBA pour sélectionner plusieurs onglets à partir d'une liste, dans laquelle se trouvent une ou plusieurs valeurs correspondant toutes à un nom d'onglet?

Par exemple, si ma liste contient les valeurs "FME0001", "FME0002" et "FME0004", je souhaiterai que les onglets "FME0001", "FME0002" et "FME0004" soient sélectionnés.
Mon but au final étant ensuite d'imprimer la sélection simplement à partir de cette liste.

Merci par avance de m'aiguiller.

Bonne journée

 

[Lolote83]

Re : Sélection VBA d'onglets selon liste

Salut,
Peut être comme ceci.

Sub SelectionOnglet()
Dim xTabOng()
xCpt = 0
For Each xCell In Range("B2:B100")
If xCell = Empty Then Exit For
xCpt = xCpt + 1
ReDim Preserve xTabOng(1 To xCpt)
xTabOng(xCpt) = xCell
Next xCell
Worksheets(xTabOng).Select
End Sub

@+ Lolote83

 

[pierrejean]

Re : Sélection VBA d'onglets selon liste

Bonjour Polobe36

A tester:

Sub Macro1()
ReDim tablo(0)
For n = 2 To Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row
 tablo(UBound(tablo)) = Sheets("Data").Range("B" & n)
 ReDim Preserve tablo(UBound(tablo) + 1)
Next
ReDim Preserve tablo(UBound(tablo) - 1)
 Sheets(tablo).Select
End Sub

Edit : Salut lolote (avais pas rafraichi )

 

[Polobe36]

Re. Sélection VBA d'onglets selon liste

Re,

Merci à vous pour votre aide, et réactivité!
Chacune des solutions fonctionne, je n'ai plus que l'embarras du choix.

Merci encore

 

[job75]

Re : Sélection VBA d'onglets selon liste

Bonjour Polobe36, Lolote83, Pierre, ça fait longtemps qu'on ne s'est pas croisé

OK mais on peut tenir compte du fait qu'il s'agit d'un tableau Excel, et qu'il peut être filtré :

Private Sub CommandButton1_Click()
Dim c As Range, n%
On Error Resume Next 'si des feuilles n'existent pas
For Each c In [Tableau2].SpecialCells(xlCellTypeVisible)
  If IsError(Sheets(c.Text)) Then Else n = n + 1: Sheets(c.Text).Select n = 1
Next
End Sub

Fichier joint.

A+

 

[Polobe36]

Re : Sélection VBA d'onglets selon liste

Bonjour à tous,

En effet job75, bonne idée: Merci!

Bonne journée.