Renommer des feuilles

[Dominique]

Bonjour tout le monde,
Je cherche à renommer les feuilles d'un classeur avec le contenu de la cellule B4, mais parfois celle-ci est vide et dans ce cas j'aimerai que la feuille soit renommée 'CR'. J'ai tenté ceci qui ne fonctionne pas bien sûr

Dim Name As String
Name = Range('B4')
Application.ScreenUpdating = False
If NameValue = '' false Then
ActiveSheet.Name = 'CR'
ActiveSheet.Name = Name
End If

Merci d'avance à celui ou celle qui me filera un coup de main.

 

[Dominique]

Merci beaucoup ça marche, mais effectivement je vais retrouver la cellule B4 vide plusieurs fois, donc j'imagine qu'il faut que je mette quelque chose qui incrément CR1 CR2 etc. peuxt-tu encore m'aider sur ce coup là?
BOn appétit si ce n'est pas déjà fait

 

[2passage]

Bonjour,

petite idée avant la sieste : tu peux nommer ta feuille CR & format(time, 'hhmmss'). Ca limite les doublons...

A+

 

[2passage]

Bonjour,

bah.. dans la meme seconde ? sinon ca se gère au millième... sinon, (vu que j'insomnise un peu ma sieste, là) , il y a cette solution :

Dim nom As String
Dim compteur As Integer
compteur = 1
For Each feufeuille In ThisWorkbook.Worksheets
    If feufeuille.Name Like 'CR*' Then compteur = compteur + 1
Next
nom = 'CR' & compteur

A+

 

[Dominique]

Tout fonctionne à merveille, merci à vous deux

 

[yassin]

Bonjour,
je cherche a renommer automatiquement les feuilles d'un classeur (ex: au lieu de feuil1, feuil2,... les renommer par la date du jour ex: au lieu de feuil1 a la place 06-01-06.
merci a vous.