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