Accueil > > > RECUPERER DES INFOS OU LES DONNÉES D'UN GRAPHIQUE SANS UTILISER LES EVENEMENTS DANS LES GRAPHIQUES
RECUPERER DES INFOS OU LES DONNÉES D'UN GRAPHIQUE SANS UTILISER LES EVENEMENTS DANS LES GRAPHIQUES
Information sur la source
Description
Ici je propose par l'intermédiaire d'un exemple, une solution alternative aux evenements dans les graphiques. Cette Solution est destinée en particulié au debutant que les modules de classe et autre API peuvent rebuter. Ce fichier Excel permet de recuperer et d'exporter vers une nouvelle feuille, les données de n'importe quelle courbe de n'importe quel gaphique contenu dans une feuille excel. Le probleme que j'ai rencontré etait de lancer une macro tout en gardant le focus sur l'objet graphique préalablement sélectionné. En effet tout les evenements d'un control (par exemple un bouton) dans une feuille excel font perdre le focus à l'objet. Mais il y a une exception qui est l'évènement Mousse_Move. L'autre probleme est qu'avec l'évènement Mousse_Move, tant que vous déplacez votre souris sur le bouton la macro se lance. Si une courbe a ete sélectionnée pas de probleme une MsgBox en fin d'execution limitera l'execution à une fois. Mais il restait 2 problemes à résoudre qui sont : ne pas lancer la macro si ce n'est pas une courbe qui a le focus et ne pas lancer la macro par inadvertance lors d'un passage involontaire sur le bouton. Comment cela fonctionne ? Et bien il suffit de selectionner une courbe puis de cliquer sur le bouton [Ddonnées Courbe] Pour le reste voir le code.
Source
- Option Explicit
- Dim Passage As Boolean, Clique As Boolean
-
- Private Sub CommandButton1_Click()
- Application.EnableEvents = False
- DoEvents
- On Error Resume Next
- Sheets.Item(1).Shapes("InfoBulle1").Visible = False
- DoEvents
- If Not GraphName = "" Then
- LetsGo
- Else
- MsgBox "Aucune courbe n'est selectionée ", vbExclamation
- Application.EnableEvents = True
- End If
- End Sub
- Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
- ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
- On Error Resume Next
- ActiveSheet.Shapes("InfoBulle1").Visible = True 'on allume l'info bulle
- If Passage = False Then 'ici on veut limite le lancement de la macro _
- QuelleCourbe a 1 fois par passage sur le bouton
- Passage = True 'la limitation ce fait ici
- QuelleCourbe
- End If
- End Sub
-
- Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
- ByVal X As Single, ByVal Y As Single) 'ce Label sert a detecter le curseur de souris apres _
- son passage sur le bouton CommandButton1. Ceci pour autoriser a nouveau le lancement de la macro QuelleCourbe
- ActiveSheet.Shapes("InfoBulle1").Visible = False 'on eteint l'info bulle
- GraphName = ""
- Passage = False 'on est sortie du bouton donc on autorise a nouveau le _
- lancement de la macro QuelleCourbe
- End Sub
Option Explicit
Dim Passage As Boolean, Clique As Boolean
Private Sub CommandButton1_Click()
Application.EnableEvents = False
DoEvents
On Error Resume Next
Sheets.Item(1).Shapes("InfoBulle1").Visible = False
DoEvents
If Not GraphName = "" Then
LetsGo
Else
MsgBox "Aucune courbe n'est selectionée ", vbExclamation
Application.EnableEvents = True
End If
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
ActiveSheet.Shapes("InfoBulle1").Visible = True 'on allume l'info bulle
If Passage = False Then 'ici on veut limite le lancement de la macro _
QuelleCourbe a 1 fois par passage sur le bouton
Passage = True 'la limitation ce fait ici
QuelleCourbe
End If
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single) 'ce Label sert a detecter le curseur de souris apres _
son passage sur le bouton CommandButton1. Ceci pour autoriser a nouveau le lancement de la macro QuelleCourbe
ActiveSheet.Shapes("InfoBulle1").Visible = False 'on eteint l'info bulle
GraphName = ""
Passage = False 'on est sortie du bouton donc on autorise a nouveau le _
lancement de la macro QuelleCourbe
End Sub
Conclusion
En fait ce code est une mise a jour d'un code que j'ai posté en réponse a une question posée sur le forum.
Merci de votre visite
3ddI7IHd
Historique
- 13 février 2008 23:12:41 :
- Ajout d'une Capture du fichier, d'une partie de la source et mise a jour de la description.
- 03 août 2009 16:32:02 :
- Modif. description
- 04 août 2009 23:13:58 :
- Re: mise a jour description
- 04 août 2009 23:17:27 :
- ben... pareil, cela m'apprendra a vouloir corriger une erreur a 23h15 :(
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Exporter un Graphique vers excel [ par charrynsasi ]
Bonjours J'ai cree un graphique sur mon formulaire et je voulais l'exporter en excel. Quelqu'un pourait avoir une idee? Merci
Exporter un graphique d'excel vers vb [ par Af@rnofo ]
Je fait un prog pour lequel j'ai besoin de stats, donc de faire des graphiques. Les graphiques se font dans excel et s'affiche dans excel, jusque là c
Exporter un graphique excel [ par Draconagi ]
Voila j'ai un document excel sur lequel il y a plusieurs tableaux et je génére un graphique à partir de ceux la. Le graphique est sur s
acces vers excel [ par Maybdb ]
bonjouren faite je creer un graphique depuis access mais a chaque fois que je veux exporter cette graphique vers excel; access m' exporte juste une f
exporter DataGridView vers Excel [ par Sofiadev ]
Bonjour, Je souhaite exporter une DataGridView développée sous VB.NET vers Excel avec les données ainsi que la mise en forme (couleur d'arrière des ce
Exporter un Treeview vers Excel en VB.Net [ par allahkarim ]
salut, comment peut-on exporter un Treeview vers Excel en vb.net? SVP! C'est tres urgent! Merci en avance. Abdelkarim
Vba: Excel >Word , Exporter un graph avec signet [ par flostralian ]
Salut à tous, Bonjour, Je souhaiterai exporter un graphique d'un classeur Excel, a un endroit précis avec un signet dans mon document Word. J'ai tro
iMPORTER ET EXPORTER LES DONNES EN VB / EXCEL/ADO.NET [ par hassnaa66 ]
Bonjour , Merci de m'aidé a résoudre mon problème, 1)Je veux importer les donnés de la part d'un document EXCEL et les insérer dans ma base donneés sq
Exporter base de donnée de sharepoint vers excel [ par leguedin67 ]
Bonjour à tous me revoila ^^ Je voulais savoir s'il était possible d'exporté des fichiers vers sharepoint sans passé par la méthode de excel car elle
Excel : Graphique en radar avec angles et aires des axes personnalisable [ par grmdu91 ]
Bonjour à tous, Les graphique en radar sont uniformiser par Excel (chaque axe a la même importance, et le même angle). Pouvez-vous me dire s'il est
|
Derniers Blogs
VMMAP EN MODE INSTRUMENTATION SUR SYSTèME 64BIT : ATTENTION à LA PLATEFORME CIBLE DU BUILD .NETVMMAP EN MODE INSTRUMENTATION SUR SYSTèME 64BIT : ATTENTION à LA PLATEFORME CIBLE DU BUILD .NET par coq
Si vous tentez d'utiliser VMMap en mode instrumentation* vous avez peut-être rencontré une erreur relativement peu explicite au lancement du profiling : Unable to launch application: "E:\Temp\ApplicationToProfile\ApplicationToProfile\bi...
Cliquez pour lire la suite de l'article par coq ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0 par Philess
L'extensibilité du Team Web Access
Le Web Access (site d'équipe) de Team Foundation Server a été complètement réécrit dans la version 2012 avec pas moins de 400.000 lignes de JavaScript. Ce nouveau modèle a été pensé pour offrir de grandes...
Cliquez pour lire la suite de l'article par Philess SIMULER FACILEMENT L'ENVOI DE MAILSIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson
il m'a été demandé, à plusieurs reprises, comment je faisais pour simuler l'envoi de mail lors de mes démos de Workflow Foundation. Ma solution est plutôt simple : j'utilise la configuration par défaut du SmtpClient et j'oriente les mails vers un dossier ...
Cliquez pour lire la suite de l'article par JeremyJeanson VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES !VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet
Si ce n'est déjà fait (comme plus de 600 personnes déjà), il est encore temps de voter pour le concours TOP 10 des influenceurs SharePoint francophones ! Il est organisé par harmon.ie et accessible ici : http://harmon.ie/top-...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Forum
RE : CALENDRIERRE : CALENDRIER par cmarcotte
Cliquez pour lire la suite par cmarcotte RE : CALENDRIERRE : CALENDRIER par cmarcotte
Cliquez pour lire la suite par cmarcotte RE : CALENDRIERRE : CALENDRIER par cmarcotte
Cliquez pour lire la suite par cmarcotte
Logiciels
Easy-Planning (4.5.0.11)EASY-PLANNING (4.5.0.11)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a... Cliquez pour télécharger Easy-Planning CVEasy (3.1.0.51)CVEASY (3.1.0.51)PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante.
PHMSD-C... Cliquez pour télécharger CVEasy LettresFaciles 2011 (8.6.0.31)LETTRESFACILES 2011 (8.6.0.31)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011 sDEVIS-FACTURES vlPRO (8.4.2.62)SDEVIS-FACTURES VLPRO (8.4.2.62)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO Devis-Factures PHMSD (2.1.0.11)DEVIS-FACTURES PHMSD (2.1.0.11)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD
|