Je suis débutante sur Libreoffice basic que je trouve plus ardu que le VBA d'excel en particulier sur l'utilisation du lexique pour pourvoir coder des choses simples comme on le ferait sur le tableur d'excel.
Voilà j'ai créé un tableau de la plage A4:H14 représentant une fiche d'apprentissage de verbes en Néerlandais. Je me fabrique une sorte de Becherel des verbes. Et en ce moment j'en ai plein le cerveau et je n'ai pas trop de temps pour me disperser.
J'ai procédé par le menu Outils/Macros/Enregistrer une macro... mais il s'avère qu'au moment d'exécuter la macro pour effacer le contenu des cellules non adjacentes : D4, F4 et la plage du contenu de C4:H14, et bien l'effacement est partiel.
Soit D4 (verbe en néerlandais) est bien effacé mais pas le reste. Ce qui est bizarre car j'ai déjà procédé à ce genre de technique pour une facture réalisée sur Calc avec des formules et cela marchait MAIS PAS ICI.
J'ai cherché à comprendre à m'aidant des réponses apportées au fil "Effacer des cellules déterminées sous calc" qui font apparaître plein de démonstrations de codes mais pour une néophyte comme moi ; franchement c'est du chinois; c'est pire que VBA où l'on trouve plus de solutions.
Donc j'ai bidouillé
sur le code en pensant compléter la référence des plages de cellules. Voilà le code ci-dessous en copier-coller que j'ai ouvert à partir du menu outils/macros/éditer la macro.
Code : Tout sélectionner
REM ***** BASIC *****
sub Effacer_fiche
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 = "$C7:$H14" mais ca ne fonctionne pas; il doit y avoir un ordre au niveau des
arguments, des termes "args1"(0).Name ou Value. Qu'es-ce que Topoint?
Code : Tout sélectionner
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "SVDN"
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())
end sub
Autre demande : y a-t-il un Manuel d'apprentissage ultra simple(je n'ai pas envie de devenir informaticien) du langageLibreoffice basic ? J'ai cherché sur moteur de recherche et j'ai vu que des choses assez compliquées qui ne traite pas de l'apprentissage à la base. Je ne comprends pas la méthodologie des différents termes : rem, dim, dispatcher... Je comprend uniquement ce que je retrouve sur vba avec "sub" et "end sub" pour dire
