Discussion :

[JPGO20]

Bonjour, C'est ma première question, donc ...

Voilà, j'utilise la fonction VLOOKUP ou RECHERCHEV dans mon code obasic.
Je recherche dans la plage A1:K100 de la feuille "Table"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'REM Déclaration de la plage **********************
Doc = ThisComponent
oSheet = Doc.Sheets.GetByName ("Table")     
LaPlage = oSheet.getCellRangeByName("A1:K100")
svc = createUnoService( "com.sun.star.sheet.FunctionAccess" )
SearchValue = 1 : Column = 2 :  Mode = 0
arg = Array(SearchValue, LaPlage, Column, Mode)
MonResultat = svc.callFunction("VLOOKUP",arg)

CELA FONCTIONNE

Cependant, pour certaines raisons, cette plage A1:K100 de la feuille "Table" variera dans le temps.

Donc dans ce but, j'ai défini la plage sous le nom TableDonnees avec Calc et je souhaite déclarer dans Basic
que la matrice de la fonction est cette plage définit avec Calc.
Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaPlage = Doc.NamedRanges.getByName("TableDonnees")

Pour le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

arg = Array(SearchValue, LaPlage, Column, Mode)

CELA NE FONCTIONNE PAS

Si quelqu'un à une réponse?
Merci

[njhub]

Bonjour JPGO20,

Si vous ne l'avez pas déjà fait, essayez avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaPlage = oSheet.getCellRangeByName("TableDonnees")

ou essayez avec "LaPlage2" pour déclarer la table de données

comme à mon avis, vous ne pouvez avoir deux instances de "LaPlage"

[JPGO20]

Merci du retour.
En fait, dans le but de simplifier, le code que j'ai montré est différent de l'original.
J'ai différencié le nom des instances comme proposé mais cela ne change rien.
J'ai mis un fichier .calc en PJ plus explicit sur la manip que j'aimerais faire.

Je voudrais réussir 3 manips :
1 - faire une déclaration public du nom de la plage utilisé Sous Calc "TableObjet"
2 - utiliser le nom de la plage déclaré public avec la fonction Vlookup
3 - Faire une déclaration public du service oFuncAcces = CreateUnoService("com.sun.star.sheet.FunctionAccess") et pouvoir l'utiliser avec
différentes fonctions calc dans le code.

Bonne journée

[njhub]

Bonjour JPGO20,

Si vous ne l'avez pas déjà fait, je vous invite à télécharger les fichiers disponibles en suivant ce lien :

LibOBasic_8_Params_Flat_A4_FR_v102a.odt

LibOBasic_7_Files_Flat_A4_FR_v113.odt

LibOBasic_6_Dialogs_Flat_A4_FR_v104.odt

LibOBasic_5_ExecLib_Flat_A4_FR_v111.odt

LibOBasic_4_Events_Flat_A4_FR_v101.odt

LibOBasic_3_Calc_Flat_A4_FR_v113.odt

LibOBasic_2_Overview_Flat_A4_FR_v111.odt

LibOBasic_1_IDE_Flat_A4_FR_v104.odt

LibO_primitives_v0ae.odt

LibO-Primitives

Peut-être que la fonction ci-dessous pourrait convenir

GetNamedRange()
Function GetNamedRange(ByRef pSheetName As String, pRangeName As String, Optional ByRef pDoc As Object) As Object
Returns a range object from a sheet name and the range name.
Input
• pSheetName: the sheet name
• pRangeName: the searched range name.
The range name is a user-defined name (ex. MyRange).
The range name may apply to any range type: single cell, single range, multiple range or named range.
• pDoc: (optional) the document object.
Defaults to the current spreadsheet.
Output
The range object or Null if not found.

[JPGO20]

Bonjour et merci de la collaboration.
Les fichiers LibObasic du téléchargement me seront très utiles.

Mon sujet était ouvert pour que je puisse simplifier un programme plus ambitieux sur le quel je suis en ce moment .
Cependant je n'y arrive pas et j'avoue que je n'ai pas beaucoup de temps à y consacrer.
Donc je fais le choix de continuer sur le programme en question et je verrais plus tard pour la simplification.
Bravo à ce site et aux collaborateurs.