Comme je ne trouve pas plus simple avec les fonctions "de base" (mais cela existe peut-être), je propose ci-dessous un exemple de fonction créée par macro. Cette fonction ne peut être copiée dans un module de la bibliothèque Standard d'OOo car elle provoquerait un message d'erreur à l'ouverture du classeur. Il faut donc la copier dans un module du classeur. Elle sera disponible dans toutes les feuilles.
On l'utilise ensuite dans le classeur de la manière suivante :
=PYSCROISE("Martin";"Salaire";A1:G8 )
Nota :
- passer les noms en arguments sous la forme lig;col (autrement dit Martin est en ligne, Salaire en colonne)
- de plus on les passe en texte (entourés de guillemets)
- A1:G8 est la plage complète. Ceci permet de mettre à jour le résultat automatiquement si la plage de données est modifiée. On peut mettre aussi un nom, ce qui est plus pratique. Par exemple :
=PYSCROISE("Martin";"Salaire";MaPlage)
- Dans ce cas, c'est la plage que l'on passe, donc on ne met pas les guillemets...
- si le nom de la fonction ne vous convient pas, il suffit de modifier toutes ses occurrences dans le code (8 si je ne m'abuse)
Code : Tout sélectionner
function PysCroise(PysNom1, PysNom2, PysPlage)
dim PysCell as object, PysLig as integer, PysCol as integer, PysFeuille as integer
if thiscomponent.NamedRanges.hasByName(PysNom1) and thiscomponent.NamedRanges.hasByName(PysNom2) then
if thiscomponent.NamedRanges.getByName(PysNom1).ReferencePosition.sheet =_
thiscomponent.NamedRanges.getByName(PysNom2).ReferencePosition.sheet then
with thiscomponent.NamedRanges.getByName(PysNom1).ReferencePosition
PysFeuille = .sheet
PysLig = .row
end with
PysCol = thiscomponent.NamedRanges.getByName(PysNom2).ReferencePosition.column
PysCell = thiscomponent.sheets(PysFeuille).getCellByPosition(PysCol, PysLig)
select case PysCell.Type
case com.sun.star.table.CellContentType.EMPTY
PysCroise = ""
case com.sun.star.table.CellContentType.TEXT
PysCroise = PysCell.string
case com.sun.star.table.CellContentType.VALUE
PysCroise = PysCell.value
case com.sun.star.table.CellContentType.FORMULA
PysCroise = PysCell.value
case else
PysCroise = "#Type?"
end select
else
PysCroise = "#Feuilles<>"
end if
else
PysCroise = "#Noms N/A"
end if
end function
