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"
J'en perd mon latin…..
Merci pour votre aide précieuse.
Bonne journée…..
[Résolu][Calc] Copier l'item sélectionné dans une cellule.
Modérateur : Vilains modOOs
Règles du forum
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
-
- Membre lOOyal
- Messages : 29
- Inscription : 18 févr. 2016 11:01
[Résolu][Calc] Copier l'item sélectionné dans une cellule.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par RegorB le 03 déc. 2018 12:25, modifié 1 fois.
LibreOffice 6.0.3.2
windows10
windows10
-
- GourOOu
- Messages : 5622
- Inscription : 25 nov. 2011 18:07
- Localisation : Guyane
Re: [Calc] Copier l'item sélectionné dans une cellule.
Bonjour
Tu peux testerA+
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
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
-
- Membre lOOyal
- Messages : 29
- Inscription : 18 févr. 2016 11:01
Re: [Calc] Copier l'item sélectionné dans une cellule.
Bonjour Piaf,
Comme d'habitude maître Piaf est très performant…… Merci.. merci... merci….
Bonne journée...
Comme d'habitude maître Piaf est très performant…… Merci.. merci... merci….
Bonne journée...
LibreOffice 6.0.3.2
windows10
windows10