Sujet Précédent Sujet Suivant

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:

2 réponses

Réponse 1 / 2
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
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
3
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
26 sept. 2014 à 15:32
Salut,

Une fois de plus, rien à dire...
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
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
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
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...
0
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??
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
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
0
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 744
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
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
je recherche une personne au québec
vanessa90 -
ludi -

13 réponses
feuille excel de gestion belote
SiFaSiLa -
frank -

2 réponses
comment trouver une personne sur facebook
samir8013 -
iceman94260 -

3 réponses