Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
681 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA Visio 2010] Récupérer des données de formes

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA Visio 2010] Récupérer des données de formes

n°2162378
ashallar
Posté le 03-11-2012 à 03:28:20  profilanswer
 

Salut, j'aurais aimer savoir comment récupérer les données de formes des différentes formes que l'ont a sur la page active en VBA ?
 
Je ne suis pas du tout un pro du VBA donc je vous pose surement une question très bête mais a laquelle je n'ai pas de réponse ! :)
 
Merci d'avance pour votre réponse, Cordialement.

mood
Publicité
Posté le 03-11-2012 à 03:28:20  profilanswer
 

n°2162410
Je@nb
Kindly give dime
Posté le 03-11-2012 à 16:26:59  profilanswer
 
n°2162489
ashallar
Posté le 05-11-2012 à 01:51:09  profilanswer
 

Salut Je@nb, merci beaucoup pour ta réponse, j'ai regarder un peu tout cela et ça à l'air de fonctionner selon mes tests.
 
En revanche, une autre question se pose, dans l'idée, j'aimerais parcourir toutes les formes qu'il y a sur ma page active, récuperer les données de formes, formes après formes, regarder leur valeur jusqu'a ce que je trouve la bonne.
 
Je sais donc comment accéder aux données d'une formes, mais je ne sais pas parcourir la page active à la recherche de la bonne forme.
 
Je n'ais vraiment aucune idée de comment faire ça, j'ai tester un  
 
Msgbox (ActiveWindow.Shape.Name)
 
Qui me renvois "Lapage", je ne sais pas si Shape est un tableau que l'on peut parcourir ?
 
Msgbox (ActiveWindow.Shape(1,2,3...).Name)
 
Merci d'avance pour ta réponse !

n°2162565
Je@nb
Kindly give dime
Posté le 05-11-2012 à 14:41:05  profilanswer
 

Essaie un truc comme ça :

Code :
  1. Option Explicit
  2. Public Sub Shapelist()
  3.    
  4.     Dim shpObjs  As Visio.Shapes
  5.     Dim shpObj   As Visio.Shape
  6.     Dim celObj   As Visio.Cell
  7.     Dim i        As Integer
  8.    
  9.    
  10.     Set shpObjs = ActivePage.Shapes
  11.    
  12.  
  13.     For i = 1 To shpObjs.Count
  14.         Set shpObj = shpObjs(i)
  15.       MsgBox(shpObj.Name)
  16.     Next
  17.    
  18.      'Clean up
  19.     Set celObj = Nothing
  20.     Set shpObj = Nothing
  21.     Set shpObjs = Nothing
  22. End Sub


Message édité par Je@nb le 05-11-2012 à 14:44:56
n°2164124
ashallar
Posté le 15-11-2012 à 14:36:02  profilanswer
 

merci beaucoup :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA Visio 2010] Récupérer des données de formes

 

Sujets relatifs
Code VBA (Revue analytique de 2 Balances)[VBA] help formules personnalisées
(VBA) excel 2003 erreur 1004[PERL] Récupérer des données dans un fichier txt
(VBA) Insertion automatique d'un n°Défilement données ListBox
Excel 2010 - Eviter l'actualisation du workbook quand...[VBA] SaveAs sous 2007
pbl d'ajout données hexa dans le registre à partir d'un VBS 
Plus de sujets relatifs à : [VBA Visio 2010] Récupérer des données de formes


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR