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 :

"Insertion auto d'un message sur un graphique" [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    68
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 68
    Par défaut "Insertion auto d'un message sur un graphique"
    Bonjour Forum,

    Un léger probleme sur un graphique qui n'a rien a voir avec mes projets vba. Enfin peut etre lol.
    J ai un graphique surlequel je souhaiterais qu 'en pied de pages a droite, la presence du contenu de la cellule B4 par exemple.
    Je sais qu on peut insérer automatiquement la date, le chemin, l heure etc...mais le contenu d une cellule je vois pas.

    Si jamais je met en B4 "i love you", je veux qu en pied de pages ledit message s insère automatiquement.

    Si vous voyez aidez moi svp, ce serait hyper sympa.

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets("Feuil3").PageSetup.RightFooter = Sheets("Feuil2").Range("B4").Value
    c'était une piste
    et si tu veux à chaque changement de B4, tu mets ce code dans l'évènement Change de ta feuille contenant ce B4:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then Sheets("Feuil3").PageSetup.RightFooter = Target
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    68
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 68
    Par défaut
    Lol, euh la macro n'est pas possible a mettre et a vrai dire je pensais à une formule car regarde le "viel" exemple qu un pote a preparer lol, difficile d introduire la macro dans le pied de pages à droite

    Classeur1.xls

    Merci d avance pour ton aide

  4. #4
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 564
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 564
    Par défaut
    Bonjour

    Par formule non. En pied de page à part VBA on ne peut pas

    Sur le graphique lui-même on peut :
    • sélectionner le graphique
    • ajouter une forme (rectangle par exemple)
    • sélectionner le rectangle et dans la barre de formule taper = B4
    • au besoin replacer la mention au bon endroit sur le graphique


    elle changera avec le changement de valeur de la cellule B4

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

Discussions similaires

  1. [MSDE][INSERT Auto]Valeur négative de PK
    Par papouAlain dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 20/09/2005, 14h28
  2. Comment déterminer la fin d'un message sur le port serie ?
    Par zeddy23 dans le forum Composants VCL
    Réponses: 2
    Dernier message: 11/01/2005, 05h12
  3. Réponses: 3
    Dernier message: 09/12/2004, 11h49
  4. Howto - Envoi message sur réseau
    Par Thomad dans le forum Windows
    Réponses: 2
    Dernier message: 31/03/2004, 16h46
  5. Réponses: 2
    Dernier message: 05/01/2004, 11h23

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