Aller au contenu

macro et tableur


Tohrnoriac

Messages recommandés

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

Archivé

Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.

×
×
  • Créer...