[Résolu][Calc] Copier l'item sélectionné dans une cellule.

[RegorB]

Bonjour à tous,

Pour faire suite à mon post sur comment éviter les doublons dans une listBox, je reviens vers vous car je n'arrive pas à trouver comment faire pour copier l'item sélectionné dans la listbox dans une cellule…. cela m'indique "variable d'objet non définie"

RegorB.png

J'en perd mon latin…..
Merci pour votre aide précieuse.
Bonne journée…..

[Piaf]

Bonjour
Tu peux tester

Code : Tout sélectionner

Sub Selection(oEv as Object)
Dim x as Integer, Element as String, i as Integer
	x = 0
	Select Case oEv.Source.Model.Name
		Case "ListBox1"
			Element = oEv.Source.SelectedItem
			reDim lst1(UBound(lst) - 1)
			For i = 0 To UBound(lst)
				If lst(i) <> Element Then
					lst1(x) = lst(i)
					x = x + 1
				End If	
			Next i
			ThisComponent.Sheets.getByName("DATA").getCellRangeByName("A1").String = Element
			oDlg.getControl("ListBox2").Model.StringItemList = lst1
		Case "ListBox2"
			Element = oEv.Source.SelectedItem
			reDim lst2(UBound(lst1) - 1)
			For i = 0 To UBound(lst1)
				If lst1(i) <> Element Then
					lst2(x) = lst1(i)
					x = x + 1
				End If	
			Next i
			ThisComponent.Sheets.getByName("DATA").getCellRangeByName("A2").String = Element
			oDlg.getControl("ListBox3").Model.StringItemList = lst2
		Case "ListBox3"
			Element = oEv.Source.SelectedItem
			ThisComponent.Sheets.getByName("DATA").getCellRangeByName("A3").String = Element
	End Select
End Sub

A+

[RegorB]

Bonjour Piaf,

Comme d'habitude maître Piaf est très performant…… Merci.. merci... merci….
Bonne journée...