Menu

Macro Word [Résolu]

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

Je re vers 21h
Messages postés
14708
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 novembre 2018
- 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 >
Messages postés
14708
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 novembre 2018
- 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