Discussion :

[madvic]

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

[zoom61]

De ce que je comprends, il te faut donner le nom des feuilles dans des variables et ensuite passer de l'une à l'autre.
Tu devrais dans ce tutoriel trouver ce qu'il te faut pour le faire : ici.