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 - 16 oct. 2014 à 15:35

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

Afficher la suite

2 réponses

Réponse 1 / 2

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
Bonjour,

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
3
1. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Salut,
  
  Une fois de plus, rien à dire...
  
  0
2. eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
  
  on était bien synchros ;-)
  J'étais parti sur la même méthode que toi avant de penser à procéder ainsi.
  eric
  
  0
3. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Rien que pour ça je te remet un second +1.
  Parce que je le peux et que tu le vaux bien...
  
  0
4. Fanaouer Messages postés 12 Date d'inscription Statut Membre Dernière intervention
  
  Merci pour ta réponse et désolé de répondre que maintenant mais comment j'utilise le code je l'ai attribué a un bouton et rien ne se passe??
  
  0
5. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  Bonjour,
  
  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
  
  0

pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773

Bonjour,

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

Recherche et selection de feuille

2 réponses

Discussions similaires

Newsletters