Créer et imprimer formulaire sous excel

[Saqqarah]

Bonjour,

Je voudrais vous poser une question je dispose d'une base de donnée de 400 contact sur excel et je voudrais créer pour chaque contact un formulaire comprenant nom, mail, téléphone..... et ainsi obtenir 400 formulaire à imprimer et donner à mes commerciaux comment faire ?

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

Salut,

Et bien, réalise le formulaire pour 1 contact sur un onglet du fichier contenant ta base de données et mets nous un exemple de ta base de données (qq contacts avec des données bidons) ainsi que ton formulaire et nous tacherons d'automatiser la chose via une petite macro.
En attendant ton exemple...

@+

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Merci de votre aide ci-joint un exemple de ma base :
- Feuille 1 : BDD
- Feuille 2 : Formulaire

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

re,

Juste une question, est-ce que tu veux que tous les formulaires soient a la suite dans une meme page, ou alors que ca créé un onglet pour chaque data du formulaires ?

@+

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Un onglet par contact serait idéal mais si ce n'est pas possible alors tout sur un onglet (mais vraiment en dernier recours)

Merci de votre attention

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

re,

Voici un code qui fonctionne avec quelques commentaires:

Sub test()
Dim i%, k%
Application.ScreenUpdating = False
With Sheets("BDD")
    'suppression des onglets existant deja
    For k = Sheets.Count To 1 Step -1
        If Left(Sheets(k).Name, 7) = "Contact" Then
            Application.DisplayAlerts = False
            Sheets(k).Delete
            Application.DisplayAlerts = True
        End If
    Next k
    'boucle sur le nombre d'individus
    For i = 2 To .Range("A65536").End(xlUp).Row
        'création de l'onglet à partir de l'onglet vierge Formulaire
        Sheets("Formulaire").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Contact_" & i - 1
 
        .Range(.Cells(i, 2), .Cells(i, 9)).Copy
        Sheets("Contact_" & i - 1).Range("B2").PasteSpecial Paste:=xlValues, Transpose:=True
    Next i
End With
Application.ScreenUpdating = True
End Sub

En gros, la macro supprime tout d'abord les feuilles au format Contact_x, puis boucle sur les individus de ta base données, créée un onglet nommé Contact_x (x étant l'identifiant de l'individu) et colle les info.

Pour utiliser la macro, Alt+F11, dans la barre de menu, Insertion/Module, copier la macro dedans et faire F5 pour la lancer.

@+

PS : tu peux me tutoyer

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Merci beaucoup "tu" est trop fort ! Mais pourrais tu m'expliquer comment je doit procéder si je veut insérer un logo ainsi que une mise en page "esthétique" de mon formulaire : si sur la page formulaire j'intègre le logo et des couleurs cela sera dupliqué aussi sur les nouveaux formulaires?

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

re,

Comment ca ce que tu dois copier-coller ?
Et bien lorsque tu te trouves dans l'editeur vba (apres avoir fait Alt+F11) et que tu as insérer un module (voir mon précédent mail), tu copies le code que je t'ai proposé et tu le colles dans ce module. Ensuite, F5 et le tour est joué !!!

@+

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Merci beaucoup "tu" est trop fort ! En fait j'avais pas bien lu lol

Mais pourrais tu m'expliquer comment je doit procéder si je veut insérer un logo ainsi que une mise en page "esthétique" de mon formulaire : si sur la page formulaire j'intègre le logo et des couleurs cela sera dupliqué aussi sur les nouveaux formulaires?

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

Salut,

Si tu modifies l'onglet Formulaire, pas de soucis (couleur, mise en forme...) tant que tu changes pas la place du tableau. Enfin, tu peux, mais il faudra modifier un peu le code...
Pour rajouter un logo, il faudra également rajouter un petit bout de code.
Si tu as des soucis, remets ton fichier en ligne avec tes modif et on remettra le code a jour.

@+

 

[jmd2]

Re : Créer et imprimer formulaire sous excel

hello

voir aussi le publipostage ou fusion avec Word
ça sert beaucoup pour des mailings, mais on peut facilement faire des fiches clients

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Merci beaucoup porcinet tu es en train de me sauver la vie !!! Je met en pièce jointe une extraction de la BDD ainsi que le formulaire avec le logo

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

re,

En faite, y'avait quasiment a rien a modifier. Du coup, voici le nouveau code :

Sub test()
Dim i%, k%
Application.ScreenUpdating = False
With Sheets("BDD")
    'suppression des onglets existant deja
    For k = Sheets.Count To 1 Step -1
        If Left(Sheets(k).Name, 7) = "Contact" Then
            Application.DisplayAlerts = False
            Sheets(k).Delete
            Application.DisplayAlerts = True
        End If
    Next k
    'boucle sur le nombre d'individus
    For i = 2 To .Range("A65536").End(xlUp).Row
        'création de l'onglet à partir de l'onglet vierge Formulaire
        Sheets("Formulaire").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "Contact_" & i - 1
 
        .Range(.Cells(i, 1), .Cells(i, 9)).Copy
        Sheets("Contact_" & i - 1).Range("B2").PasteSpecial Paste:=xlValues, Transpose:=True
    Next i
End With
Application.ScreenUpdating = True
End Sub

@+

 

[Saqqarah]

Re : Créer et imprimer formulaire sous excel

Merci beaucoup ! Une dernière question : est-il possible d'imprimer toutes les feuille de calcul de façon séparée ?

 

[porcinet82]

Re : Créer et imprimer formulaire sous excel

Salut,

Lorsque tu fais fichier/impression, dans la boite de dialogue qui apparait, tu selectionnes Classeur Entier et ca va tout d'imprimer...

@+