Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

'Option Explicit

Sub WriteModificationDate(evt)   
Dim column As Integer, row As Integer, cell As Object
'Seulement si une seule cellule est modifiée
   If evt.SupportsService("com.sun.star.sheet.SheetCell") Then
   'si le curseur se situe dans la colonne A
      If evt.cellAddress.column = 0 Then

         row = evt.cellAddress.row 'même ligne que la cellule modifiée
         'on trouve la cellule à remplir (même feuille)
         cellColB = evt.spreadSheet.GetCellByPosition(1,row)
         cellColC = evt.spreadSheet.GetCellByPosition(2,row)
         'si on inscrit une valeur dans la colonne A     
         If evt.String <> "" Then
            'on y met la date du jour, en colonne C
            
            	'avec l'événement "modifié", la sélection courante se réduit toujours à une seule cellule
	            'à condition toutefois qu'une date ne soit pas déjà inscrite (pour éviter de redater lorsque l'on parcourt les enregistrements en colonne A
	            If Len(cellColC.string)=0 Then
	            	'MsgBox "cellule modifiee !"
	            	cellColC.value = Date
	            	'j'ai choisi d'écrire la date plutôt que l'heure, ça me semble plus juste.
	            	End If
	         		Else
	            'sinon on efface, en partant du principe qu'on a effacé l'enregistrement dans la colonne A
	            cellColB.String = "" 
	            cellColC.String = ""   
        		 End If
      End If
      'sinon on ne fait rien
   End If
End Sub