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.
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
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 :
Code:
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
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.