fonction "left"

[annette48]

Bonjour,

J'ai plusieurs onglets dans un classeur, certains ont un nom qui commence par un chiffre (1ft, 5ht, 8gc, 4nl), d'autres par une lettre (fxv, sha, gba, njg).
Je voudrais les différencier par le type du premier caractère (lettre ou chiffre) afin de supprimer tous les onglets dont le premier caractère du nom est un chiffre. Comment dois je faire? il me semble que c'est la fonction left(...,1) qui serait appropriée mais à quoi cette fonction doit elle etre égale pour couvrir tous les chiffres?

 

[gilbert_RGI]

Re : fonction "left"

Bonjour,

J'ai plusieurs onglets dans un classeur, certains ont un nom qui commence par un chiffre (1ft, 5ht, 8gc, 4nl), d'autres par une lettre (fxv, sha, gba, njg).
Je voudrais les différencier par le type du premier caractère (lettre ou chiffre) afin de supprimer tous les onglets dont le premier caractère du nom est un chiffre. Comment dois je faire? il me semble que c'est la fonction left(...,1) qui serait appropriée mais à quoi cette fonction doit elle etre égale pour couvrir tous les chiffres?

Bonsoir Annette

essaie ce code à mettre dans un module standard

Sub TrierOnglets()
Dim Feuille
Dim Compteur As Integer
For Each Feuille In Worksheets
For Compteur = 1 To Worksheets.Count - 1
If Worksheets(Compteur).Name > Worksheets(Compteur + 1).Name Then
Worksheets(Compteur).Move After:=Worksheets(Compteur + 1)
End If
Next
Next
End Sub

Cdlt

Gilbert_RGI

 

[alexga78]

Re : fonction "left"

Bonsoir annette48, le forum

un essai à tester sur une copie du fichier

Option Explicit
Dim ws As Worksheet
Sub DELETE_ONGLET()
For Each ws In ActiveWorkbook.Worksheets
Application.DisplayAlerts = False
If IsNumeric(Left(ws.Name, 1)) Then
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End Sub

Bonne soirée