renommer une feuille

Le
Patbou
Est-il possible de renommer l'onglet d'une feuille, par le contenu d'une
cellule de cette feuille
--
Merci d''''''''avance pour les solutions proposées.
Cordialement,

Patbou
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
FFO
Le #4316971
Salut Patbou
Solution Macro :
'Avec la cellule "A1"
Sheets("nom onglet").Select
ActiveSheet.Name = Range("A1")

a défaut d'une autre solution


Est-il possible de renommer l'onglet d'une feuille, par le contenu d'une
cellule de cette feuille
--
Merci d''''''''avance pour les solutions proposées.
Cordialement,

Patbou



LSteph
Le #4316861
Bonjour,

Si le texte devait être absent ou dépasser
et en évitant les .select (la plupart du temps inutiles )


If Len([a1]) > 0 Then ActiveSheet.Name = Left([a1], 31)


ou bien

With Feuil1
If Len(.[a1]) > 0 Then .Name = Left(.[a1], 31)
End With

ou encore

On Error GoTo fin
With Worksheets("Feuil3")
If Len(.[a1]) > 0 Then .Name = Left(.[a1], 31)
End With
Exit Sub
fin:
MsgBox "nom de feuille invalide"


Cordialement.

lSteph

Est-il possible de renommer l'onglet d'une feuille, par le contenu d'une
cellule de cette feuille


Publicité
Poster une réponse
Anonyme