Discussion :

[ALEX80800]

Bonjour,

Je me lance avec Vba et j'ai essayé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub AffichOngletRetraite()
Dim sh As Worksheet
Dim i As Long
For Each sh In ActiveWorkbook.Sheets
If InStr(sh.CodeName, "*retraité") Then i = i + 1
Next
MsgBox i
 
End Sub

Il me retourne 0 alors qu'il y a 12 feuilles qui a pour de CodeName retraité sur un total de 38 feuilles.

J'ai même essayé avec la méthode comptage For Next, il me retourne 1

Et même si je mets une * au bout de "retraité" soit "*retraité*", il me retourne 0

Je ne vois pas ce qui bloque
Merci de votre aide

[gFZT82]

Bonjour,

S'il s'agit bien du CodeName

Code :

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

If InStr(sh.CodeName, "retraité") Then i = i + 1

S'il s'agit du nom de la feuille

Code :

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

If InStr(sh.Name, "retraité") Then i = i + 1

Cordialement.

[ALEX80800]

Merci de te réponse Gfzt82,

Tout d'abord ce n'est pas XL2013 mais XL2003

Effectivement c'est Name est pas CodeName

Et pour Finir

Le mot retraité comprte une majuscule "R"

Je ne pensé pas que la Casse était importante.

Mais j'apprends. Je veux absolument maîtriser Vba.

C'est l'usage qui le permettra


Merci encore une fois