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