Recherche et selection de feuille
Résolu
Fanaouer
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
Fanaouer Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
Fanaouer Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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
- Feuille de pointage - Télécharger - Tableur
- Recherche et remplacer word - Guide
- Recherche photo - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
2 réponses
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