Comment sémectionner plusieurs feuilles entre 2 feuilles
reno421
Messages postés
47
Statut
Membre
-
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17414 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voilà, j'aimerais pouvoir sélectionner des feuilles excels entre 2 autres feuilles.
Pour info, les feuilles ne sont pas classées par ordre alphabétique mais par zone géographiques. Le nombre de feuilles est variable.
Est-ce réalisable par macro ?
Voilà, j'aimerais pouvoir sélectionner des feuilles excels entre 2 autres feuilles.
Pour info, les feuilles ne sont pas classées par ordre alphabétique mais par zone géographiques. Le nombre de feuilles est variable.
Est-ce réalisable par macro ?
A voir également:
- Comment sémectionner plusieurs feuilles entre 2 feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Bruler des feuilles de laurier - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- 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
