Conversion de Macro

[campeur]

Bonjour à tous.
Je voudrais savoir s’il y a un moyen de convertir cette macro pour qu’elle fonctionne dans LibreOffice.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range(“A1”)) Is Nothing Then
MsgBox “Ok, ça marche!!”
End If
End Sub

Merci

[karolus]

Bonjour

function rightclick(event)

	if right(event.AbsoluteName, 4 ) = "$A$1" then
		msgbox "Voila"
		rightclick = True
       'in case you need Contextmenu after:
       'rightclick = False
	end if

end function


'more improved:'
function rightclick(event)

	observe = event.Spreadsheet.getCellRangeByName("A1").RangeAddress
	if event.queryIntersection( observe ).Count then
		v = msgbox ("continuer avec menu contextuel ?",4)
		if v = 7  then       ' ⇒ No!'
			rightclick = True
			exit function
		end if 
	end if
end function

( traduction par deepl ):
Associer cette fonction à l’événement : «clic droit» du tableau ( ⇒ clic droit onglet tableau ⇒ événement )…