La macro
Sub nomOnglet()
ActiveSheet.Name = Range("G7")
End Sub
permet de renommer l'onglet de la page active par le contenu de la cellule
G7 ici, merci de me dire ce qu'il faut ajouter à la macro si la cellule
contient plus de 32 caractères (autorisés)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI
bonjour entre autre Sub nomOnglet() if Len(Range("G7")) > 32 then ActiveSheet.Name = left(Range("G7"),32) else ActiveSheet.Name = Range("G7") end if End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Tommy" a écrit dans le message de news:
Bonjour,
La macro Sub nomOnglet() ActiveSheet.Name = Range("G7") End Sub
permet de renommer l'onglet de la page active par le contenu de la cellule G7 ici, merci de me dire ce qu'il faut ajouter à la macro si la cellule contient plus de 32 caractères (autorisés)
A+ -- Tommy
bonjour
entre autre
Sub nomOnglet()
if Len(Range("G7")) > 32 then
ActiveSheet.Name = left(Range("G7"),32)
else
ActiveSheet.Name = Range("G7")
end if
End Sub
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Tommy" <xvw@free.fr> a écrit dans le message de news: epTB7XTnDHA.3320@tk2msftngp13.phx.gbl...
Bonjour,
La macro
Sub nomOnglet()
ActiveSheet.Name = Range("G7")
End Sub
permet de renommer l'onglet de la page active par le contenu de la cellule
G7 ici, merci de me dire ce qu'il faut ajouter à la macro si la cellule
contient plus de 32 caractères (autorisés)
bonjour entre autre Sub nomOnglet() if Len(Range("G7")) > 32 then ActiveSheet.Name = left(Range("G7"),32) else ActiveSheet.Name = Range("G7") end if End Sub
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Tommy" a écrit dans le message de news:
Bonjour,
La macro Sub nomOnglet() ActiveSheet.Name = Range("G7") End Sub
permet de renommer l'onglet de la page active par le contenu de la cellule G7 ici, merci de me dire ce qu'il faut ajouter à la macro si la cellule contient plus de 32 caractères (autorisés)
Beaucoup moins rapide, mais...tu pourrais avoir des surprises avec les 32 caractères autorisés par la version personnalisée d'Excel de Pierre :)
Sub NommeOnglet() If Range("G7").Value <> "" Then _ Range("G7").Parent.Name = Left(Range("G7").Value, 31) End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
merci pour cette réponse ultra rapide :-)
A+
-- Tommy
Bonsoir,
Beaucoup moins rapide, mais...tu pourrais avoir des surprises avec les 32
caractères autorisés par la version personnalisée d'Excel de Pierre :)
Sub NommeOnglet()
If Range("G7").Value <> "" Then _
Range("G7").Parent.Name = Left(Range("G7").Value, 31)
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Beaucoup moins rapide, mais...tu pourrais avoir des surprises avec les 32 caractères autorisés par la version personnalisée d'Excel de Pierre :)
Sub NommeOnglet() If Range("G7").Value <> "" Then _ Range("G7").Parent.Name = Left(Range("G7").Value, 31) End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
