[Résolu][Calc] Erreur (L'argument n'est pas facultatif)

[Kev74]

Bonsoir, avec ce code que j'ai crée et bidouillé :

Code : Tout sélectionner

Function Column_Row(N As Integer)

Dim oSheet As Object
Dim oCursor As Object
Dim fin_ligne As Long
Dim fin_colonne As Long 
Dim resultat As Variant   

oSheet = ThisComponent.Sheets.getByName("Feuille1")

ocursor = oSheet.createCursor()
oCursor.GotoEndOfUsedArea(True)


fin_ligne = oCursor.RangeAddress.EndRow
fin_colonne = oCursor.RangeAddress.EndColumn

'ReDim resultat(0 to 1) 
resultat = Array(fin_ligne,fin_colonne) 


Column_Row = resultat(N)
End Function

J'ai toujours l'erreur écrite dans le titre (l'argument n'est pas facultatif), mais vu que je veux choisir soit en fonction du paramètre 0 ou 1 de resultat, je suis obligé de le mettre dans les paramètres de ma Function, pour qu'il choisisse soit un, soit l'autre. Mais je ne sais pas comment remédier au problème.

Merci par avance et bonne nuit.

[Dude]

Salut,

Tu as codé une fonction qui réclame un argument. Si tu n'en passes aucun, tu as logiquement cette erreur.

Comme d'habitude, réponse faite hors contexte(*).

(*) Fournir le contexte signifie joindre un document explicatif et exhaustif permettant de comprendre et surtout reproduire la problématique.