Discussion :

[jmjmjm]

J'ai trouvé comment ecrire dans la cellule selectionnée grace a la FAQ mais je souhaiterais maintenant ecrire dans l'ensemble des cellules selectionnée. Pouvez - vous m'aider ?? MERCI d'avance

[jmjmjm]

PS / j'utilise Ocellule.setString( ....) sur la selection cela fonctionne pour la couleur de fond ainsi que la couleur de police mais pas pour l'ecriture enfin si la personne a selectionner plusieur cellule. Je recupere la plage selectionnée grace a ThisComponent.getCurrentSelection.

[SilkyRoad]

bonsoir

Ce n'est pas très élégant mais je n'ai pas trouvé d'autre solution que de boucler sur les cellules de la sélection:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Plage As Object
Dim C As Object , L As Object
Dim Cx As Integer , Lx As Integer
 
Plage = ThisComponent.CurrentSelection
C = Plage.Columns
L = Plage.Rows
 
For Cx = 0 To C.getCount-1
  For Lx = 0 To L.getCount-1
    Plage.getCellByPosition(Cx ,Lx ).setString("x")
  Next Lx
Next Cx

michel

[jmjmjm]

oki merci j'essaye ca et je vous tient au courant !!

[jmjmjm]

Merci ca fonctionne nikel, mais c'est assez lent, il n'y aurait pas une fonction pour faire la plage directement ?? De plus ca ne fonctionne pas si l'utilisateur a saisie des cellules non collé (avec CTRL)