[OpenOffice] [Tableur] Macro supression colonnes vides [Résolu]

[fransix]

Bonjour à tous
Je découvre calc et la joie des macros. Je bute depuis plusieurs jours sur une problématique de supression de colonnes vides. Je m'explique, je récupère des données que je colle dans une feuille seet1(2) dans cette feuille, je cherche dans le cadre d'une macro à :
1-supprimer des colonnes vides
2-supprimer des colonnes "index" redondantes pour ne conserver que la 1ère
3-supprimer des lignes "titres" redondantes pour ne conserver que la 1ère.
Je n'arrive pas à retranscrire ces automatismes qui fonctionnaient parfaitement avec Excel.
Merci pour vos suggestions et votre aide

[zoom61]

Salut,

Avec quelque chose comme cela tu devrais pouvoir arriver à faire ce que tu veux :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
sub Vincent ()

	dim document   as object
	dim dispatcher as object
	dim feuile as object
	dim args1(0) as new com.sun.star.beans.PropertyValue
	
	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	Feuille =  ThisComponent.getCurrentController().getActiveSheet()
	
	
	dispatcher.executeDispatch(document, ".uno:GoToEndOfData", "", 0, args1())
	CelluleActive = ThisComponent.getCurrentSelection
	NbCol = CelluleActive.CellAddress.Column + 1
	NbLig =  CelluleActive.CellAddress.Row + 1
	
	'Teste les lignes vides
	for i = NbLig to 0 step -1
		Cell = Feuille.getCellByPosition(0, i)
		ThisComponent.currentController.select(Cell)
		select case Cell.type
			  Case com.sun.star.table.CellContentType.EMPTY
			  	ThisComponent.currentController.select(Cell) 
				dispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())
		end select
	next
	'Teste les colonnes vides
	for i = NbCol to 0 step -1
		Cell = Feuille.getCellByPosition(i, 0)
		ThisComponent.currentController.select(Cell)
		select case Cell.type
			  Case com.sun.star.table.CellContentType.EMPTY
			  	ThisComponent.currentController.select(Cell) 
				dispatcher.executeDispatch(document, ".uno:DeleteColumns", "", 0, Array())
		end select
	next


end sub

@+.

[fransix]

Merci bcp zoom61, ça fonctionne bien sur l'exemple
J'étais parti sur des macros avec tri etc.... et bien du souci !
Tu viens de régler le problème et quelques instants
Merci encore et bonne journée à tous
Fransix

[fransix]

Slt macro transcrite sur ma bases de données
Elle fonctionne parfaitement,
- supression des colonnes vides,
- des colonnes index en doublons
- des lignes de tites en doublons
Mais elle supprime la ligne de titre à conserver au final ?
Un peu paumé !

[zoom61]

Pour faire cela il faut que tu testes les données dans les autres colonnes si elles sont toujours les mêmes : exemple la colonne D contiendra toujours des données si l'on ne doit pas supprimer le ligne...
Sinon il faut faire le test sur plusieurs colonnes mais cela va être compliqué.

Faire une automatisation nécessite un minimum de structure pour pouvoir faire des tâches. Tu ne peux pas jouer sur le fichier des données ?

@+.

[fransix]

Slt, merci des conseils, ça fonctionne à présent en mettant un titre sur colonnes A et B. Merci pour tout et salutations à tous les membres du forum.
Pas si évident que ça calc !
fransix