Discussion :

[madvic]

Bonjour,

Je souhaite créer une fonction qui me renvoit une plage, la voici simplifier pour le forum :

Code :

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

1
2
3
4
5
function PlageRecherche()
	Dim Feuille as object
	Feuille = ThisComponent.Sheets.getByName( "test" )
	PlageRecherche= Feuille.getCellRangeByPosition( 0, 1, 2, 33 )
End function

Maintenant je souhaite l'utiliser dans mon tableur, voici un copie d'écran qui montre l’utilisation de RECHERCHEV puis de remplacer la plage "matrice" par ma fonction :


On remarque que l'objet "plage" renvoyé dans RechercheV ne fonctionne pas (err 504).
Comment traduire cet objet en donnée matrice pour la fonction RechercheV ?

Pourtant la fonction RECHERCHEV utilisé dans les macro prend bien en compte l'objet "plage".

Merci

[zoom61]

C'est normal que cela ne fonctionne pas, car l'utilisation d'une fonctionne te ramène une valeur numérique ou textuelle), mais pas une plage.
Soit, dans ce cas, il faut faire la formule dans la macro et ne récupérer que la valeur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function PlageRecherche() as String
    Dim monDocument As Object
    Dim lesFeuilles as Object
    Dim maFeuille As Object
    Dim maCellule1 As Object, maCellule2 As Object
    Dim Valeur1 As string, Valeur2 As String
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
    maCellule1 = ThisComponent.CurrentSelection
    maCellule2 = maFeuille.getCellRangeByName("E1")
    Valeur1 = maCellule2.Value
    for i = 1 to 33
        maCellule2 = maFeuille.getCellByPosition(0, i)
        Valeur2 = maCellule2.Value
        if Valeur1 = Valeur2 then
            maCellule2 = maFeuille.getCellByPosition(1, i)
            maCellule1.Value = maCellule2.String
        end if
    next
End function

[madvic]

Merci pour té réponse.
Je suis très étonné que l'on ne puisse pas récupéré une plage.
Effectivement en attendant, j'ai du passé par là pour continuer mon dev.
merci