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

L

Lolote83

XLDnaute Barbatruc

• 8 Juin 2015

• #2

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

Cliquez pour agrandir...

@+ Lolote83

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Juin 2015

• #3

Re : Sélection VBA d'onglets selon liste

Bonjour Polobe36

A tester:

Code:

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 )

 

Vote positif 0 Vote négatif

P

Polobe36

XLDnaute Occasionnel

• 8 Juin 2015

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juin 2015

• #5

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é :

Code:

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+

 

Pièces jointes

• Sélectionner les feuilles(1).xlsm

  42 KB · Affichages: 58

Vote positif 0 Vote négatif

P

Polobe36

XLDnaute Occasionnel

• 9 Juin 2015

• #6

Re : Sélection VBA d'onglets selon liste

Bonjour à tous,

En effet job75, bonne idée: Merci!

Bonne journée.

 

Vote positif 0 Vote négatif