Discussion :

[Le_passant]

Bonjour,

je suis bloqué dans la mise au point d'une macro, par méconnaissance du oBasic^* et par un raisonnement fautif.

Soit un classeur de suivi de dépenses.
Dans la colonne 'NATURE', je recopie vers le bas la formule qui permet d'afficher 'Débit' ou 'Crédit'. L'action est déclenchée lors de l'enregistrement du classeur.
Or, actuellement, la recopie se produit indéfiniment. C'est moche et ça produit des biais dans les Tables de pilote.

Je voudrais donc éviter que la recopie se produise plus bas que la dernière ligne du tableau.

Ci-dessous la macro qui gère la recopie

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
49
50
51
52
53
54
55
56
sub insertnatureformule
 
rem ------------------define variables---------------------------------
dim document   as Object
dim dispatcher as object
	rem ----------------------------------------------------------------------
 
rem get access to the document
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "ToPoint"
	args1(0).Value = "tetenature" rem "$J$1"
 
	dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
	args2(0).Name = "By"
	args2(0).Value = 1
	args2(1).Name = "Sel"
	args2(1).Value = false
 
	dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
rem -------repérer la ligne de la cellule active
 Dim CelluleActive As Object, LigneCelluleActive As Variant
 
  CelluleActive = ThisComponent.getCurrentSelection
  LigneCelluleActive= CelluleActive.CellAddress.Row
 
	rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
	args3(0).Name = "By"
	args3(0).Value = 1
	rem dispatcher.executeDispatch(document, ".uno:GoUpSel", "", 0, args3())
	dispatcher.executeDispatch(document, ".uno:GoDownSel", "", 0, args3())
 
	rem ----------------------------------------------------------------------
	dispatcher.executeDispatch(document, ".uno:JumpToNextUnprotected", "", 0, Array())
 
 
	rem ----------------------------------------------------------------------
	dispatcher.executeDispatch(document, ".uno:FillDown", "", 0, Array())
 
	rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
	args4(0).Name = "By"
	args4(0).Value = 1
	args4(1).Name = "Sel"
	args4(1).Value = false
 
	dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args4())
 
end Sub

Merci de me mettre le nez sur mes erreurs.

^*je commence toujours par l'enregistreur, puis je nettoie, j'ajoute des bourdes, je teste pas à pas.

[zoom61]

Salut,

Une idée serait peut-être d'aller chercher la dernière cellule non vide de l'onglet, ensuite dans ta macro de mettre une filtre que si cette ligne est passée, le code s'arrête.

Cdlt.