Bon désolé, je reviens à la charge mais je bloque.
Donc, j'ai une liste de fournisseurs, une liste de stations et des mesures par stations
je souhaite faire un formulaire de saisie en sélectionnant le fournisseur, j'ai les stations qui correspondent qui s'affichent.
Ensuite je peux faire ma saisie et enregistrer (zone jaune).
Fichier : mesuro_test.ods
Dans mon code, je ne comprend pas comment passer en paramètre une colonne d'une feuille ou d'une plage (le mieux serait la plage, exemple: plage.column("id") )
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 '' ' se déclanche sur la sélection d'une valeur dans la listBox dans la feuille saisie ' sub selectFournisseur Dim idFour as integer Dim Trouve as object Dim saisie as object saisie = thisComponent.Sheets.getByName("saisie") idFour = saisie.getcellrangebyname("B2") Trouve = rechercheData({colonne fournisseur_id de la plage ou feuille station}, idFour) effaceSaisie 'Efface les données de la zone saisir recupereStation(Trouve) 'recupère le nom et le code des stations a saisir afficheStation ' Affiche les stations dans la tableau de saisie end sub ''' 'recupère le nom et le code des stations a saisir sub recupereStation() end sub ''' ' Affiche les stations dans la tableau de saisie sub afficheStation end sub ''' 'Efface les données de la zone saisir Sub effaceSaisie Dim saisie as object Dim Row as object Dim i as integer saisie = thisComponent.Sheets.getByName("saisie") for i = 12 to 22 Saisie.getcellrangebyname("A" & i).string = "" Saisie.getcellrangebyname("B" & i).string = "" Saisie.Rows(i-1).OptimalHeight = True next i End sub sub enregistrer end sub
merci
Partager