J'aimerai savoir comment conserver une selection de plusieurs feuilles en
VBA
modifier des feuilles une a une (pied de page...) Retrouver cette sélection
Merci beaucoup Michael
Hervé
Bonsoir Michael, Teste si cela convient à ce que tu veux. Il faut que tu sache qu'il n'est absolument pas nécessaire qu'une feuille soit sélectionnée pour travailler avec, tu peux très bien y faire référence sans pour autant la sélectionner.
Sub SelectFeuilles() Dim Tbl() As Worksheet Dim I As Integer
'stocke dans un tableau la référence aux feuilles 'sélectionnées With ActiveWindow For I = 1 To .SelectedSheets.Count ReDim Preserve Tbl(1 To I) Set Tbl(I) = .SelectedSheets(I) Next I End With '*** 'ici la manipulation de tes feuilles... Worksheets("feuil1").Select 'etc... '***
're-sélection des feuilles For I = 1 To UBound(Tbl) 'au cas où une feuille ne fait pas partie 'de la sélection d'origine If I = 1 Then Tbl(I).Select (True) Else Tbl(I).Select (False) End If Next I
Erase Tbl End Sub
Hervé.
"Michael" a écrit dans le message news: #
Bonjour,
J'aimerai savoir comment conserver une selection de plusieurs feuilles manipuler des feuilles une a une Retrouver cette sélection
Merci beaucoup Michael
Bonsoir Michael,
Teste si cela convient à ce que tu veux. Il faut que tu sache qu'il n'est
absolument pas nécessaire qu'une feuille soit sélectionnée pour travailler
avec, tu peux très bien y faire référence sans pour autant la sélectionner.
Sub SelectFeuilles()
Dim Tbl() As Worksheet
Dim I As Integer
'stocke dans un tableau la référence aux feuilles
'sélectionnées
With ActiveWindow
For I = 1 To .SelectedSheets.Count
ReDim Preserve Tbl(1 To I)
Set Tbl(I) = .SelectedSheets(I)
Next I
End With
'***
'ici la manipulation de tes feuilles...
Worksheets("feuil1").Select
'etc...
'***
're-sélection des feuilles
For I = 1 To UBound(Tbl)
'au cas où une feuille ne fait pas partie
'de la sélection d'origine
If I = 1 Then
Tbl(I).Select (True)
Else
Tbl(I).Select (False)
End If
Next I
Erase Tbl
End Sub
Hervé.
"Michael" <bas_michael@yahoo.fr> a écrit dans le message news:
#jOdtarhFHA.3692@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'aimerai savoir comment conserver une selection de plusieurs feuilles
manipuler des feuilles une a une
Retrouver cette sélection
Bonsoir Michael, Teste si cela convient à ce que tu veux. Il faut que tu sache qu'il n'est absolument pas nécessaire qu'une feuille soit sélectionnée pour travailler avec, tu peux très bien y faire référence sans pour autant la sélectionner.
Sub SelectFeuilles() Dim Tbl() As Worksheet Dim I As Integer
'stocke dans un tableau la référence aux feuilles 'sélectionnées With ActiveWindow For I = 1 To .SelectedSheets.Count ReDim Preserve Tbl(1 To I) Set Tbl(I) = .SelectedSheets(I) Next I End With '*** 'ici la manipulation de tes feuilles... Worksheets("feuil1").Select 'etc... '***
're-sélection des feuilles For I = 1 To UBound(Tbl) 'au cas où une feuille ne fait pas partie 'de la sélection d'origine If I = 1 Then Tbl(I).Select (True) Else Tbl(I).Select (False) End If Next I
Erase Tbl End Sub
Hervé.
"Michael" a écrit dans le message news: #
Bonjour,
J'aimerai savoir comment conserver une selection de plusieurs feuilles manipuler des feuilles une a une Retrouver cette sélection
Merci beaucoup Michael
Michael
Encore un grand merci pour la clarté et la rapidité de la réponse. Rien a dire sinon que c'est exactement ce qu'il me fallait. Bravo !
Bonne continuation. Michael
Encore un grand merci pour la clarté et la rapidité de la réponse.
Rien a dire sinon que c'est exactement ce qu'il me fallait. Bravo !
