bonjour,
j'aimerai rechercher des cellules dans une feuille selon un motif donné,
et faire subir à chaque cellule trouvée un traitement adpté.
je bloque car je ne trouve que la première cellule de chaque zone, et je
n'arrive pas à trouver toutes les cellule de la zone.
ce doit être trivial, mais je seche.
merci de votre aide
Gérad
voici mon programme :
REM ***** BASIC *****
Sub Main
change_cel()
End Sub
sub change_cel
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim maFeuille as object
dim maCellule as object
dim jeCherche as object
dim trouv as variant
dim x as long
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent
maFeuille = document.Sheets.getByName("Feuille1")
jeCherche = maFeuille.createSearchDescriptor
with jeCherche
.SearchString = "xyz"
.SearchWords = false
end with
trouv = maFeuille.findAll(jeCherche)
for x = 0 to trouv.count - 1
maCellule = trouv(x).getCellByPosition(0,0) ' comment trouver les
coordonnées de toutes les cellules de la zone ?
macellule.String = fonction_test()
next
end sub
sub fonction_test
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
