Nombre d'onglet

Le
Lulu la Nantaise
Bonjour à toutes et à tous,
Je crois qu'aujourd'hui je très vais souvent solliciter votre aide ;-)
Dans un classeur, j'ai n onglets s'appelant Site N°01, Site N°02, Site
N°n
1 - Je désirerais savoir à tout moment le nombre de feuille s'appelant Site
N°xx (en fait le nbre de feuilles commençant par Site N°)
2 - Lorsque je supprime une feuille Site N°, elles se renumérotent
automatiquement de 1 à n-1
3 - Je ne puisse pas supprimer toutes les feuilles (1 doit rester) et si
tous les onglets sont sélectionnés, c'est le "Site N°01" qui reste.
Merci de votre aide précieuse,
Lulu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #5232641
Bonjour,

Pour dénombrer les feuilles nommées Site..., tu peux utiliser cette sub :

Sub nbsites()
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 4) = "Site" Then
z = z + 1
End If
Next i
MsgBox "il y a " & z & " feuilles ''Site''"
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Lulu la Nantaise" news:
Bonjour à toutes et à tous,
Je crois qu'aujourd'hui je très vais souvent solliciter votre aide ;-)
Dans un classeur, j'ai n onglets s'appelant Site N°01, Site N°02, ... Site
N°n
1 - Je désirerais savoir à tout moment le nombre de feuille s'appelant
Site N°xx (en fait le nbre de feuilles commençant par Site N°)
2 - Lorsque je supprime une feuille Site N°, elles se renumérotent
automatiquement de 1 à n-1
3 - Je ne puisse pas supprimer toutes les feuilles (1 doit rester) et si
tous les onglets sont sélectionnés, c'est le "Site N°01" qui reste.
Merci de votre aide précieuse,
Lulu



Publicité
Poster une réponse
Anonyme