Bonjour,
Je voudrais ajouter quelques précisions pour les personnes qui viennent
du VBA Excel
* L'équivalent strict de Cells (qui, au passage, n'est pas une
fonction mais une collection d'objet) est oCell =
oSheet.GetCellByPosition(0, 0) (oCell =
oSheet.GetCellRangeByPosition(0, 0) fonctionne aussi mais,
normalement, on obtient l'équivalent d'un objet Range VBA)
* La numérotation des lignes et des colonnes commence à 0 et non à 1
* Les coordonnées sont sous la forme Colonne,ligne et non ligne
colonne -> GetCellByPosition(2,1) représente C2 (et non A2)
* Ne pas confondre la propriété Value de VBA (qui donne un contenu de
type Variant) et Value du Basic LO (qui donne un contenu de type
numérique strict)
* Une dernière chose assez subjective : c'est vrai que c'est souvent
moins long à écrire en VBA mais ça donne de très mauvaises
habitudes.. en VBA aussi, on devrait définir le classeur, la
feuille.. etc, ça donne un code plus solide. ;)
Christian F
Le 08/07/2018 à 22:30, Jean-Francois Nifenecker a écrit :
Bonjour Philippe,
Le 08/07/2018 à 21:46, demande_aide...@libreoffice.org a écrit :
Dans Calc, j'aimerai récupérer le contenu d'une cellule dans une
macro (C'est la fonction cells sur Excel).
Si vous répondez, merci de penser à utiliser la fonction "répondre à
tous" de votre logiciel de courrier électronique de façon que la liste
reçoive une copie de votre réponse.
Pour accéder à une cellule d'une feuille il faut connaître la feuille.
Dim oSheet As Object
Dim oCell As Object 'l'objet cellule recherché
Dim MaValeur As Double 'les différentes valeurs possibles
Dim MaChaine As String '(selon la situation)
Dim MaFormule As String
'on récupère l'objet feuille
oSheet = ThisComponent.Sheets.getByName("Feuille1")
'récupérer l'objet cellule
'1. à partir de son nom. ex : "A1"
oCell = oSheet.GetCellRangeByName("A1")
'2. à partir de ses coordonnées. ex : 0, 0 pour A1 (X = 0, Y = 0 ;
valeurs indexées à partir de 0)
oCell = oSheet.GetCellRangeByPosition(0, 0)
'3. à partir d'une cellule nommée. ex : A1 est nommée "MaCellule"
oCell = oSheet.GetCellRangeByName("MaCellule")
'Une fois l'objet cellule récupéré, on accède au contenu de la cellule
' par :
MaValeur = oCell.Value 'si valeur numérique
MaChaine = oCell.String 'valeur texte (existe dans tous les cas)
Maformule = oCell.Formula 'si formule
En espérant avoir aidé.
Bien cordialement,
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel
antivirus Avast.
https://www.avast.com/antivirus
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
