Discussion :

[the_djjd]

Bonjour,

Je voudrais savoir si il est possible de compter le nombre de feuille commancant par : feuil.

Faut-il adapter :

Code :

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

nb feuil = Sheets.Count

?

Je ne souhaite pas compter les feuilles que j'ai renommées.

[zandru]

Bonjour,

pour ne compter que les feuilles commençant par "feuil", il faut parcourir tes feuilles regarder dans le nom.
Ceci devrait t'aider :

Code :

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

1
2
3
4
5
6
Dim nbf As Integer
nbf = 0
Dim feuille As Worksheet
For Each feuille In Worksheets
    If StrComp(Left(feuille.Name, 5), "feuil", vbTextCompare) = 0 Then nbf = nbf + 1
Next feuille

a adapter si besoin

[the_djjd]

Tu peux pas imaginer comme ca va me faciliter la vie ce mot.

Encore merci.

Autre petit problème qui vient d'apparaitre :

Lorsque je veux renommer une feuille à partir d'une cellule contenant une date il ne veux pas.

Comment puis je faire pour que le nom de la feuille contienne la date de la cellule.

PS : la cellule contient la formule =aujourdhui()

[zandru]

Pour des problèmes différents, fait des discussions différentes

transforme ta date en string avec

Code :

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

Cstr