Tohrnoriac Posté(e) le 22 octobre 2005 Partager Posté(e) le 22 octobre 2005 bonjour amis programmeur je suis un petit programmeur qui en fait seulement a l'ecole (QB, la rigolade quoi!) en ce moment je trie des affiche pour le cinema ou je suis benevole et une fois qu'elle seront toutes triée, je veux faire une feuille excel ou on ajoute les film pour que ca soit trié tout seul pour cela je veux faire de cases où les infos seront prises (au debut de la feuille, ex : nom du film, nbre d'affiches grandes et petites) puis en appuyant sur un bouton on declanche une macro qui va regarder la 1° lettre du nom du film puis classer le film avec les infos se rapportant a lui (affiches) dans la bonne section (ex: hulk --> section H) le bouton c bon par contre pour chercher les infos, j'y arrive pas ca ne me met que les n° des cases (ex B6:H6 mais pas ce qu'il y a dedans), en utilisant les syteme macro auto (car je ne sais pas comment il fallait faire pour aller chercher dans la feuille du tableur les macros sont ecrite en basic donc pas tres different du quick basic j'utilise le tableur d'open office, (et si possible faudrai que ca marche sur excel aussi) je ne demande pas de m'ecrire le prgm mais juste de me donner les commandes pour chercher les infos et pour envoyer a l'endroit voulu. j'ai pas mal cherché dans l'aide mais c pas super et sur le net, j'ai pas trouvé grd chose merci de votre aide, en esperant que c pas trop compliqué pour le moment j'ai ca : sub Main rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = B6:E6 'dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) DIM sVar As String sVar = "Las Vegas" Print args1(0).value REM Aucun événement end sub ya des truc je ne sais pas c quoi n'y a t-il aps une maniere plus simlpe d'aller chercher les données pour ceux qui comprennent pas je cherche un commande basic pour aller chercher une ou plusieurs donnée dans des cellules (je connais les variables composée) et une commande pour l'envoyer dans la bonne section c'est si dur que ca ? Lien vers le commentaire Partager sur d’autres sites More sharing options...
Tohrnoriac Posté(e) le 27 octobre 2005 Auteur Partager Posté(e) le 27 octobre 2005 ben personne connais ??? bizarre, c juste du basic pourtant Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Archivé
Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.