Menu

Macro Word [Résolu]

Totomacro - 6 juil. 2018 à 21:41 - Dernière réponse :  Totomacro
- 10 juil. 2018 à 04:31
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
Afficher la suite 

Votre réponse

8 réponses

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 :/
m@rina 14412 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 17 juillet 2018 Dernière intervention - 9 juil. 2018 à 17:48
tu peux donner ton document ?
http://cjoint.com
Totomacro > m@rina 14412 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 17 juillet 2018 Dernière intervention - 9 juil. 2018 à 18:52
https://www.cjoint.com/c/HGjqN5gLHNH

Je re vers 21h
m@rina 14412 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 17 juillet 2018 Dernière intervention - 9 juil. 2018 à 23:29
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
Totomacro > m@rina 14412 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 17 juillet 2018 Dernière intervention - 10 juil. 2018 à 04:31
Merci beaucoup c'est bon :)
Commenter la réponse de Totomacro
0
Merci
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
Commenter la réponse de Totomacro