[VBA] Sélection de plusieurs feuilles distinctes

[JNP]

Bonjour le forum 🙂,
En cherchant une réponse pour Bryc, je suis tombé sur un os... En utilisant l'éditeur de macro pour chercher l'instruction de sélection de plusieurs feuilles, celui-ci me donne :

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Quand j'essaie de retraduire "Feuil1", "Feuil2" par exemple par une variable, j'ai toujours un message d'erreur, même si je passe par Chr$(034) pour intégrer la double cote...
J'ai fait des recherche sur la méthode Add, mais n'ai rien trouvé...
Je suis preneur d'idées...
Merci d'avance 😎

 

[skoobi]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonsoir JNP 🙂,

ceci marche chez-moi sans problème:

Sub sel()
a = "Feuil1"
b = "Feuil2"
c = "Feuil3"
Sheets(Array(a, b, c)).Select
End Sub

 

[Cousinhub]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonsoir,
à tout hasard :

Sheets(Array(Feuil1.Name, Feuil2.Name, Feuil3.Name)).Select

fonctionne quelque soit le nom de la feuille

Edit : Skoobi, ta solution ne fonctionne pas chez moi 😱

 

[Compte Supprimé 979]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Salut tout le monde 😀

Ou encore une autre solution, pour ne pas s'embêter avec un ARRAY

  Dim Sht As Worksheet
  For Each Sht In ActiveWorkbook.Sheets
    Sht.Select Replace:=False
  Next Sht

Voilà 😉

 

[skoobi]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Edit : Skoobi, ta solution ne fonctionne pas chez moi 😱

Bonsoir bhbh 🙂,

c'est bizarre.......

Sht.Select Replace:=False

Je ne connaissais pas cette subtilité pour select (comme je l'utilise si peut 😀), merci Bruno 🙂.

 

[JNP]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonsoir à tous 🙂,
Merci de toutes ces options (Je teste demain... et je vous dit. Comme a dit Jacques Brel "Mais il est tard, monsieur..."). Plus j'avance et plus je... Les chemins ne sont pas toujours simples...
Bonne soirée à tous 😎

 

[JNP]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonjour à tous 🙂,
Toutes vos solutions fonctionnent, c'est nickel !
Comme je préfère pouvoir avoir la main sur les diférentes possibilités de sélection, je préfère celle de BrunoM45 avec un test pour pouvoir ignorer des feuilles, type :

Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
    If Feuille.Name <> "Feuil2" Then Feuille.Select Replace:=False
Next Feuille

Encore merci et bonne journée 😎
@ Skoobi : moi non plus je n'aime pas vraiment Select, mais comme Bryc veux faire l'impression de plusieurs feuilles dans un seul pdf, c'est une bonne méthode, associée à un PrintOut.

 

[skoobi]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonjour à tous 🙂,
Toutes vos solutions fonctionnent, c'est nickel !
Comme je préfère pouvoir avoir la main sur les diférentes possibilités de sélection, je préfère celle de BrunoM45 avec un test pour pouvoir ignorer des feuilles, type :

Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
    If Feuille.Name <> "Feuil2" Then Feuille.Select Replace:=False
Next Feuille

Encore merci et bonne journée 😎
@ Skoobi : moi non plus je n'aime pas vraiment Select, mais comme Bryc veux faire l'impression de plusieurs feuilles dans un seul pdf, c'est une bonne méthode, associée à un PrintOut.

Re bonjour,

Si peut ne veut pas dire jamais 😉,

bon week-end.

 

[Mathieu Régis]

Re : [VBA] Sélection de plusieurs feuilles distinctes

Bonsoir,
à tout hasard :

Sheets(Array(Feuil1.Name, Feuil2.Name, Feuil3.Name)).Select

fonctionne quelque soit le nom de la feuille

Edit : Skoobi, ta solution ne fonctionne pas chez moi 😱

Bonjour à toutes et tous !
j'ai le même soucis que j'ai résolu par une boucle comme ci-dessous :
'Sélection des onglets semaine
Sheets(Tableau_Onglets_Semaine(0, 1)).Select
For i = 1 To UBound(Tableau_Onglets_Semaine)
Sheets(Tableau_Onglets_Semaine(i, 1)).Select Replace:=False
Next i
Sheets(Tableau_Onglets_Semaine(0, 1)).Activate
Range("A1").Select

mais y a t'il un moyen plus direct et rapide du genre :
Sheets(Array(Tableau_Onglets_Semaine)).Select
Je n'arrive pas à l'écrire avec la bonne syntaxe ??
Pour info, ma variable Tableau_Onglets_Semaine est dimensionnée à (x, 3)
et le nom des feuilles est de 0 à x, 1 !
merci à tous ceux qui me donneront la bonne syntaxe !
Cordialement
Régis

 

[job75]

Bonjour Mathieu Régis, le forum,

Pour info, ma variable Tableau_Onglets_Semaine est dimensionnée à (x, 3)

Il faut transposer la 2ème colonne :

Sub Test()
ReDim Tableau_Onglets_Semaine(2, 3)
Tableau_Onglets_Semaine(0, 1) = "Feuil1"
Tableau_Onglets_Semaine(1, 1) = "Feuil3"
Tableau_Onglets_Semaine(2, 1) = "Feuil4"
Sheets(Application.Transpose(Application.Index(Tableau_Onglets_Semaine, , 2))).Select
End Sub

A+

 

[Mathieu Régis]

Bonjour Mathieu Régis, le forum,

Il faut transposer la 2ème colonne :

Sub Test()
ReDim Tableau_Onglets_Semaine(2, 3)
Tableau_Onglets_Semaine(0, 1) = "Feuil1"
Tableau_Onglets_Semaine(1, 1) = "Feuil3"
Tableau_Onglets_Semaine(2, 1) = "Feuil4"
Sheets(Application.Transpose(Application.Index(Tableau_Onglets_Semaine, , 2))).Select
End Sub

A+

Merci pour cette info mais elle ne convient pas car si je ReDim ma variable, je perds les autres valeurs !
Cordialement

 

[job75]

Bonjour Mathieu Régis,

Bah je vous ai donné le principe, c'est à vous d'adapter la création du tableau.

A+