Erreur Incompatibilité de type [Résolu/Fermé]

Signaler
Messages postés
58
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
17 juin 2016
-
Messages postés
58
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
17 juin 2016
-
Bonjour,

Je vous explique le contexte brièvement : J'ai un classeur Excel avec plusieurs feuilles et je souhaite grâce à une fonction compter le nombre de feuilles qui commence par "P". Cela me servira à faire une boucle pour plus tard.

Code :

Public Function NbFeuillefichierBrut() As Integer
Dim Sh As Worksheet
Dim I As Integer

For Each Sh In ThisWorkbook.Worksheets
If (Left(Sh.Name, "P*")) Then
I = I + 1
End if
Next Sh

NbFeuillefichierBrut = I '--> Line 261

End Function

Le but est de faire défiler les feuilles du classeur et d'ajouter 1 à I pour chaque feuille qui commence par "P". L'erreur est la suivante : "Erreur 13 : Incompatibilité de type".

Je pense pourtant avoir bien déclarer mes variables.

Si quelqu'un à une idée !

1 réponse

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 458
Bonjour,

If Left(Sh.Name,1) = "P" Then 

Ainsi cela devrait mieux aller.
Messages postés
58
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
17 juin 2016
20
En effet c'est mieux comme ça merci !