[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: 55

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