[Résolu] [Calc] Bouton - Erreur d'exécution Basic >1>

[Grande Ourse]

Bonjour,
Au transfert d'un tableur Excel sur LibreOffice, j'ai un problème avec l'exécution d'un bouton sur deux feuilles.

Sur la feuille "Houblons" lorsque je clic sur le bouton "Ajout" j"ai un message d'erreur d'exécution Basic"1".
Même problème avec le bouton "Ajout" de la feuille "Levures".

Le bouton "Ajout" a pour instruction l'ajout d'une variété de houblon ou de levure supplémentaire à la suite de la dernière variété listée.

J'ai cherché sur le forum et dans l'aide de LibreOffice mais je n'ai rien trouvé qui pourrait résoudre ce problème. Pourtant cela fonctionne bien sous Excel.

Merçi de votre aide.

[Oukcha]

Bonjour,

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 : sutra27295.html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. 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.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[Dude]

Salut,

Au transfert d'un tableur Excel sur LibreOffice, j'ai un problème avec

Tu viens de poster la question qui tue.

Sur la feuille "Houblons" lorsque je clic sur le bouton "Ajout" j"ai un message d'erreur d'exécution Basic"1".

Je ne reproduis pas sous OpenOffice. Le clic m'amène sur la ligne 227 de la feuille :

no_problemo.gif

[Grande Ourse]

Bonjour Dude,

Merçi pour le retour.

Hier, j'ai fait certains tests.
J"ai revalider avec le fichier sur mon ordinateur (celui que j'ai fourni sur le forum) et cela ne fonctionnait toujours pas.
J'ai téléchargé le fichier que j'ai fourni sur le forum et le bouton de l'onglet houblon fonctionne tandis que celui des levures me ramène à la première ligne au lieu de la dernière et pourtant c'est le même code que celui de l'onglet houblon.
J'ai mis à jour LibreOffice avec la version 7.6.6.3 sous Window7, J'ai testé le fichier du forum; Houblons fonctionne, mais levure ramène à la première ligne.
J'ai installé OpenOffice et cela ne fonctionne pas du tout.
Ce matin, j'ouvre le fichier avec LibreOffice et les deux boutons ne fonctionne pas alors qu'ils fonctionnaient hier soir.

Mystère ou est le problème.

Salutations,

[Dude]

J'ai installé OpenOffice et cela ne fonctionne pas du tout.

Je te prouve pas une animation que cela fonctionne pourtant.

Mystère ou est le problème.

Relis ce que je t'ai écrit :

Tu viens de poster la question qui tue.

Tu seras dans une impasse tant que tu t’évertueras à vouloir exécuter du VBA :

Code : Tout sélectionner

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Ajout_Click()
 Dim Derrec As Long
        Derrec = Range("D400").End(xlUp).Row

       Cells(Derrec + 1, 1).Select
End Sub

Pour aller en dernière ligne de la feuille, l'enregistreur de macro donne :

Code : Tout sélectionner

sub Ajout_Click
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())

end sub

[Grande Ourse]

Bonjour Dude,

J'ai bien lu votre message et j'ai bien vue la vidéo. Est-ce que j'ai tout compris; surement pas.
J'avais validé; Option VBASupport 1, est bien la.
Outils▸Options▸LibreOffice▸Avancé▸Fonctionnalités optionnelles. L'enregistreur de macros est bien coché.

Maintenant, je ne comprends pas le message qui suit:
Pour aller en dernière ligne de la feuille, l'enregistreur de macro donne :

sub Ajout_Click
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())

end sub

Est-ce que je dois enregistrer ce code à quelque part ou le validé.

Une piste S.V.P.

Merçi.

[jeanmimi]

Bonjour,

Sur la feuille "Houblons" lorsque je clic sur le bouton "Ajout" j"ai un message d'erreur d'exécution Basic"1".

Avec ma version actuelle de LO 24.2, le clic sur le bouton Ajout de la Feuille Houblons m'amène à la ligne 227, cellule A227

Même problème avec le bouton "Ajout" de la feuille "Levures".

Avec ma version actuelle de LO 24.2, le clic sur le bouton Ajout de la Feuille Levures m'amène à la ligne 2, cellule A2

[Grande Ourse]

Bonjour Jeanmimi,
Pour la feuille Houblons, cellule A227 c'est correcte.
Pour la feuille levure, Cellule A2 cela devrait mener à la cellule A407.

Dude m'a donné le code mais je ne sais pas ou il doit être intégré.

Merçi pour tes observations.

[jeanmimi]

Pour la feuille levure, Cellule A2 cela devrait mener à la cellule A407.

En observant l'action de la Macro, le curseur semble faire un aller retour rapide avec une cellule en base de feuille puis se positionner en cellule A2.

Dude m'a donné le code, mais je ne sais pas où il doit être intégré.

En pratique, le code doit remplacer celui de la Macro de l'Onglet Feuil15 (Levures)

[Grande Ourse]

Bonjour Jeanmimi,

C'est quoi la procédure pour remplacer le code?

Salutations,

[Dude]

Le lancement de macro depuis un bouton est expliqué ici : viewtopic.php?t=40146

Si tu débutes, il faut simplifier chaque tâche que tu tentes de faire en limitant le document à la seule problématique.
Cela permet de comprendre la technique et t'évitera de patauger :

[Grande Ourse]

Bonjour Dude,

Merçi pour la solution, je vais relire le tout à nouveau.


Salutations,