Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel renommer un freeform

renommer un freeform

3 réponses
Avatar
fred
Bonjour,

J'utilise dans une feuille un ensemble de dessins dont excel les reconnaits
en "freeform"
ex : free_form 12
Comment renommer ces objets ?

Fred, novice
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Denis Michon
Bonjour Fred,

Voici une procédure qui va renommer tous les "FreeForm" de la feuille active avec le mot "toto" suivi un index

'---------------------------
Sub RenommerFreeForm()
Dim S As MsoShapeType
S = msoFreeform

For Each sh In ActiveSheet.Shapes
If sh.Type = S Then
a = a + 1
sh.Name = "Toto" & a
End If
Next

End Sub
'---------------------------

Tu désires autre chose ?


Salutations!



"fred" a écrit dans le message de news:blklcl$h94$
Bonjour,

J'utilise dans une feuille un ensemble de dessins dont excel les reconnaits
en "freeform"
ex : free_form 12
Comment renommer ces objets ?

Fred, novice
Avatar
Denis Michon
Bonjour Fred,


Il y a une façon simple de les renommer sans macro.

A ) sélectionne le dessin

B ) dans la section à extrême gauche de la barre des formules, tu peux saisir directement le nom de la "FreeForm".


Salutations!


"fred" a écrit dans le message de news:blklcl$h94$
Bonjour,

J'utilise dans une feuille un ensemble de dessins dont excel les reconnaits
en "freeform"
ex : free_form 12
Comment renommer ces objets ?

Fred, novice
Avatar
fred
Merci de vos connaissances et de la promptitude à laquelle vous avez répondu
!

Fred