MsgBox avec liste des noms de feuilles

[altefqhatre]

Salut,

Je vous explique le souci.

Depuis un moment je cherche à lister le nom de toutes les feuilles d'un classeur dans une seule MsgBox... C'est possible ou pas?

Les afficher les unes après les autres c'est bon, mais toutes à la fois j'arrive pas à mettre la main sur le code :-(

Si qqun a une idée c'est avec plaisir :-D

Meric beaucoup!

a+

 

[JNP]

Re : MsgBox avec liste des noms de feuilles

Bonjour altefqhatre 🙂,

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 😎

 

[Dull]

Re : MsgBox avec liste des noms de feuilles

Salut altefqhatre, le Forum

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é

 

[JNP]

Re : MsgBox avec liste des noms de feuilles

Salut Dull 🙂,

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

Marapiditéestàmettresurlecomptedes20cmdeneige 😛
Le bonjour chez toi 😎

 

[altefqhatre]

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

 

[Dull]

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

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

 

[altefqhatre]

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

 

[degap05]

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

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+

 

[Dull]

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

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

 

[altefqhatre]

Re : MsgBox avec liste des noms de feuilles

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

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 :-(

 

[JNP]

Re : MsgBox avec liste des noms de feuilles

Re 🙂,

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 😎

 

[altefqhatre]

Re : MsgBox avec liste des noms de feuilles

Merci beaucoup tout le monde ça marche impeccable 🙂

a++