bonjour @+thierry
tout fonctionne à merveille
sauf que j'ai des feuils masquées
et ça bogue sur elles ,puis-ce qu'elle ne sont pas affichable.
j'ai contournais le probleme en les renommant de deux Y avant leur nom : "yynomdelafeuilmasquée"
il est peu probable à mon avis de trouver qq qui se nomme yygikjtui..;
quoi que...
Prob:
1)si je ne saisis rien dans la MsgBox:
la macro cherche , et bloque sur les feuils masquées !!!
2)idem si je fais annuler !
Voyez-vous une soluce .
merci de vous pencher sur mon soucis
et bonne journée à vous
je recolle ci-dessous la macro:
Option Explicit
sub quelquechosede@+thierry()
Dim Feuille As String
Dim Longueur As Byte
Dim I As Byte
Dim Hit As Byte
Dim Miss As Byte
Feuille = InputBox("Entrer le NOM de l'agent recherché ;" & Chr(13) & "ou ses 3 premières lettres .", " SÉLECTION D'UN AGENT.", "Saisir au moins 3 Caractères !")
Longueur = Len(Feuille)
For I = 1 To Sheets.Count
If UCase(Left(Sheets(I).Name, Longueur)) = UCase(Feuille) Then
Sheets(I).Select
Hit = Hit + 1
Else
Miss = Miss + 1
End If
Next I
If Miss = Sheets.Count Then
MsgBox "Pas d'agent dont le nom commence par : [ " & Feuille & " ]", vbCritical, " Inconnu ."
End If
If Hit > 1 Then
MsgBox "Attention, au moins 2 noms d'agent commence par : [ " & Feuille & " ]", vbInformation, " Saisir un caractère supplémentaire ."
End If
End Sub