Bonjour tout le monde,

j'essaie de faire un code qui affecte d'une seule fois des valeurs et des formules dans une range, j'utilise donc la propriété FormulaArray pour le faire. Voici un petit code d'exemple pour montrer le problème :

REM ***** BASIC *****

sub Main

Dim oRange Dim oFeuille Dim Valeur as Variant Dim ligne as Variant

oFeuille = ThisComponent.currentController.activeSheet oRange = oFeuille.getCellRangeByName( "B2:C3" )

Valeur = oRange.DataArray

ligne = Valeur( 0 ) ligne( 0 ) = 1.11 'Ne marche pas ligne( 1 ) = "2,22" 'Ne marche pas Valeur( 0 ) = ligne

ligne = Valeur( 1 ) ligne( 0 ) = "3.33" ligne( 1 ) = 4 Valeur( 1 ) = ligne

oRange.FormulaArray = Valeur

end sub

Si on passe un numérique avec virgule, il n'est pas reconnu par OOo qui met un ' devant le nombre, de même si on le passe en tant que string utilisant une virgule. Par contre, si on le passe en string avec un point ça fonctionne et si on passe un numérique en numérique sans point ni virgule ça passe aussi.

Le soucis est que je dois travailler indépendamment du DecimalSeparator défini par le système d'exploitation et au moment de l'affectation du FormulaArray, il n'est plus possible de savoir quelle valeur à quelle place est censée être du numérique, du texte ou une formule.

Je cherche la solution la plus simple pour arriver à faire passer les numériques en FormulaArray. S'il est possible de faire passer des formules autre qu'avec FormulaArray, je suis aussi preneur. Excel accepte par exemple les formules quand on passe par Value (équivalent du DataArray de OOo).

Merci.