Création d'une macro qui remplira un agenda

[Cyriusix]

Bonjour,

Je n'ai jamais fait de VBA sous Word et je désirerais créer une macro qui permettrait d'entrer des données pour un agenda.

Il faudrait que l'utilisateur entre les nom, prénom, adresse et numéro de teléphone d'un contact pour que celui-ci aparaisse sous une certaine mise en page dans une liste et classé par ordre alphabétique selon le nom puis le prénom.

La mise en page serait:

[Nom] [Prénom]----(espacement)--->[Num Tel]
[Rue et Numéro]
[Code Postal][Localité]

Les champs obligatoires seraient uniquement le nom et le prénom.

Est-ce que tout cela est réalisable? et si oui de quelle manière?

Merci d'avance

Cyriusix

[Heureux-oli]

C'est possible, mais ta question est un peu vague !

Quel type d'agenda ?

[Cyriusix]

Se serait juste une page word qui, une fois pleine de nom, serait imprimée sur un petit agenda (calpin) ou même imprimé tel quelle, puis découpée et collé. A moin qu'il y ai d'autres possibilité que je n'imaginerais même pas.. mais je ne veux pas plus me compliquer..

Cyriusix

Je me permet de relancer, quelqu'un aurait-il une solution?

[Sepia]

Salut,

Je pense que la solution est directement de faire un tableau dans Word avec les en-têtes que tu veux. Pour le trier, il suffit d'utiliser la fonction "Tableau-Trier".

