Boucler dans une plage de cellules

Version imprimable

01/10/2014, 20h04
IRAD

Boucler dans une plage de cellules

Bonjour,
J'ai trouvé dans les FAQ le code suivant pour boucler dans une plage de cellules.
http://openoffice-libreoffice.develo...ge-de-cellules
Mais j'ai besoin de cdeux choses :
1- Au cours de la boucle dans la plage "A1:B15", je voudrais afficher les références de chacune des cellules (exemple : A1, A2, A3, ..., B14, B15)
2- Je voudrais afficher toutes les cellules, même si elles sont vides

Merci pour l'assistance
01/10/2014, 21h21
zoom61

Je ne comprends pas ce que tu veux faire :koi:
01/10/2014, 21h40
IRAD

Déjà Merci pour ta réponse.
L'idée est la suivante. Je parcoure une plage de données ("A1:B15" par exemple). Certaines cellues sont vides et d'autres contiennent des données. Je dois créer un fichier texte dans lequef j'écris pour chaque cellule (même vide) ce qui suit :
Reference_Cellule##Contenu_Cellule.
En plus clair, je dois avoir dans le fichier texte :
A1##1500
A2##800
A3##Bonjour
A4##01/10/2014
A5## (La cellule A5 est vide)
...
...
B14##2500
B15##100

Je sais comment créer et écrire dans mon fichier texte. Mais ce que je ne sais pas faire, c'est de récupérer les reference des cellules qui sont parcourues. D'autre part, l'énumération ne donne pas les cellules vides de la plage alors que j'aimerais bien les avoir.

Merci

Et avec quelque chose comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub BouclePlageCellules 
    Dim monDocument As Object
    Dim lesFeuilles as Object
    Dim maFeuille As Object
    Dim maCellule As Object
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
 
    For i = 0 to 1
        For j = 0 to 14
            maCellule = maFeuille.getCellByPosition(i,j)
            If maCellule.String = "" then
                Txt = "Cellule Vide"
                Else
                Txt = maCellule.String
            End If
            MsgBox "Colonne : " & i + 1 & " - Ligne : " & j + 1 & " - Valeur : " & Txt
        Next
    Next
End Sub

02/10/2014, 10h22
IRAD

Merci zoom61.
Cette procédure marche, mais .... :D
La plage "A1:B15" n'était qu'un exemple. Il me reste à généraliser sur une plage quelconque qui serait passée en paramètre à la procédure. Donc le défi à cette étape c'est de pourvoir convertir automatiquement "A1:B15" (ou toute autre plage de la même forme "AB8:AD450") en valeurs de parcours pour les variables i et j.
Merci
02/10/2014, 10h45
zoom61

Attention, dans le cas d'un positionnement avec ces données, il faut commencer par la valeur "0" :mouarf:
02/10/2014, 11h03
IRAD

Merci pour l'avertissement !
Une autre préoccupation. à partir du code suivant http://openoffice-libreoffice.develo...ge-de-cellules, comment puis-je afficher le référence de la cellule et non son contenu ?
Merci

Avec ceci :

Code:

1
2
Ligne = maCellule.cellAddress.row
Colonne = maCellule.cellAddress.column