Discussion :

[patricktoulon]

bonjour a tous

comme dis le titre de mon post je cherche a faire une macro

qui me selectionneraie les feuilles sous conditions c'est a dire
il y a 3 premiere feuille nommée" donnee,base,baseindiv"

j'ai 12 feuille qui porte un nom recupéré dans une feuille nomé base dans plusieur cellule



en fait je voudrais faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim i as variant
e=4
for i =1 to sheets.count
 
if left(sheets(i).name,7) ="F,INDIV" then
 sendkeys vbcontrol 
sheets(i).select 
end if
next   
ActiveWindow.SelectedSheets.PrintPreview

mais ca ne fonctionne q'ua moitié je m explique

sa les selectionne bien mais ca mouvre autant de page d'apercu que de feuilles hors moi ce que je voudrais comme resultat cest c'est le resultat que l on obtien avec ca

Code :

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

1
2
3
4
5
6
 
 
 
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets("Feuil1").Activate
    ActiveWindow.SelectedSheets.PrintPreview

si quelqu'un aurais une idée sa serait sympa qu'il la partage

merci d'avance

[Qwazerty]

Salut
Peut etre comme ca

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
Dim MesFeuilles() As String
Dim NbFeuil As Integer
 
Dim i As Variant
'e = 4'?
NbFeuil = -1
For i = 1 To Sheets.Count
 
If Left(Sheets(i).Name, 7) = "F,INDIV" Then
 'SendKeys vbcontrol '?
    NbFeuil = NbFeuil + 1
    ReDim Preserve MesFeuilles(NbFeuil)
    MesFeuilles(NbFeuil) = Sheets(i).Name
'Sheets(i).Select
End If
Next
Sheets(MesFeuilles).PrintPreview

A++
Qwaz

[patricktoulon]

bonjour et merci qwazerty
je vais essayer ca

je reviend si ca fonctionne pas


merci a toi

[patricktoulon]

bonjour Quazerty

je te remerci c'est impec trop de la balle je met un resolu

merci encore a toi
trop top!!!!