Discussion :

[visto94]

Bonjour le forum!

J'aimerais savoir comment faire pour compter les onglets d'un classeur.
Sachant que je souhaite prendre en compte que les onglets qui ont un nom qui commence par un numéro.

J'ai quelque petite piste, je pense qu'il va falloir que j'utilise "nb = Worksheets.Count" et surtout je pense qu'il faut utiliser les expression régulière..

Je vous donne quelque nom d'onglets comme exemple:

11 - E-2000
14 - Ramsès PS

---> voila les onglets que je veux compter


Validation
Facturation March 2010

---> et voila ceux que je ne veux pas prendre en compte!

En vous remerciant pour aide.
Julien

[jojo86]

Salut,

En supposant que les nom de feuilles soient bien tous structurés de la même manière a noter :

11 - TEXTE
NUMERO - TEXTE

Voici ce que tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub CompterSheets()
Dim PositionTiret, i As Integer
Dim Compteur As Integer
Dim Debut As String
Compteur = 0
For i = 1 To Sheets.Count 'Pour i = 1 jusquau nombre total de Feuilles.
    PositionTiret = InStr(1, Sheets(i).Name, "-") 'Recherche du tiret
    If PositionTiret > 0 Then ' Si il y a un tiret alors
        Debut = Mid(Sheets(i).Name, 1, PositionTiret - 1) 'On Coupe le nom de la feuille avant le tiret pour n'avoir que le numéro
        If IsNumeric(Debut) Then ' si ce qui est avant le tiret est numérique alors
            Compteur = Compteur + 1 'On incrémente le compteur !
        End If
    End If
Next i
MsgBox "Nombre de feuille commençant par un nombre = " & CStr(i)
End Sub

Voila !

[mayekeul]

bonjour

comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
function compter_feuille_avec_chiffre_dans_le_nom_mais_on_peux_faire_plus_court_comme_nom_de_fonction() as interger
dim Sh as worksheet
dim I as integer
 
for each sh in thisworkbook.worksheets
    if isnumeric(left(sh.name,1)) then i=i+1
next sh
 
compter_feuille_avec_chiffre_dans_le_nom_mais_on_peux_faire_plus_court_comme_nom_de_fonction=i
 
end function

[visto94]

Merci beaucoup cela fonctionne parfaitement!