Bonjour,
[EMAIL PROTECTED] a écrit :
Bonjour
Je souhaiterais pouvoir récupérer dans une cellule la date de dernière
modification d'une autre cellule.
Concrètement, dès qu'on modifierait le contenu de la seconde cellule, la
première recevrait automatiquement la date du jour.
Quelqu'un saurait-il comment faire cela ?
Merci.
Cordialement, Pascal.
Je pense que cette macro répondra au problème :
sub addListener
dim oDoc as object
dim oSheets as object
dim oSheet as object
dim oCell as object
dim aListener
oDoc = StarDesktop.CurrentComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByName( "Feuille1" )
oCell = oSheet.getCellRangeByName( "D1" )
aListener = CreateUnoListener( "CE_",
"com.sun.star.chart.XChartDataChangeEventListener" )
oCell.addChartDataChangeEventListener( aListener )
end sub
sub CE_chartDataChanged
dim oDoc as object
dim oSheets as object
dim oSheet as object
dim oCell as object
oDoc = StarDesktop.CurrentComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByName( "Feuille1" )
oCell = oSheet.getCellRangeByName( "A1" )
'oCell.string = Day( Now ) & "/" & Month( Now ) & "/" & Year( Now )
oCell.formulaLocal = "=AUJOURDHUI()"
end sub
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
