comment exclu les feuille nommees en minuscule d'une lisbox

[Evelynetfrancois]

bonjours a toutes et tous

je joins un dossier extra light pour etre plus clair

je cherche a exclure de ma lisbox les feuilles qui sont nommées en police minuscule

est ce possible ???
merci d'avance pour vos sujetions
bonne journée
E et F

 

[Michel_M]

Bonjour E&F, forum

Ci dessous une piste de solution à adapter à ton pb

Sub tester_miniscules()
Dim texte As String, lettre As String * 1
Dim cptr As Byte
texte = Range("A1")
For cptr = 1 To Len(texte)
lettre = Mid(texte, cptr, 1)
If Asc(lettre) > 90 Then
MsgBox "le texte n'est pas entièrement en majuscule"
Exit Sub
End If
cptr = cptr + 1
Next
End Sub

Je te joins une table de caractères pour vérifier

Bon fin d'après midi

Michel

 

[Evelynetfrancois]

Je ne vois pas trop bien comment adapter a mon cas .........................
cependant je te remerci pour ta piste
bon jeudi
E et F

 

[Jean-Jacques]

Bonsoir E&F, Michel_M,

En fait Michel_M avait le début de la solution
Chapeau pour le code E&F c'est d'un niveau que j'espère atteindre un jour....mais j'ai réussi à y intégrer la vérification du code ascii auquel fait allusion Michel_M et donc la sélection des feuilles qui t'intéressent...et ça marche ( par contre il ne vérifie pour l'instant que le type de caractère de la première lettre du nom de l'onglet).
Au plaisir d'une nouvelle rencontre.
JJ

 

[Jean-Jacques]

re-bonsoir,
J'ai continué pour étendre la vérification à tous les caractères des onglets.
Ci-joint le fichier
cordialement.
JJ

 

[Evelynetfrancois]

BONSOIR Jean Jacques / Mchel

c'est bien ca !!!
c'est parfait
je te Remerci beaucoup pour ce coup de main qui me solutionne beaucoup de problemes
je ne suis pas l'auteur de mes codes , mais ils sont "fabriqués" avec l'aide enorme trouve sur XLD et un peu de moi .............
et j'en profite une fois de plus pour TE remercier ainsi que TOUS les VBAistes de ce forum
bonne soirée
E et F