Macro Word

Résolu
Totomacro -  
 Totomacro -
Bonjour,

Je voudrais savoir si c'est possible de faire un macro où j'insèrerai 3 champs et quand je validerai ça me génère mes réponses avec du texte autour.

Exemple de formulaire:

Pseudo Toto
Nom du personnage TotoBx
Date 6/07/2018


Et ça me génère ça:

[b]Pseudonyme : [/b][color=#FF0000][b]Toto[/b][/color]
[b]Nom du personnage : [/b][color=#FF0000][b]Totobx[/b][/color]
[b]Date : [/b][color=#FF0000][b]6/07/2018[/b][/color]

? si oui pouvez vous svp m’expliquer comment on fait où me donner une video voir des mot clefs pour en trouver.




Word 2010
A voir également:

2 réponses

Réponse 1 / 2
Totomacro
 
Personne ne sait?
0
m@rina Messages postés 26217 Statut Contributeur 11 479
 
Bonjour,

Si c'est faisable, mais ça manque de précision.
Tu veux un formulaire de type Userform ? ou des champs à remplir directement dans le document ?

Et ensuite, le résultat doit s'afficher où ? C'est pour générer du code html ?

Avec Word, contrairement à Excel, il faut être très précis. Avec Excel, le résultat ira dans une cellule quelconque, suffit de renseigner la cellule. Dans Word, c'est plus compliqué.

m@rina
0
Totomacro
 
Merci de ta réponse j'ai réussi a faire un userform mais chaque champs ce retrouve dans une cellule différente et je ne dais pas mettre le bbcode? autour j'ai que ma réponse

oui pour générer un code html, mais est-ce possible de faire tout les resultats dans une cellule afin que je copie colle sinon ça me colle un tableau :/
0
m@rina Messages postés 26217 Statut Contributeur 11 479
 
tu peux donner ton document ?
https://www.cjoint.com/
0
Totomacro > m@rina Messages postés 26217 Statut Contributeur
 
https://www.cjoint.com/c/HGjqN5gLHNH

Je re vers 21h
0
m@rina Messages postés 26217 Statut Contributeur 11 479
 
Bonjour,

On est sur le forum Word et tu donnes un fichier Excel.

Cela étant, ton code est fait. Il y a juste à ajouter les balises. C'est tout bête, tu ajoutes le texte avant et après le résultat des textbox entre guillemets : 

ActiveCell = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo.Value & "[/b][/color]"
ActiveCell.Offset(0, 1).Value = "[b]Nom du personnage : [/b][color=#FF0000]" & Zndp & "[/b][/color]"

etc.

Et si, puisqu'on est sur Excel, mettre tout dans une même cellule pour facilité de copie, tu ajoutes un Chr(10) pour séparer chaque ligne, par exemple pour les deux premières lignes : 

ActiveCell = "[b]Pseudonyme : [/b][color=#FF0000][b]" & zpseudo.Value & "[/b][/color]" & Chr(10) & _
"[b]Nom du personnage : [/b][color=#FF0000]" & Zndp & "[/b][/color]"
ActiveCell.Offset(0, 1).Value = "[b]Nom du personnage : [/b][color=#FF0000]" & Zndp & "[/b][/color]"

m@rina
0
Réponse 2 / 2
Totomacro
 
oui je pourrai mais je ne suis pas chez moi, sinon ou alors que le code aille dans une cellule si c'est plus simple, faire générer un pop up avec le code afficher que je sélectionnerai et copierai, les résultat je ne les garderai pas en mémoire juste pour les copier
0