Compter les onglets qui contiennent...

[lerogertroutman]

Bonjour,

je souhaite comptabiliser les feuilles de mon document qui contiennent le mot "Partie", sachant qu'elle s'appellent Partie 1, Partie 2, etc.

Je débute en vba, et mon code ne fonctionne pas...

Sub compterOngletsPartie()

Dim x As Integer
Dim j As Integer
Dim s As String
j = 0

For Each Worksheet In Worksheets

If Worksheet.Name = ("Partie*") Then
   j = j + 1
Else
    j = j - 1
End If

Next

If j > 1 Then
s = "s"
Else
s = ""
End If

MsgBox "Il y a " & j & " feuille" & s & " CIP"

End Sub

Une idée ?

Est-il possible d'utiliser .count ici ? J'ai essayé, mais sans succès...

Le Roger

 

[Pierrot93]

Re : Compter les onglets qui contiennent...

Bonjour Roger,

essaye ainsi, pour compter les feuilles qui commencent par "Partie", attention tu utilsais "Worksheet" comme variable alors que c'est un mot réservé vba, pas trop conseillé. Pas trop compris le "else j = j-1"

Dim ws As Worksheet, j As Byte
For Each ws In Worksheets
    If ws.Name Like ("Partie*") Then j = j + 1
Next

bon après midi
@+

 

[Dull]

Re : Compter les onglets qui contiennent...

salut lerogertroutman, Le Forum

essaye comme cela

Sub compterOngletsPartie()

Dim x As Integer
Dim j As Integer
Dim s As String
j = 0

For Each Worksheet In Worksheets

If Worksheet.Name [COLOR=Red][B]Like [/B][/COLOR]"Partie*" Then
   j = j + 1
Else
    j = j - 1
End If

Next

If j > 1 Then
s = "s"
Else
s = ""
End If

MsgBox "Il y a " & j & " feuille" & s & " CIP"

End Sub

EDITION: Salut Pierrot toujours ce fichu décalage horaire 🙂

Bonne Journée

 

[lerogertroutman]

Re : Compter les onglets qui contiennent...

Bonjour Pierrot et Dull,

Merci à tous les deux, et bien vu Pierrot, le j - 1 n'a pas lieu d'être... Comme il me renvoyait des valeurs bizarres, j'ai voulu faire des tests et je n'ai pas tout rectifié 😛

C'est donc Like qu'il faut utiliser, mais pourquoi est-ce que = ne fonctionne pas ?

Bonne après midi à tous les deux,

Le Roger

 

[Pierrot93]

Re : Compter les onglets qui contiennent...

Re Roger, Dull😉

profitons du fuseau horaire favorable... "like" va faire une comparaison de chaine, alors que "=" recherchera une égalité de valeur me semble t-il...

@+

 

[lerogertroutman]

Re : Compter les onglets qui contiennent...

je note ça 😉

Gracias !
Bonne journée,

Le Roger