[Résolu][Calc] "Value Out of scope" à l'assignation

[clduick]

Bonjour,

C'est la deuxième fois que je rencontre se problème sans comprendre pourquoi.
Lorsque j’exécute ma macro via l'Editeur Basic ma macro "d'amateur" fonctionne correctement. Mais dès que je l'assigne sur mon Bouton qui se trouve en feuille 3 elle est en erreur.
J'active le "témoin dans l'éditeur" , et quand je clique sur mon Bouton j'ai "Variable Sub" "Valeur Out of Scope"

Pouvez vous m'aider ?

Code : Tout sélectionner

sub ResultatRechecheSimple 

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 = "Nr"
args1(0).Value = 3
 
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())



rem 'J'ai rajoouté cette arguments pour voir si le bouton fonction mais rien ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$AG$21"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2()) 

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$21:$AG$21"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 4

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())

rem ----------------------------------------------------------------------

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$D$4:$D$34"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
'dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, array())

rem j'ai rajouté cette args pour voir si c'était mon ClearContents qui se m'était en erreur mais tjs rien------------
dim args0(0) as new com.sun.star.beans.PropertyValue
args0(0).Name = "Flags"
args0(0).Value = "SVDFN"

dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args0())

rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$D$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6()) 

rem ----------------------------------------------------------------------
dim args8(5) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVDF"
args8(1).Name = "FormulaCommand"
args8(1).Value = 0
args8(2).Name = "SkipEmptyCells"
args8(2).Value = false
args8(3).Name = "Transpose"
args8(3).Value = true
args8(4).Name = "AsLink"
args8(4).Value = false
args8(5).Name = "MoveMode"
args8(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args8())



'dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6()) 


end sub

[Bidouille]

Bonjour,

Avec autant de messages à votre compteur, je vous fais un petit rappel des règles (cf. bandeau rouge).

1. "Problème" et "macro" sont inutiles dans un titre, toutes les questions ici traitent forcément de problème de macro.
2. Veuillez fournir systématiquement un document intégrant la macro afin de faciliter les réponses.
3. Ajoutez des copies écran si un message d'erreur se produit afin d'illustrer la problématique décrite.

[jeanmi2403]

Bonjour,
Recopier et bricoler le code fourni par l'enregistreur de macros, à grands coups de Dispatcher n'est pas une bonne méthode.
Fournissez un fichier en expliquant ce que vous cherchez à obtenir.
Cordialement,

[clduick]

Bonjour,
Désolé pour l'intitulé du sujet.
Et en plus j'ai oublié de mettre la PJ.

Voici un exemple, de bon fonctionnement avec l’éditeur, mais ne fonctionnement pas avec le "Bouton". La suppression des données dans la plage D4:D36 est nécessaire dans la macro.

Merci pour votre aide.

[Dude]

La suppression des données dans la plage D4:D36 est nécessaire dans la macro.

Code : Tout sélectionner

Sub EffacePlage
	oDoc = ThisComponent
	oFeuille = oDoc.Sheets.getByName("Résultat Simple")
	oPlage = oFeuille.getCellRangeByName("D4:D36")
	oPlage.ClearContents(7) 'voir le Wiki pour le nombre à passer en paramètre
End Sub

https://wiki.openoffice.org/wiki/FR/Doc ... _Documents

[Jurassic Pork]

hello,
voici une solution sans utiliser le dispatcher :

Code : Tout sélectionner

Sub CopyPasteWithTranspose
Dim data,fa,Doc, Sheets, SheetCopy, SheetPaste, CopyAddress, PasteAddress
Doc = ThisComponent
Sheets = Doc.Sheets()
SheetCopy = Sheets.getByName("Données")
SheetPaste = Sheets.getByName("Résultat Simple")
CopyRange = SheetCopy.getCellRangeByName("C21:AI21")
PasteRange = SheetPaste.getCellRangeByName("D4:D36")
PasteRange.ClearContents(7)
fa = createUnoService("com.sun.star.sheet.FunctionAccess")  
data = fa.callFunction("TRANSPOSE", Array(CopyRange))
PasteRange.DataArray = data
End Sub

Ami calmant, J.P

[clduick]

Un grand merci à vous.
Si je comprends bien l'utilisation de "dispatcher" en trop grand nombre fait perdre les pédales de la macro ?
J'utilise rarement les macro, mais je m’aperçois que si nous voulons une macro solide avec plusieurs args il faut passer à la programmation.
Encore un grand merci de votre aide et votre rapidité.
J'ai pas encore fini avec ce fichier, je vais m’efforcer de ne pas utiliser l’enregistrement de macro et les modifier (le plus simple pour mon niveau). Mais je pense que j’aurais encore besoin d’aide.
Encore un grand merci de votre aide et votre rapidité.

[micmac]

Pour baliser un problème résolu il est d'usage

1. d'ajouter manuellement au début du titre de votre premier message la balise [Résolu] (avec un R majuscule et sans oublier le e accentué, le tout entre crochets [ ])
2. et de cocher l'icône

Adaptez la longueur du titre à 60 caractères maximum, balises comprises.

[jeanmi2403]

Bonjour,

J'ai pas encore fini avec ce fichier, je vais m’efforcer de ne pas utiliser l’enregistrement de macro et les modifier (le plus simple pour mon niveau). Mais je pense que j’aurais encore besoin d’aide.

Il suffit de préciser vos besoins, et vous trouverez ici de l'aide pour construire les briques de votre programme...
Bonne soirée

[clduick]

Pour baliser un problème résolu il est d'usage

1. d'ajouter manuellement au début du titre de votre premier message la balise [Résolu] (avec un R majuscule et sans oublier le e accentué, le tout entre crochets [ ])
2. et de cocher l'icône

Adaptez la longueur du titre à 60 caractères maximum, balises comprises.

Oui je sais, merci.