Bernard Marcelly a écrit :
Bonjour Gerard Kohler
Message du 2005-12-18 13:17:
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.
L'objet "trouv" présente une propriété RangeAddresses qui est un
tableau de RangeAddress, un élément par zone. Chaque RangeAddress
présente les coordonnées de début et fin d'une zone. Ces coordonnées
sont relatives à la feuille. Une zone est éventuellement réduite à une
cellule.
dim x as long, y as long, n as long, adr as object
trouv = maFeuille.findAll(jeCherche)
for n = 0 to trouv.count - 1
adr = trouv.RangeAddresses(n)
for x = adr.StartColumn to adr.EndColumn
for y = adr.StartRow to adr.EndRow
maCellule= maFeuille.getCellByPosition(x, y)
print x, y, maCellule.String
next
next
next
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
merci beaucoup de l'explication
Gérard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]