Alimenter une boite de dialogue avec les cellules d'une feuille
Bonsoir à tous,
Je suis nouveau sur ce forum et débutant en programmation sous Libre Office.
Je rencontre un problème qui est peut-être simple (mais je butte).
Je souhaite alimenter une boite de dialogue (Dialog2) avec les données d'une
feuille de classeur Calc (Enregistrement).
Je voudrais pouvoir choisir la ligne à importer en utilisant le TextField9.
Je parviens à remplir ma boite de dialogue avec première ligne mais sans
pouvoir en choisir une autre (c'est toujours la ligne 1 qui se charge)
Pouvez-vous m'aidez?
Ci-dessous mon code
Bonne soirée à tous Cordialement Alain
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub InsertionBdD
Dim oCursor As Object, nLig As string, Dlg As Object
monDoc = ThisComponent
maFeuille = monDoc.Sheets.getByName("Enregistrements")
DialogLibraries.LoadLibrary("Standard")
bibli = DialogLibraries.GetByName("Standard")
monDialogue = bibli.GetByName("Dialog2")
Dlg = CreateUnoDialog(monDialogue)
nLig = Dlg.getControl("TextField9").Text + 5
Dlg.getControl("TextField1").text = maFeuille.getCellRangeByName("C" & nLig).String
Dlg.getControl("TextField2").text = maFeuille.getCellRangeByName("A" & nLig).String
Dlg.getControl("TextField3").text = maFeuille.getCellRangeByName("D" & nLig).String
Dlg.getControl("TextField6").text = maFeuille.getCellRangeByName("E" & nLig).String
Dlg.getControl("TextField4").text = maFeuille.getCellRangeByName("F" & nLig).String
Dlg.getControl("TextField7").text = maFeuille.getCellRangeByName("G" & nLig).String
Dlg.getControl("TextField5").text = maFeuille.getCellRangeByName("H" & nLig).String
Dlg.getControl("TextField8").text = maFeuille.getCellRangeByName("I" & nLig).String
Dlg.Execute
End Sub |
1 pièce(s) jointe(s)
Alimenter une boite de dialogue avec les cellules d'une feuille
Bonjour,
J'espère avoir compris. En pièce jointe un fichier exemple.
A l'avenir, afin que l'on t'aide au mieux et pour éviter que l'on soit obligé de créer le document avec la boite de contrôle, il est préférable de jointe ton fichier.
Ainsi cela nous fait moins de travail.:lol::lol::lol:
Pièce jointe 519739
Cordialement
1 pièce(s) jointe(s)
Alimenter une boite de dialogue avec les cellules d'une feuille
Re Bonjour
Petite modification, j'ai ajouté un bouton sur la feuille pour lancer la boite de dialogue. Et un bouton quitter pour fermer cette boite.
Si tu veux des explications n'hésites pas.
Cordialement
Pièce jointe 519775