MsgBox avec liste des noms de feuilles

JNP

XLDnaute Barbatruc

• 1 Février 2010

• #2

Re : MsgBox avec liste des noms de feuilles

Bonjour altefqhatre 🙂,

Code:

Sub AffichageFeuilles()
Dim Feuille As Worksheet, Message As String
For Each Feuille In ThisWorkbook.Worksheets
Message = Message & Feuille.Name & vbCrLf
Next
MsgBox Message
End Sub

Bonne journée 😎

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 1 Février 2010

• #3

Re : MsgBox avec liste des noms de feuilles

Salut altefqhatre, le Forum

Code:

Option Explicit
Sub EssAi()

Dim Ws As Worksheet, Mes As String
For Each Ws In Worksheets
     Mes = Mes & Ws.Name & Chr(10)
Next Ws
MsgBox Mes
End Sub

à mettre dans un Module

EDITION: Salut Jean-Noël 🙂 désolé pour ma lenteur😱 Amettresurlecomptedudécalagecitroné 🙄
Bonne Journé

 

Dernière édition: 1 Février 2010

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Février 2010

• #4

Re : MsgBox avec liste des noms de feuilles

Salut Dull 🙂,

Dull à dit:

EDITION: Salut Jean-Noël 🙂 désolé pour ma lenteur😱 Amettresurlecomptedudécalagecitroné 🙄

Cliquez pour agrandir...

Marapiditéestàmettresurlecomptedes20cmdeneige 😛
Le bonjour chez toi 😎

 

Vote positif 0 Vote négatif

A

altefqhatre

Guest

• 1 Février 2010

• #5

Re : MsgBox avec liste des noms de feuilles

Parfait merci beaucoup 😀

Par contre, je profite, est-ce qu'il est possible d'exclure les deux première feuilles dans cette liste?

Et puis, puis-je ajouter une puce devant chaque nom et les répartir sur par exemple deux colonnes?

Merci en tout cas pour le coup de pouce ^^

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 1 Février 2010

• #6

Re : MsgBox avec liste des noms de feuilles

Re le Fil
JNP 😀

Vantard!!!😛 je te donne 10° des 31° d'ici + un Grog chaud 😱 contre 10 cm de poudreuse (j'enrêve) 🙄


EDITH: J'avais pas vu la question

essaye ce code à modifier selon ton fichier

Code:

Option Explicit
Sub EssAi()

Dim Ws As Worksheet, Mes As String
For Each Ws In Worksheets
    [B]If Ws.Name > "Feuil2" Then[/B]
        Mes = Mes & Ws.Name & Chr(10)
    [B]End If[/B]
Next Ws
MsgBox Mes
End Sub

Pour la Puce... là je passe la main à notre cigogne enneigé 😛

Bonne Journée à tous

 

Dernière édition: 1 Février 2010

Vote positif 0 Vote négatif

A

altefqhatre

Guest

• 1 Février 2010

• #7

Re : MsgBox avec liste des noms de feuilles

Re Dull 🙂

Merci mais là enfait le souci est que la msgbox n'affiche que les feuilles qui ont le nom qui commence par une lettre après F 😛

Donc les feuilles "Arbre", "bonbon", "caca" etc... ne sont pas prises dans la liste ^^

De plus, si tu veux j'aimerais lister uniquement les feuilles à partir de la troisième, les deux première ne doivent pas être dans la liste, c'est possible?

Merci!!

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 1 Février 2010

• #8

Re : MsgBox avec liste des noms de feuilles

altefqhatre à dit:

Re Dull 🙂

Merci mais là enfait le souci est que la msgbox n'affiche que les feuilles qui ont le nom qui commence par une lettre après F 😛

Donc les feuilles "Arbre", "bonbon", "caca" etc... ne sont pas prises dans la liste ^^

De plus, si tu veux j'aimerais lister uniquement les feuilles à partir de la troisième, les deux première ne doivent pas être dans la liste, c'est possible?

Merci!!

Cliquez pour agrandir...

Bonjour,
Un petit essai (du forum)

Pour afficher les feuilles 3 à 5 par exemple:
Dim i As Byte
'pour sélectionner les feuilles 3 à 5 visibles sur l'USF
For i = 3 To 5
Me.ListBox1.AddItem Sheets(i).Name
Next i
End Sub

A+

 

Pièces jointes

• Menu.xls

  31.5 KB · Affichages: 71
• Menu.xls

  31.5 KB · Affichages: 76
• Menu.xls

  31.5 KB · Affichages: 78

Dernière édition: 1 Février 2010

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 1 Février 2010

• #9

Re : MsgBox avec liste des noms de feuilles

Re le Fil
Salut degap05🙂

si tu n'a pas changé le CodeName des Feuilles essaye ce code

Code:

Option Explicit
Sub EssAi()

Dim Ws As Worksheet, Mes As String
For Each Ws In Worksheets
    If[B] Ws.CodeName[/B] > "Feuil2" Then
        Mes = Mes & Ws.Name & Chr(10)
    End If
Next Ws
MsgBox Mes
End Sub

Il y a certainement d'autres solutions mais je dois me déconnecter il est tard ici 😀

Bonne Journée

 

Pièces jointes

• altefqhatre.zip

  11.3 KB · Affichages: 43

Dernière édition: 1 Février 2010

Vote positif 0 Vote négatif

A

altefqhatre

Guest

• 1 Février 2010

• #10

Re : MsgBox avec liste des noms de feuilles

C'est tout bon j'ai trouvé la solution 😀

Code:

Dim ws As Worksheet, Mes As String
For Each ws In Worksheets

    If ws.Name <> "Test" And ws.Name <> "Test2" Then
    
     Mes = Mes & ws.Name & Chr(13) & Chr(149)
     Else
    End If
Next ws
MsgBox "Les feuilles du classeur sont les suivantes: & Chr(13) & Chr(13) & Chr(149) & _
        Mes, vbInformation

Par contre en mettant le "chr(149" après le retour à la ligne ça fait qu'après la dernière feuille de la liste j'ai une puce et pas de texte devant :-(

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Février 2010

• #11

Re : MsgBox avec liste des noms de feuilles

Re 🙂,

Code:

Mes = Mes[COLOR=red] & Chr(149) & " " & ws.Name &[/COLOR] Chr(13)

devrait le faire...
@ Dull : jeveux bien t'envoyer un paquet, mais j'ai peur que ça fonde en route 😛...
Bonne fin de journée 😎

 

Vote positif 0 Vote négatif

A

altefqhatre

Guest

• 2 Février 2010

• #12

Re : MsgBox avec liste des noms de feuilles

Merci beaucoup tout le monde ça marche impeccable 🙂

a++

 

Vote positif 0 Vote négatif