Discussion :

[Onurb31]

Bonjour à tous,

voilà mon pb ... j'ai un classeur avec de nombreuses feuilles et je souhaite sélectionner (avant impression) seulement les feuilles dont le nom commence par "R1 TOT" (par ex)

J'ai cherché sur le net, et pris ce bout de macro, mais mes connaissances ne me permettent pas d'aboutir ...

Sachant que à terme, à la place de R1 TOT, je souhaiterais sélectionner mes feuilles avec l'association de 2 variables qui pourront être R1, R2, R3, etc, et TOT, TAT, TIT, etc ...

Merci d'avance de vos conseils

Onurb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub selection()
 
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Sheets
    If Left(Feuille, 6).Name = "R1 TOT" Then Feuille.Select Replace:=False
Next Feuille
End
 
End Sub

[Invité]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub Selection()
 
Dim Feuille As Worksheet
Dim Liste1 As Variant, Liste2 As Variant
Dim I As Integer, J As Integer
Dim NomOnglet As String
 
 
    Liste1 = Array("R1", "R2", "R3"):     Liste2 = Array("TOT", "TAT", "TIT")
 
    For I = LBound(Liste1) To UBound(Liste1)
         For J = LBound(Liste2) To UBound(Liste2)
             NomOnglet = Liste1(I) & " " & Liste2(J)
             For Each Feuille In ActiveWorkbook.Sheets
                  If Left(Feuille.Name, 6) = NomOnglet Then Feuille.Select Replace:=False
             Next Feuille
          Next J
     Next I
 
End Sub

[Onurb31]

Merci Eric de ta réponse, mais je n'ai pas du être clair ...

Je vais récupérer une variable dans la cell A1, qui va être R1, R2 ou R3 ou autre chose.
puis une autre variable dans A2 qui être TOT , TAT, ou autre chose.

Je souhaite sélectionner toutes les feuilles commençant par (par exemple) "R1 TOT", ou "R3 TUT", etc ... suivant mes 2 variables.

Du coup, je ne comprends pas bien tes listes ?? Je ne pense pas que ce soit utile, ou je ne comprends pas ... ?

Onurb

[Invité]

Avec ce que tu écris, tu n'auras toujours qu'un seul onglet sélectionné, donc c'est vrai je n'ai pas bien compris.
En ce qui concerne la modification, il te suffit de prendre les valeurs dans A1 et A2 pour former le nom de ton onglet et de supprimer les boucles.

[Pierre Fauconnier]

Salut.

Sur base de valeurs placées en A1 et B1 d'une feuille nommée Test, voici comment tu pourrais coder la chose.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub SelectSheets()
  Dim Name As String
  Dim sh As Worksheet
  Dim SheetAlreadySelected As Boolean
 
  Name = Worksheets("test").Range("a1").Value & " " & Worksheets("test").Range("b1").Value & "*"
  For Each sh In Worksheets
    If UCase(sh.Name) Like Name Then
      If Not SheetAlreadySelected Then
        sh.Select
        SheetAlreadySelected = True
      Else
        sh.Select Replace:=False
      End If
    End If
  Next
End Sub

Le problème vient de la première feuille car tu ne peux pas, dès le départ, utiliser Replace:=False puisque tu ne sais pas dire, au départ, si la feuille active correspond à ton choix. C'est pourquoi je passe par le booléen SheetAlreadySelected qui me permet de savoir si je passe sur la première feuille qui correspond à la recherche ou sur une des suivantes à sélectionner.

[Onurb31]

Merci Pierre,

on y est presque ... j'avais vais ça "manuellement" (à la souris) en 150 lignes .. alors qu'avec 10 ça peut être suffisant !

c'est exactement ça que je cherchais à faire, je n'arrive juste pas à faire un apercu avant impression ....-> "Sheets(????).PrintPreview"

Je ne vois pas ce qu'il faut mettre en ???? (c'est dire mon niveau ..)

Merci d'avance de votre réponse, ensuite, je passe en résolu ... et j'applaudi des 2 mains ...

B.

C'est en pratiquant, que je vais arriver à pratiquer

[Pierre Fauconnier]

Lorsque tes feuilles sont sélectionnées, tu peux utiliser thisworkbook.PrintPreview

[Onurb31]

Voilà, ce qu'il me manquait !!

Merci à tous