A voir également:
- Comment sémectionner plusieurs feuilles entre 2 feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Bruler des feuilles de laurier - Guide
- Regrouper plusieurs feuilles excel en une seule - Guide
- Comment supprimer une feuille sur word - Guide
1 réponse
Bonjour,
un exemple:
un exemple:
Private Sub CommandButton2_Click()
Dim a As Byte, tOngl() As String
Application.ScreenUpdating = False
a = 0
For x = 1 To Worksheets.Count
' tests des deux onglets a ne pas selectionner
If Worksheets(x).Name <> "A" And Worksheets(x).Name <> "B" Then
ReDim Preserve tOngl(a)
tOngl(a) = Worksheets(x).Name
a = a + 1
End If
Next x
'selection onglet(s)
Sheets(tOngl()).Select
Application.ScreenUpdating = True
End Sub