VBA - Une suggestion, siouplai ? Paragraphes aléatoires
3 réponses
Petipeton
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Toujours mon souci avec une aplinounette (elle vous ferait rire, j'en suis
sûre !) que je suis en train de créer pour aider à la saisie d'un long
document...
Bref, via userform je récupère des données que j'intègre ensuite dans un
document word (m à j de signets -merci Philippe).
Dans le userform j'ai mis des cases à cocher qui me permettent de définir
des paragraphes à insérer. Exemple : L'agent a t il moins de 18 ans ?
Si la case est cochée, je dois ajouter un paragraphe faisant référence au
tuteur légal.
Pouvez-vous m'indiquer vos suggestions, sachant que ce paragraphe doit être
mis en forme (gras sur le 1er mot et le reste en italique) et intégré pile
poile entre deux autres paragraphes ?
Autre contrainte : pas d'insertions automatiques car l'appli sera disponible
sur le réseau à partir d'une 10aine de postes différents.
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
Geo
Bonjour Valentine
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Je confirme :-)
Mais j'ai pas bien compris ce que tu attends de nous. Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de prévoir un signet où tu veux le mettre. Simplement tu conditionnes l'insertion de texte par un if
if CaseMineur then ' insère le paragraphe tuteur
endif
Si c'est pas ça, reviens-nous
--
A+
Bonjour Valentine
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Je confirme :-)
Mais j'ai pas bien compris ce que tu attends de nous.
Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de
prévoir un signet où tu veux le mettre.
Simplement tu conditionnes l'insertion de texte par un if
Mais j'ai pas bien compris ce que tu attends de nous. Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de prévoir un signet où tu veux le mettre. Simplement tu conditionnes l'insertion de texte par un if
if CaseMineur then ' insère le paragraphe tuteur
endif
Si c'est pas ça, reviens-nous
--
A+
Petipeton
Bonjour.
Ben justement, ce que j'attendais, c'était une suggestion de méthode. Mais je me suis aperçue un peu tard que j'ai oublié de dire que dans ces paragraphes en question, on retrouve des mentions récupérées par un userform (nom, prénom, date de naissance, nom du tuteur).
Je me résume : je dois, en fonction d'une condition pouvoir insérer des paragraphes contenant eux-même des variables et devant subir une mise en forme...
Je n'ai pas trop d'idée sur la méthode à employer. Au jour d'aujourd'hui lesdits paragraphes contenant des signets sont sur la dernière page de mon document en attendant d'être traités.
Merci de ton aide.
--- Petipeton
Bonjour Valentine
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Je confirme :-)
Mais j'ai pas bien compris ce que tu attends de nous. Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de prévoir un signet où tu veux le mettre. Simplement tu conditionnes l'insertion de texte par un if
if CaseMineur then ' insère le paragraphe tuteur
endif
Si c'est pas ça, reviens-nous
--
A+
Bonjour.
Ben justement, ce que j'attendais, c'était une suggestion de méthode. Mais
je me suis aperçue un peu tard que j'ai oublié de dire que dans ces
paragraphes en question, on retrouve des mentions récupérées par un userform
(nom, prénom, date de naissance, nom du tuteur).
Je me résume : je dois, en fonction d'une condition pouvoir insérer des
paragraphes contenant eux-même des variables et devant subir une mise en
forme...
Je n'ai pas trop d'idée sur la méthode à employer. Au jour d'aujourd'hui
lesdits paragraphes contenant des signets sont sur la dernière page de mon
document en attendant d'être traités.
Merci de ton aide.
---
Petipeton
Bonjour Valentine
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Je confirme :-)
Mais j'ai pas bien compris ce que tu attends de nous.
Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de
prévoir un signet où tu veux le mettre.
Simplement tu conditionnes l'insertion de texte par un if
Ben justement, ce que j'attendais, c'était une suggestion de méthode. Mais je me suis aperçue un peu tard que j'ai oublié de dire que dans ces paragraphes en question, on retrouve des mentions récupérées par un userform (nom, prénom, date de naissance, nom du tuteur).
Je me résume : je dois, en fonction d'une condition pouvoir insérer des paragraphes contenant eux-même des variables et devant subir une mise en forme...
Je n'ai pas trop d'idée sur la méthode à employer. Au jour d'aujourd'hui lesdits paragraphes contenant des signets sont sur la dernière page de mon document en attendant d'être traités.
Merci de ton aide.
--- Petipeton
Bonjour Valentine
Re-re-re bonjour à tous !
Pfff, débuter en VBA, c'est la panique !!!
Je confirme :-)
Mais j'ai pas bien compris ce que tu attends de nous. Pour insérer ton paragraphe supplémentaire tu sais faire, il suffit de prévoir un signet où tu veux le mettre. Simplement tu conditionnes l'insertion de texte par un if
if CaseMineur then ' insère le paragraphe tuteur
endif
Si c'est pas ça, reviens-nous
--
A+
Geo
Bonjour Valentine
Je n'ai pas trop d'idée sur la méthode à employer. Au jour d'aujourd'hui lesdits paragraphes contenant des signets sont sur la dernière page de mon document en attendant d'être traités.
Il me semble que dans ton cas, je "composerais" le texte dans une variable String et je l'insèrerais en bloc ensuite.
qqch. comme (attention aux retours à la ligne intempestifs qui pourraient être générés par mon butineur) :
Dim MonTexte as string Dim Mineur as boolean
' déterminer si mineur ' code à ajouter évidemment
MonTexte = "texte du début du paragraphe concernant : " MonTexte = Montexte & Ucase(TextBoxNom.Text) & " " & TextBoxPréom.Text & " " if Mineur then aMonTexte = Montexte & "tuteur : " & TextBoxNomDuTuteur.Text endif
Bon courage
Bonjour Valentine
Je n'ai pas trop d'idée sur la méthode à employer. Au jour
d'aujourd'hui lesdits paragraphes contenant des signets sont sur la
dernière page de mon document en attendant d'être traités.
Il me semble que dans ton cas, je "composerais" le texte dans une variable
String et je l'insèrerais en bloc ensuite.
qqch. comme (attention aux retours à la ligne intempestifs qui pourraient
être générés par mon butineur) :
Dim MonTexte as string
Dim Mineur as boolean
' déterminer si mineur
' code à ajouter évidemment
MonTexte = "texte du début du paragraphe concernant : "
MonTexte = Montexte & Ucase(TextBoxNom.Text) & " " & TextBoxPréom.Text & "
"
if Mineur then
aMonTexte = Montexte & "tuteur : " & TextBoxNomDuTuteur.Text
endif
Je n'ai pas trop d'idée sur la méthode à employer. Au jour d'aujourd'hui lesdits paragraphes contenant des signets sont sur la dernière page de mon document en attendant d'être traités.
Il me semble que dans ton cas, je "composerais" le texte dans une variable String et je l'insèrerais en bloc ensuite.
qqch. comme (attention aux retours à la ligne intempestifs qui pourraient être générés par mon butineur) :
Dim MonTexte as string Dim Mineur as boolean
' déterminer si mineur ' code à ajouter évidemment
MonTexte = "texte du début du paragraphe concernant : " MonTexte = Montexte & Ucase(TextBoxNom.Text) & " " & TextBoxPréom.Text & " " if Mineur then aMonTexte = Montexte & "tuteur : " & TextBoxNomDuTuteur.Text endif
