Recherche et selection de feuille

Résolu/Fermé

Fanaouer Messages postés 12 Date d'inscription jeudi 18 septembre 2014 Statut Membre Dernière intervention 23 août 2018 - 26 sept. 2014 à 11:40
Fanaouer Messages postés 12 Date d'inscription jeudi 18 septembre 2014 Statut Membre Dernière intervention 23 août 2018 - 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

A voir également:

Recherche et selection de feuille
Feuille de pointage excel - Télécharger - Tableur
Recherche automatique des chaînes ne fonctionne pas - Guide
Rechercher ou entrer l'adresse mm - recherche google - Guide
Recherche de personne par nom et prénom - Forum Mail
Comment supprimer une feuille sur word - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 240
26 sept. 2014 à 15:31

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 sept. 2014 à 15:32

Salut,

Une fois de plus, rien à dire...

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 240
26 sept. 2014 à 15:51

on était bien synchros ;-)
J'étais parti sur la même méthode que toi avant de penser à procéder ainsi.
eric

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 sept. 2014 à 15:58

Rien que pour ça je te remet un second +1.
Parce que je le peux et que tu le vaux bien...

Fanaouer Messages postés 12 Date d'inscription jeudi 18 septembre 2014 Statut Membre Dernière intervention 23 août 2018
16 oct. 2014 à 13:41

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??

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
16 oct. 2014 à 14:20

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

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
26 sept. 2014 à 15:31

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Feuille de score belote

recherche à partir de la barre d'adresse

feuille excel de gestion belote

comment trouver une personne sur facebook