Discussion :

[chronos21]

Bonjour à tous,

dans le cadre de mon travail je suis actuellement entrain d'automatiser un document word à l'aide d'une macro VBA

J'ai pas mal avancé malgré mon manque important de connaissance en VBA mais là je bloque sur une tâche que je voudrais faire.

J'ai un chiffre issu d'une textbox de ma userform1 que je mets dans une variable.
Je voudrais ensuite créer une nouvelle userform (userform2) qui aurait le nombre d'onglets égale à ma variable et qui (tant qu'à faire) posséderait les mêmes champs que ceux que j'aurais déjà défini dans un onglet type de cette userform2.

Pour info et parce que mon idée n'est peut-être pas la bonne, le but est de reprendre les différentes informations que l'on remplit dans ces onglets et les insérer à des endroits définis par des signets dans mon document Word.

j'espère être clair et je vous remercie d'avance pour vos réponses ou nouvelle idée.

Cordialement

[Sepia]

Salut Chronos21,

Plutôt que de créer autant d'onglets avec les mêmes infos, est-ce que ce ne serait plus simple de faire une boucle autant de fois que nécessaire et de stocker les valeurs saisies dans un tableau de variables, comme ça si tu changes ton userform, tes valeurs seront automatiquement proposées à chaque apparition de ton formulaire.

Si ça semble te convenir et que tu as besoin d'aide, n'hésite pas.

@+

[chronos21]

Bonjour,

si je pense que ça pourrait être une bonne idée et que cela pourrait convenir.

Ainsi j'ai une valeur dans une textbox de ma Userform1. je récupère sa valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Variable_Nombre_Proprio As Integer
Variable_Nombre_Proprio = Nombre_Proprio

Ensuite je bloque un peu pour faire une boucle de userform et ranger les valeurs dans un tableau de variables...

Une petite piste serait la bienvenue.

Merci pour l'info, j'avance de mon côté en attendant la réponse.

Chronos

[Sepia]

Salut chronos21,

Ton code est Ok. Maintenant pour utiliser ta variable dans une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
ReDim aLstValeurs(1 To <NbDeValeurs>,  Variable_Nombre_Proprio)
For aI = 1 to Variable_Nombre_Proprio
   <Afficher UserForm2>
   <Récupérer les valeurs du UserForm et les stocker dans aLstValeurs>
   <Fermer UserForm2>
Next

@+

[chronos21]

Bonjour,

mon projet avance. Je n'ai pas utilisé de liste pour stocker mais textbox mais je suis passé par une boucle.

Par contre, et vous me direz si je dois ouvrir un nouveau sujet, désormais j'ai mes textbox mais je veux les insérer au niveau de 2 signets différents (1 au début et un à la fin du document).

Ainsi je fais référence à ceux là à l'aide du code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.GoTo , , , "Numero_Dossier"
Selection.InsertAfter Ref_Dossier
Selection.GoTo , , , "Numero_Dossier1"
Selection.InsertAfter Ref_Dossier

mais mon texte s'ajoute à l'inverse de ce que j'ai rentré (ma dernière entrée se trouve au dessus de la précédente). Cependant, je voudrais que ceux-ci s'insèrent aux 2 endroits différents dans l'ordre de mon entrée...

J'espère être clair...

Cordialement,

Chronos

[Sepia]

Salut chronos21,

Mon projet avance. Je n'ai pas utilisé de liste pour stocker mais textbox mais je suis passé par une boucle.

Par contre, et vous me direz si je dois ouvrir un nouveau sujet, désormais j'ai mes textbox mais je veux les insérer au niveau de 2 signets différents (1 au début et un à la fin du document).

Tu peux ouvrir une nouvelle discussion pour t'organiser personnellement mais on peut continuer sur celle-ci si tu préfères quitte à changer le titre de la discussion.

Ainsi je fais référence à ceux là à l'aide du code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.GoTo , , , "Numero_Dossier"
Selection.InsertAfter Ref_Dossier
Selection.GoTo , , , "Numero_Dossier1"
Selection.InsertAfter Ref_Dossier

mais mon texte s'ajoute à l'inverse de ce que j'ai rentré (ma dernière entrée se trouve au dessus de la précédente). Cependant, je voudrais que ceux-ci s'insèrent aux 2 endroits différents dans l'ordre de mon entrée...

Ton code est OK. Et comme tu insères le même contenu comme tu peux savoir si c'est inversé ?
Mets-nous à disposition un fichier d'exemple pour qu'on puisse se rendre compte (s'il ne contient rien de confidentiel ou d'illégal) et mets-nous ce que tu voudrais.

@+