Recherche et selection de feuille
Résolu
Fanaouer
Messages postés
12
Statut
Membre
-
Fanaouer Messages postés 12 Statut Membre -
Fanaouer Messages postés 12 Statut Membre -
Bonjour,
Hello,
Alors voici ma question j'ai chercher partout et j'ai rien trouver.
Je voudrais à l'aide d'une macro rechercher et sélectionné une par une les feuilles qui se trouve entre deux feuilles.
C'est à dire j'ai une feuille avec le nom DEBUT après j'ai plusieurs feuilles et au bout j'ai une feuille FIN.
Comment faire pour sélectionné toutes les feuilles entre ces deux la?
merci pour votre réponse
Hello,
Alors voici ma question j'ai chercher partout et j'ai rien trouver.
Je voudrais à l'aide d'une macro rechercher et sélectionné une par une les feuilles qui se trouve entre deux feuilles.
C'est à dire j'ai une feuille avec le nom DEBUT après j'ai plusieurs feuilles et au bout j'ai une feuille FIN.
Comment faire pour sélectionné toutes les feuilles entre ces deux la?
merci pour votre réponse
A voir également:
- Recherche et selection de feuille
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Bruler feuille de laurier - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Feuille a5 - Guide
2 réponses
Bonjour,
Pour les balayer :
eric
Pour les balayer :
Dim i As Long
For i = Sheets("Debut").Index + 1 To Sheets("Fin").Index - 1
Debug.Print Sheets(i).Name
Next i
eric
Bonjour,
Essaie comme ceci :
Essaie comme ceci :
Sub Test()
Dim Ws As Worksheet, debut As Boolean, fin As Boolean
debut = False
fin = False
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "DEBUT" Then debut = True
If Ws.Name = "FIN" Then fin = True
If debut = True And Not fin = True Then
MsgBox Ws.Name & " " & Ws.Index
End If
Next
End Sub
Une fois de plus, rien à dire...
J'étais parti sur la même méthode que toi avant de penser à procéder ainsi.
eric
Parce que je le peux et que tu le vaux bien...
Tout était dit, mais...
Dim i As Long For i = Sheets("Debut").Index + 1 To Sheets("Fin").Index - 1 Sheets(Sheets(i).Name).Select MsgBox "Vous êtes sur la feuille : " & Sheets(i).Name Next i