[Résolu] [Calc] Modifier MouseMove du VBA

[Grande Ourse]

Bonjour,

Sur l'onglet Brassage, dans la colonne A, j'ai 3 MouseMove "stock" des grains, houblons et levures ne fonctionne pas et j'ai le message suivant:
Une erreur de structure de script s'est produite lors de l'exécution du script VBAProject.Feuil1.Label1_MouseMove en Basic.
Message : wrong number of parameters! at C:/cygwin64/home/buildslave/source/libo-core/scripting/source/basprov/basscript.cxx:199

Le code VBA doit être changé pour du code Basic, mais je n'ai pas trouvé d'exemble et d'information si Basic acceptait un MouseMove.

Une autre possibilité serait de remplacé le Mousemove par un bouton active x avec comme code :
If ActiveSheet.Shapes("Stock grains").Visible = False Then
ActiveSheet.Shapes("Stock grains").Visible = True
Else
ActiveSheet.Shapes("Stock grains").Visible = False
End If

Mais je ne sais pas si cela fonctionnerait en Basic.

Si vous pouvez me donner une piste de la solution cela serait très apprécié.

Merçi.

[Oukcha]

Bonjour et bienvenue,



Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://user.services.openoffice.org/fr/ ... html#27295

Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Merci de votre collaboration.

[Grande Ourse]

Bonjour Oukcha,

J'ai baliser le titre en espérant que cela convienne.

merçi.

[Dude]

Salut,

Une autre possibilité serait de remplacé le Mousemove par un bouton active x

VBA, ActiveX, tout cela sont des notions Microsoft incompatibles avec OpenOffice ou ses dérivés.
Je t'avais déjà répondu sur ce point dans ta précédente question.

Explique nous quel est l'intérêt d'avoir une écoute du déplacement de souris dans un classeur ?
D'autant plus qu'une gestion de stock est du ressort d'une base de données et non d'un tableur.

[Grande Ourse]

Bonjour Dude,

Effectivement quelques explications peuvent aider.

À la feuille Brassage, l'onglet "stock" des grains sert à afficher momentanément ce qu'il y a en inventaire sur la feuille Stock entre les colonnes A3 @ C25.
Présentement, l'évènement du contrôle est à Souris déplacé --> VBAProject.Feuil1.Label2_MouseMove (document, Basic).
Je me demande si ce serait plus judicieux d'utiliser les évènements "souris intérieur" et "souris extérieur" avec
un code similaire à celui-ci trouvé sur le site.

Code : Tout sélectionner

Sub Afficher(oEv as Object)
Dim oForm as Object, monEtiquette as Object
        oForm = oEv.Source.Model.Parent
        monEtiquette = oForm.getByName("CmdLeg")
        monEtiquette.Label = "Texte à afficher"
End Sub

Sub Effacer(oEv as Object)
Dim oForm as Object, monEtiquette as Object
        oForm = oEv.Source.Model.Parent
        monEtiquette = oForm.getByName("CmdLeg")
        monEtiquette.Label = ""
End Sub

Re: [Résolu][Base] Afficher texte avec MouseMove
•
Par Piaf» 28 avr. 2016 07:36
Re
oEv est l'événement déclenchant la macro (Souris à l'intérieur ou Souris à l’extérieur).
oEv.Source est l'objet sur lequel l'événement est surveillé (Le bouton).
oEv.Source.Model, le modèle de l'objet.
oEv.Source.Model.Parent le parent du modèle d'objet (le formulaire).
Pour les événements, tu disposes de tous les événements listés dans l'onglet Événements des propriétés du contrôle.

Le code affiche un texte; moi je voudrais afficher momentanément une image des cellules A3@ C25. Est-ce possible en Basic.

Merçi de votre aide.

[Oukcha]

Merci de faire un effort quant à la rédaction de vos messages.

Afin de conserver une certaine lisibilité, j'ai :

• Indiqué l'url du fil de discussion
• Balisé la macro
• Balisé la citation

Je vous prie de faire de même à l'avenir,

Cordialement

[Dude]

je voudrais afficher momentanément une image des cellules A3@ C25. Est-ce possible en Basic.

Pas besoin de macro pour ça. Il suffit de mettre une image en commentaire.
Se servir de l'extension PicCom pour faire l'opération.

Je me demande si ce serait plus judicieux d'utiliser les évènements "souris intérieur" et "souris extérieur"

Bof, et qu'est ce qui se passe si tu utilises le clavier ? L'événement ne se déclenchera pas.
Il vaut mieux utiliser les événements de feuille existants :

[Grande Ourse]

Bonjour Dude,

L'extension PicCom est très intéressante mais ne fonctionne pas içi car c'est une image fixe dans le temps, alors que j'ai besoin d'une image des cellules A3 @ C25 qui va être modifier dans le temps en fonction de l'inventaire. voir ce vidéo de l'auteur du tableur entre les minutes 13:12 @ 14:00
https://youtu.be/VcwZtGPQMKc

Pour ce qui est des évènements de feuilles; ta vidéo est sur OpenOffice alors que je suis sur LibreOffice, donc je ne peux suivre ton cheminement.
Sur LibreOffice, si je fait Feuiile --> évènements -->activer le document -->OK, il ne se passe rien.

Salutations,

[Dude]

j'ai besoin d'une image des cellules A3 @ C25 qui va être modifier dans le temps en fonction de l'inventaire

Générer une image dynamiquement est un tout autre problème qui n'a plus rien à voir avec ton histoire de souris.
Merci de créer un nouveau fil avec par exemple comme titre "[Calc] Générer une copie écran d'une plage"

Sur LibreOffice, si je fait Feuiile --> évènements -->activer le document -->OK, il ne se passe rien.

[Grande Ourse]

Merçi Dude,

Un expert comme toi nous permet d'avancer, surtout lorsque nous n'utilisons pas les bons termes pour décrire ce que nous voulons réaliser.

Salutations,

Et encore une fois, ne pensez-vous pas qu'il faudrait fournir un lien vers la nouvelle question ?
La suite ici : viewtopic.php?t=69047
Merci de ne pas penser qu'à vous mais plutôt à ceux qui font des recherches dans ce forum.