Macro Sélection d'onglet

[Malone]

Bonjour,

J'ai récupéré un code pour sélectionner un nombre d'onglet du classeur mais je n'arrive pas à l'adapter à mon fichier correctement.
Le nombre d'onglet à sélectionner se trouve en B5 et je voudrai qu'il sélectionne 5 onglets à partir de l'onglet "1"

- Dans le fichier test onglet est la marco tel que je l'ai récupéré et fonctionne correctement sauf qu'elle sélectionne la première feuille

- Dans test onglet 2 le fichier à des onglets renommés tels que mon fichier original. Le problème est que lorsque je change le nom des onglets dans le classeur et la macro, cette dernière bug. Et je voudrai que le fichier ne sélectionne que des onglets à partir du "1" et non pas le premier onglet du classeur.
Ex si B5 = 5 il faut sélectionner les onglets "1" à "5"
Car c'est pour lancer des impressions à la chaine par la suite.



Merci pour votre aide

 

[gwenlorin]

Re : Macro Sélection d'onglet

J'ai modifié ta macro en mettant des commentaires dans le code.
2 versions :
- "onglet" -> nb de feuilles à imprimer dans une cellule
- "onglet2" -> inputbox pour récupération du nb de feuilles à imprimer

J'espère que ca répondra à ton besoin

 

[job75]

Re : Macro Sélection d'onglet

Bonjour,

A priori cette macro :

Sub onglet()
Dim Base(4), i As Byte
On Error Resume Next
For i = 0 To 4
Base(i) = CStr(Sheets(1).Range("B5") + i)
Next
Sheets(Base).Select
End Sub

En B5 entrer un nombre (de 1 à 11 sur votre fichier). La feuille dont le nom est ce nombre et les 4 suivantes seront sélectionnées.

A+

 

[job75]

Re : Macro Sélection d'onglet

Re,

Ah mais non, j'avais mal lu l'énoncé, il faut sélectionner depuis la feuille "1" jusqu'à la feuille numérotée en B5 :

Sub onglet()
Dim n As Integer, Base(), i As Byte
On Error Resume Next
n = Sheets(1).Range("B5")
ReDim Base(n - 1)
For i = 1 To n
Base(i - 1) = CStr(i)
Next
Sheets(Base).Select
End Sub

A+

 

[Malone]

Re : Macro Sélection d'onglet

Merci à vous deux pour vos réponses, la solution de gwenlorin correspond plus à mes attentes.

Par contre lorsque je l'adapte à mon fichier j'ai un LOOP qui devient infini alors qu'il passait bien sans ça.
En fait je récupère le nombre de feuille à imprimer dans une cellule (G7) qui doit se mettre à jour en changeant de ligne mais elle ne le fait plus.

Aussi Gwenlorin peux tu me dire à quoi sert la dimension "Tab_Feuil"

Merci

 

[Malone]

Re : Macro Sélection d'onglet

Job75 je n'avais pas vu ta réponse lorsque j'ai écrit mon mail on s'est croisé!

Quand j'utilise ton nouveau code j'ai le même problème, boucle infini

Et cette fois ça à l'air de marcher, il faut juste que je corrige se problème de boucle

si l'un de vous à une idée

 

[Malone]

Re : Macro Sélection d'onglet

J'ai trouvé !
s'était tout bête et c'est souvent pour ce genre de chose qu'on cherche le plus longtemps

Il manquai des guillemets pour que la macro se relace sur la première feuille

Sheets([COLOR="red"]"[/COLOR]Base[COLOR="Red"]"[/COLOR]).Select

Encore merci à tout les deux!

Bonne journée

 

[job75]

Re : Macro Sélection d'onglet

Re,

En effet, faire attention. Si Base est le nom du tableau (Array) :

Sheets(Base).Select => sélectionne toutes les feuilles du tableau

Sheets("Base").Select => sélectionne la feuille "Base"

A+

 

[Malone]

Re : Macro Sélection d'onglet

Effectivement, j'ai du laisser

Sheets(Base).Select
Et ajouter
Sheets("Base").Select
à la fin de ma boucle pour retourner sur ma feuille principale

 

[gwenlorin]

Re : Macro Sélection d'onglet

Oui attention avec ta variable Base dont le nom est ident à ta feuille.
C'est pour cela que j'avais renommer le nom du tableau des feuilles à sélectionner en "Tab_Feuil"

 

[Malone]

Re : Macro Sélection d'onglet

Justement ce tableau des feuilles est juste virtuel ? comme lorsque l'on sélectionne une plage de donnée et on définit un nom