Changement d'image dans openoffice calc ou excel

Changement d'image dans openoffice calc ou excel - Logiciels - Windows & Software

Marsh Posté le 17-10-2008 à 17:06:02    

Bonjour,  :hello:  
 
Je voudrais votre aide, car je souhaiterais changer d'image en fonction de condition sur une feuille openoffice calc. je m'explique
 
Si la case A1=1 => afficher l'image 1 et cacher l'image 2 et 3
Si la case A1=2 => afficher l'image 2 et cacher l'image 1 et 3
Si la case A1=3 => afficher l'image 3 et cacher l'image 1 et 2
 
Mais je ne souhaite pas avoir les images dans un dossier et les appeller grace a leurs emplacements, le fichier a pour vocation d'etre telecharger et deplacable a souhait. Je prefererais que les images soient dans le fichier excel et que je les affiche et je les cache en fonction des conditions.
 
Si il y a une solution avec des macros, voudriez vous  m'expliquer depuis le debut comme cela fonctionne car je suis novice en macro. :??:  
 
Merci de votre aide
@+

Reply

Marsh Posté le 17-10-2008 à 17:06:02   

Reply

Marsh Posté le 18-10-2008 à 07:47:09    

Bonjour,
est-ce lié à ton autre poste sur les liens?
Désires-tu avoir tes images sur une feuille et les cacher toutes sauf une? ou avoir chaque image sur une feuille séparée et afficher la feuille qui correspond à celle que tu désires?
 
Pour t'initier aux macro, tu peux enregistrer quelques manips et regarder dans le code ce que cela donne.
Bon samedi


Message édité par seniorpapou le 18-10-2008 à 07:47:38
Reply

Marsh Posté le 18-10-2008 à 15:18:28    

Salut,
 
Effectivement c'est le même fichier que celui avec les liens.
 
Les images seront sur la même feuille, et je voudrais en afficher une selon la condition et forcement cacher les autres, et ainsi de suite.
 
Pour les macros je n'en ai jamais fait donc je ne sais pas vraiment ou cela se passe et comme cela fonctionne!
 
Merci de ton aide
Bon WE :)  
 
PS: j'ai supprimé les sujets sur l'autre poste.

Reply

Marsh Posté le 18-10-2008 à 16:46:33    

Bonsoir,
en espérant que sauras ajouter cette macro et la lancer:
 
Sub Macro1()
'
''
 
'
     choix = Range("a1" )
     For Each Sha In ActiveSheet.Shapes
         Sha.Visible = True
     Next
    ActiveSheet.Shapes("picture 1" ).Visible = (choix = 1)
    ActiveSheet.Shapes("picture 2" ).Visible = (choix = 2)
    ActiveSheet.Shapes("picture 3" ).Visible = (choix = 3)
     
     
    End Sub
 
 
 
picture 1, picture 2, etc...étant les noms de tes images.  Pour voir le nom de chaque image tu clic dessus et au dessus de la colonne A tu as une case où s'affiche le nom de l'image. Attention, si tu lis  Image 2, il te faudra mettre: picture 2. Tu peux aussi changer le nom de l'image en cliquant dans la case indiquée ci dessus et en remplaçant le nom par défaut par un nom de ton choix. As-tu beaucoup d'images???


Message édité par seniorpapou le 18-10-2008 à 16:51:40
Reply

Marsh Posté le 18-10-2008 à 20:23:47    

Bonsoir et merci,
En fait ce que je ne sais pas c'est où je dois aller dans openoffice pour éditer les macros.
Car je fais pour l'instant :
Outil -> Macro -> Gérer les macros -> OpenOffice.org BASIC
ensuite je crée une nouvelle macro et je clique sur éditer et il m'ouvre une page avec :
 
  Sub Main
 
  End sub
 
Et se que je connais en programmation, c'est que le main est une classe générale d'organisation. Mais là je ne vois pas où je peux mettre ta fonction.
 
J'ai essayé de coller ta fonction dans cette page en remplaçant "sub main" par "Sub Macro1()" mais quand je lance la macro, la première ligne est déjà fausse et même en la mettant en commentaire la suivante est fausse! alors je pense que je ne suis pas au bonne endroit!
 
Mais je ne sais pas où aller d'autre!
 
J'ai environ une dizaine de photos, pas un grand nombre!
 
Merci de ton aide
a+

Reply

Marsh Posté le 18-10-2008 à 20:48:50    

Bonsoir,
je ne posséde qu'Excel , j'ignore les contraintes d'open office (j'ignore tout d'open office d'ailleurs), mais dans le titre de ton sujet tu as mis excel,   peux-tu essayer avec excel??

Reply

Marsh Posté le 19-10-2008 à 19:50:19    

Bonsoir,
 
J'ai essayé avec Excel ça semble fonctionner mais il y a un message d'erreur au moment où je lance la macro et si je change la variable il faut que je relance la macro pour que cela fonctionne. Mais cette solution ne marche pas sous openoffice calc, car je pensais que les fonctions étaient les mêmes!
 
Par contre je voudrais une solution sous open office car je suis obligé de travail avec, et il semblerait que les fonctions sont différentes.
 
Aidez moi s'il vous plait.
 
merci @+

Reply

Marsh Posté le 19-10-2008 à 20:07:54    

Bonsoir,
pour excel, quel est le message d'erreur?  A la limite ce n'est pas grave si tu n'as pas l'intention de l'utiliser.
 
j'ai chargé open office pour voir, la syntaxe est totalement différente. J'ai trouvé un convertisseur excel -> basic  mais il n'a rien trouvé d'équivalent.
 
L'enregistreur de macro de calc ne donne rien si on change la taille d'une image, alors, si un spécialiste d'open office passe par là......
 

Reply

Marsh Posté le 20-10-2008 à 17:01:01    

Je te remercie de ton aide senior papou,
 
Mais quand j'ai voulu reouvrir le fichier excel, la macro de changement d'image ne voulait plus s'executer.  
 
Je n'ai toujours rien trouve sous openoffice alors si quelqu'un peut m'aider a faire un changement d'image en fonction de condition sur une feuille openoffice calc, de tel sorte que:
Si la case A1=1 => afficher l'image 1 et cacher l'image 2 et 3
Si la case A1=2 => afficher l'image 2 et cacher l'image 1 et 3
Si la case A1=3 => afficher l'image 3 et cacher l'image 1 et 2  
 
Merci de votre aide
a+

Reply

Marsh Posté le 22-10-2008 à 13:26:16    

Bonjour,
 
 :??: Quelqu'un aurait t'il une idee pour afficher et cacher une image en fonction d'une valeur dans une case?
 
comme cela :
Si A1=1 => afficher l'image 1 et cacher l'image 2 et 3
Si A1=2 => afficher l'image 2 et cacher l'image 1 et 3
Si A1=3 => afficher l'image 3 et cacher l'image 1 et 2
 
 ;) Dans mon fichier il y aura seulement 4 images a cacher et a afficher!
 
Merci de votre aide : :wahoo:
a+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed