Création wordart à partir d'une liste

[christian.bedere]

Bonjour à vous tous !!

J'ai une liste située dans une base de données, et j'aimerai, en fonction de la ligne sélectionnée, créer un wordart qui répertorie les uns au dessous des autres les prenoms saisis côte à côte ds la bdd.
Pourriez vous me soumettre le code d'une macro pour créer ceci automatiquement et ajuster au format comme dessiné en jaune sur l'exemple ??

Je vous remercie et vous souhaite une bonne journée

christian

 

[christian.bedere]

Re : Création wordart à partir d'une liste

Envoi trop rapide
desole manque la PJ

 

[nat54]

Re : Création wordart à partir d'une liste

BonjourUne ébauche

Sub Macro1()   Sheets("Base").Select    nom = Range("b2")        ActiveSheet.Shapes.AddTextEffect(msoTextEffect11, nom, "Impact", 36#, _        msoFalse, msoFalse, 311.25, 179.25).Select    Selection.Cut    Sheets("Bâtiment 1").Select    Range("D33").Select    ActiveSheet.Paste        Sheets("Base").Select    nom = Range("c2")        ActiveSheet.Shapes.AddTextEffect(msoTextEffect11, nom, "Impact", 36#, _        msoFalse, msoFalse, 311.25, 179.25).Select    Selection.Cut    Sheets("Bâtiment 1").Select    Range("D34").Select    ActiveSheet.Paste   End Sub

edit : je comprends rien ya des "
partout :

 

[christian.bedere]

Re : Création wordart à partir d'une liste

Bonsoir
Nat merci pour ton aide, c'est sympa mais je ne comprends pas tout ce n'est pas grave je vais tenter autre chose
bonne soiree

 

[nat54]

Re : Création wordart à partir d'une liste

BonjourJe n'arrive pas à insérer correctement le bout de code par copier-collerca rajoute des trucs 'bizarres' 😱