Traduction d'un code Excel VBA vers calc Basics

Bonjour,

quelqu'un saurait-il traduire ce code Excel pour l'appliquer à Calc ?

Voici ce qui est recherché :

Sur mon fichier en pièce jointe, je cherche à insérer la valeur de D81 (10488) dans la cellule A81 après les derniers ":"

cellule A81 actuellement : 1234567891:22:123456:0000:0000:

Je souhaite obtenir : 1234567891:22:123456:0000:0000:10488

Le code fonctionne sous excel (Merci encore à B3G et Eriiic) mais je souhaite l'appliquer, ou du moins avoir le même résultat sous Libre.

Sub Rajouter()

With ActiveSheet

dl = .Cells(.Rows.Count, 1).End(xlUp).Row

codes = .Range("A2:D" & dl)

For i = LBound(codes) To UBound(codes)

If codes(i, UBound(codes, 2)) <> "" Then

decompose = Split(codes(i, 1), ":")

decompose(UBound(decompose)) = codes(i, UBound(codes, 2))

codes(i, 1) = Join(decompose, ":")

End If

Next i

.Range("A2").Resize(UBound(codes), 1) = codes

End With

End Sub

Merci d'avance pour votre aide.

'>>>>> CODE A METTRE DANS LE MODULE DE LA FEUILLE CONCERNEE (FEUIL1 DE MEMOIRE)

private sub worksheet_change(byval target as range)

if target.column = 4 then

call Rajouter

end if

end sub