IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Imprimer formulaire à partir de données


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Mars 2011
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2011
    Messages : 42
    Par défaut Imprimer formulaire à partir de données
    Bonjour,

    Voici mon problème :

    Je dispose d'une feuille 1 qui regroupe des données ligne par ligne.

    Je souhaite créer une macro qui me permette de sélectionner une ligne de la feuille 1 pour prendre toutes ses données et écrire ces données dans la feuille 3 qui est destinée à être imprimée.

    Ci-joint le fichier en question, mais sans les macros ni les données pour alléger le fichier

    Pouvez-vous m'indiquer comment il faut s'y prendre.



    Merci d'avance
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Dans la suite de ce que tu as commencé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub CmdPrint_Click()
    Dim I As Integer
     
    I = InputBox("Indiquez la ligne à imprimer")
     
    Sheets("PRE_CHIFFRAGE").Range("B7").Value = Sheets("BDD").Cells(I, 1).Value
    Sheets("PRE_CHIFFRAGE").Range("B8").Value = Sheets("BDD").Cells(I, 5).Value
     
    End Sub

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Mars 2011
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2011
    Messages : 42
    Par défaut
    Merci beaucoup jfontaine !
    C'est exactement ce que je cherchais.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 03/08/2006, 22h27
  2. Réponses: 7
    Dernier message: 03/07/2006, 14h17
  3. imprimer état àpartir d'une req formulaire
    Par hocine dans le forum Bases de données
    Réponses: 4
    Dernier message: 23/05/2006, 13h29
  4. Réponses: 6
    Dernier message: 19/11/2004, 16h52
  5. Réponses: 9
    Dernier message: 07/10/2004, 19h41

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo