Bonjour,
Je vous livre le fruit de mes cogitations de ce début d'année.
J'avais besoin d'affecter une valeur à une zone nommée. Je suis partie
d'une macro existante (le fameux bouquin page 324)
et après un temps certain j'ai abouti à la macro suivante :
Sub Main
Dim monDocument As Object, lesFeuilles As Object
Dim maFeuille As Object, maCellule As Object
Dim lesZonesNom As Object, maZone as object, maZoneNom As Object, x As Long
Dim toto
monDocument = thisComponent
lesFeuilles = monDocument.Sheets
lesZonesNom = monDocument.NamedRanges
maZone=lesZonesNom.getbyname("OK")
maZone.referredCells.value=now()
toto = cdate(maZone.referredCells.value)
for x = 0 to lesZonesNom.Count -1
maZoneNom = lesZonesNom(x)
print "Zone n°" & x , maZoneNom.Name, "", maZoneNom.Content, "" ,
maZoneNom.referredCells.value
next
End Sub
EN CONLUSION :
L'affectation d'une valeur fonctionne uniquement si la zone nommée ne
comporte qu'une cellule.
En espérant que mes cogitations serviront.
Bonne année à tous
Laurence
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
