Discussion :

[myz-rix]

Bonjour,

Je galere malgrès l'outil d'enregistrement de macro d'open office.

Je souhaite selectionner des cellules, appuyer sur un bouton et qu'une macro applique la valeur "1" dans chaque cellule.

en bidouillant le code et cherchant je n'arrive a appliquer la valeur que sur la premiere cellule.

Si vous aviez une astuce ça serait super mon amis google n'arrive pas a m'aider.


Merci

[LeGilles69]

Il ne faut pas travailler sur la range directement,
mais accéder à chaque cell contenue dans ta range.
par exemple avec 2 boucles while ... wend

Sans oublier d'initialiser la 2ème variable à l'intérieur de la 1ère boucle.

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub test
oActivecell = ThisComponent.getCurrentController().getSelection()
oActiveSheet=oActivecell.getSpreadSheet
Address=oActivecell.RangeAddress
colonne=Address.StartColumn
while colonne<=Address.EndColumn
ligne=Address.StartRow
while ligne<=Address.EndRow
oActiveSheet.getCellbyposition(colonne,ligne).value=1
ligne=ligne+1
wend
colonne=colonne+1
wend
end sub

Il y a peut-être des astuces plus rapides.....