Avec ce truc, tu utilises que du Word, pas de macro et ton impression est égale à ce que tu vois (si l'imprimante que tu utilises est celle par défaut).

Allez, c'est mon jour de bonté, je te file un exemple du fichier
A+

[Philippe JOCHMANS]

Bonjour

Pourquoi n'as-tu pas essayé la solution stockage des données dans Excel, et impression dans Word de tes fiches ?

Starec

[Cyriusix]

Bonjour, merci pour vos réponses.

Pour Sepia:
Merci pour cet exemple.. j'avais imaginé fair cela, mais ca aurait été à utiliser en dernier recours. j'aimerais que les noms en gras se mettent automatiquement, que chaques champs (nom, prénom, Code postal...) se mettent automatiquement à leurs place, et que dès que la nouvelle saisie est effectuée, elle se mette automatiquement par ordre alphabétique.

Je n'y ais pas pensé avant, mais ca serait idéal qu'il y ait un saut de page après chaques différente lettre (une page pour les A, une autre pour les B...) mais ce n'est pas le plus important donc si jarive déja à trouver une sollution pour le reste ca serait déja super..

Pour Starec:
Excel est une bonne idée également.. mais il faut à nouveau à chaque fois saisir l'information que l'on désire dans le champs qu'on désire (il me semble)

j'imaginai quelque chose comme ca pour la saisie de l'utilisateur:

[Philippe JOCHMANS]

Bonjour

Va voir l'exemple d'Heureux-oli dans ce post :http://www.developpez.net/forums/sho...d.php?t=449355

Cela devrait t'interresser. Il y'a un exemple de masque de saisie grâce à un UserForm, et positionnement dans word.

[Cyriusix]

Merci, cela va me permettre de mettre en forme quelque chose..

A partir de cela, comment pourais-je savoir que faut-il mettre et ou afin de mettre certain texte en gras, de faire en sorte que des champs soient obligatoire et leurs mise en page?

Cyriusix

[Heureux-oli]

Quelle est ton idée gloable, parce que tout est possible.

Tu dois avant de te lancer savoir ce que tu veux faire.

On peut mettre le texte en forme au moment où il est intégré dans le document. ce texte peut être mis à la suite de ce qui existe ou inséré dans un tableau après ajout d'une ligne.

Comment doit être ton document, doit-il respecter certaines contitions de mise en page, ou de dimensions ?

[Cyriusix]

Alors ca serait plutôt dans un tableau.. la mise en forme serait comme indiqué dans mon premier message:

[Nom] [Prénom]----(espacement)--->[Num Tel]
[Rue et Numéro]
[Code Postal][Localité]

En imaginant à ce moment que l'espacement soit donc une nouvelle cellule du tableau.

le texte doit être d'une taille assez petite, disons du 8 et la police Arial.

Je sais pas si c'est plus ou moin ce que tu atendais comme réponse.

Ce que j'aimerais bien savoir, c'est ou est-ce que je devrai appliquer les bouts de codes qu'il me faudra modifier? Tout ce passe dans le Visual Basic Editor?

[Heureux-oli]

Oui, il faut passer par VBE pour le VBA.
On peu tl'active par Alt + F11

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub pourMaTable()
 
If ActiveDocument.Tables.Count = 0 Then
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=1
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Agenda"
    ActiveDocument.Tables(1).Cell(2, 1).Range.Text = "Ma première ligne"
Else
    ActiveDocument.Tables(1).Rows.Add
End If
 
End Sub

Voilà déjà une idée de ce qu'il est possible de faire.

[Cyriusix]

Merci pour cela, mais serait-il possible de commenter juste en gros ce que fait cette partie du code? et par rapport au UserForm, le code se situerai ou?

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub pourMaTable()
Dim i As Integer
' on va avant tout vérifier si la table existe dans le document
' Deux étapes, la première, pas de table, la seconde la table existe.
If ActiveDocument.Tables.Count = 0 Then
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=1
    ActiveDocument.Tables(1).Cell(1, 1).Range.Text = "Agenda"
    ActiveDocument.Tables(1).Cell(2, 1).Range.Text = "Ma première ligne"
Else
' si la table existe, on va compter le nombre de lignes de la table
    i = ActiveDocument.Tables(1).Rows.Count + 1
'on ajoute une ligne à la table
    ActiveDocument.Tables(1).Rows.Add
' on selectionne la dernière ligne de la table, avec i et la ligne en plus i + 1
    ActiveDocument.Tables(1).Rows(i).Select
 
End If
' dans la sélection de la dernière cellule de la table
' on va insérer du texte et le mettre en forme.
With Selection
    .Font.Bold = True
    .TypeText "Mon Nom"
    .Font.Bold = False
    .TypeText vbTab & "Mon Prénom"
    .Font.Bold = True
    .TypeParagraph
    .TypeText "Ma seconde ligne"
End With
 
 
End Sub

Ce code peut être mis sur un bouton d'un user form.
A la place de "Mon nom", on peut utiliser Me.TextBox1.value
qui serait issu d'un text box de UserForm, ce nom peut être tout autre.

[Cyriusix]

Merci beaucoup Heureux-Oli, je vais étudier tout ca avant de revenir à la charge..

[Cyriusix]

Re Bonjour, je ne parviens pas à faire correspondre le code grassieusement fournis par Heureux-oli et mon UserForm dans le VBE.

A mon avis, je ne copie pas le code au bon endroit. Quelqu'un pourait-il me donner des détails oubien y aurait-il un tutoriel concernant le VBE accessible à quelque part?

Merci bien,

Cyriusix

[Heureux-oli]

Voilà un exemple

[Cyriusix]

me revoila,

Donc après avoir essayé d'imbriquer le code fourni par Heureux-oli et son exemple de UserForm, j'arive au résultat mis en pièce jointe.

Maintenant mes questions:

1. Comment faire pour que les numéros fixe, portable, fax et e-mail soient affiché dans la 2ème colonne? car de toute évidence, le vbaTab ne me convient pas tellement.
2. Comment faire pour qu'une saisie se range par ordre alphabétique du nom?
3. Comment faire pour que la saisie soit fait toujours à sa place (ordre alphabétique) même si il y a des sauts de pages dans le tableau (afin d'avoir une page dédiée aux A, une autre pour les B...)
4. Je n'arrive pas à comprendre totalement cette ligne: "ActiveDocument.Tables.Add Range:=Selection.Range,..." En gros c'est pour ajouter des lignes ou colonnes, mais est-ce qu'elle sert à autre chose?

Voila, si quelqu'un peu me renseigner encore sur tout ca, ca serait vraiment génial, et si vous avez des questions car tout ceci n'est peut-être pas très clair, n'hésitez pas..

Cyriusix

[Cyriusix]

Bonjour,

J'ai toujours des problèmes avec les 4 points ci-dessus... Est-ce que quelqu'un a une sollution?

Merci.

[Heureux-oli]

Envoyé par Cyriusix

me revoila,

Donc après avoir essayé d'imbriquer le code fourni par Heureux-oli et son exemple de UserForm, j'arive au résultat mis en pièce jointe.

Maintenant mes questions:

1. Comment faire pour que les numéros fixe, portable, fax et e-mail soient affiché dans la 2ème colonne? car de toute évidence, le vbaTab ne me convient pas tellement.
   

1. Fais deux colonnes et tu basule dans la seconde colonne

   Comment faire pour qu'une saisie se range par ordre alphabétique du nom?

   Possible uniquement après avoir rempli le tableau et à chaque ajout faire un tri du tableau.

   Comment faire pour que la saisie soit fait toujours à sa place (ordre alphabétique) même si il y a des sauts de pages dans le tableau (afin d'avoir une page dédiée aux A, une autre pour les B...)

   Faire un tri

   Je n'arrive pas à comprendre totalement cette ligne: "ActiveDocument.Tables.Add Range:=Selection.Range,..." En gros c'est pour ajouter des lignes ou colonnes, mais est-ce qu'elle sert à autre chose?

Add, c'est ajouter et Tables, on va ajouter une table à la collection des tables.

Cyriusix

[Cyriusix]

Hello,

Merci pour cette réponse.

Les 2 colonnes sont faites. mais quel code utiliser pour basculer les saisie dans la deuxième?

J'avais déjà essayé de faire un tri du tableau, et oui ça marche, mais pas si on fait avec des sauts de page. Car, il faudrait séléctionner la totalité des pages, et une fois le tri efféctué, tous les sauts de page sont supprimés.

Si je garde quand même cette idée de faire un tri, ya-t-il possibilité de l'intégrer dans le UserForm?

Cyriusix