Macro dernière cellule modifiée

Bonjour,

Après avoir beaucoup cherché, je crois que mon besoin est trop spécifique (ou ma compétence en macros dans Calc trop faible :oops:) et je viens faire appel aux experts de ce forum.

Je voudrais qu'une cellule de la feuille active (disons A1) contienne la valeur de la dernière cellule qui a été modifiée. Est-ce possible ?

(LibreOffice 4.3)

Merci pour votre aide !

Salut,

Avec quelque chose comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test()   Dim monDocument As Object, lesFeuilles As Object Dim maFeuille As Object, maCellule As Object   monDocument = ThisComponent lesFeuilles = monDocument.Sheets maFeuille = lesFeuilles.getByName(ThisComponent.CurrentController.ActiveSheet.Name)   maCellule = monDocument.CurrentSelection ValCel = maCellule.String   maCellule = maFeuille.getCellRangeByName("A1") maCellule.String = ValCel   End Sub

---

Ensuite, sur la feuille dans l'événement de la feuille, il faut affecter la macro à l'événement "Sélection modifiée".

:mrgreen:

Déjà une réponse, trop cool merci ! :D

As-tu testé ce que tu proposes ? Car moi j'ai testé et ça ne marche pas :?

L'interpréteur basic s'arrête sur :

ValCel = maCellule.String

avec le message "Property or method not found : string"

Bizzare hein ?

Merci en tout cas :)

Il faut juste définir la variable Dim ValCel As String.

Effectivement c'était juste une déclaration de variable à mettre.

Ça fonctionne du coup merci ! :lahola:

Puis-je profiter de tes compétences avec une dernière question ?

Pour écrire en A1 non pas la valeur de la cellule qui a été modifiée, mais la valeur de la cellule qui est à côté de celle qui a été modifiée.

Peux-tu me montrer comment faire ? Peut importe le côté, ensuite j'adapterais. Je suppose que c'est maCellule = monDocument.CurrentSelection qui va changer.

Merci encore :)

Tu trouveras tous les éléments nécessaires dans ce tutoriel : Utiliser oBasic dans le Tableur (Calc)

zoom61,

J'ai pu adapter le code pour répondre précisément à mon besoin.

Merci pour ton aide précieuse.

A bientôt,