[Résolu][Calc]Ligne supprimée si la cellule est égale à zéro

[Drake]

Bonjour,

Je dois faire faire la même modification sur plusieurs feuilles Calc (une centaine).
J'aurai besoin d'aide pour écrire une macro qui fasse cela.

La modification serait la suivante:
Supprimer toutes les lignes dont une cellule est égale zéro.
Et faire en sorte que la ligne du dessous prenne la place de celle supprimée.

Les cellules testées sont les cellules de la colonne D.

Exemple: Si la cellule D21 est égale à zéro alors supprimer la ligne 21.
Afin d'être plus clair je joins 2 fichiers Calc l'un avant modif, l'autre après.

Exemple1.ods

Exemple1 modifié.ods

Par ailleurs chaque feuille est un fichier Calc (.ods).
Existe-t-il une possibilité de rassembler toutes ces feuilles dans un seul fichier Calc ?

Merci de votre aide.

[micmac]

Bonjour,

Par ailleurs chaque feuille est un fichier Calc (.ods).
Existe-t-il une possibilité de rassembler toutes ces feuilles dans un seul fichier Calc ?

Nous vous rappelons que la règle n° 7 stipule qu'il ne faut mettre qu'une question par fil.

Poser plusieurs questions complique la compréhension et n'encourage pas les réponses : il vaut donc mieux découper votre problème. Le titre de votre question ne peut pas refléter l'ensemble des problèmes exposés.

Afin que nous puissions avoir une base de connaissance efficace lors d'une recherche sur un seul de vos problèmes, nous vous prions de créer autant de fils que de questions.

Cordialement

[joel275]

Bonsoir,

essaie le code suivant:

Code : Tout sélectionner

Sub Main
Dim LesFeuilles as Object, MaCell as Object, MaZone as Object, Lignes as Object
Dim I as Long, J as Long
	LesFeuilles = ThisComponent.Sheets
	For I = 0 To LesFeuilles.Count - 1           ' passe en revue toutes les feuilles du classeur
		For J = 1 To 200			' recherche sur les 200° lignes à modifier si nécessaire
			MaCell = LesFeuilles(I).GetCellRangeByName("D" & CStr(J))
			MaZone = LesFeuilles(I).GetCellRangeByName("D1:D200")
			If MaCell.Value = 0 And MaCell.Type = com.sun.star.table.CellContentType.VALUE Then
				Lignes = MaZone.Rows			' ne supprimera pas les lignes dont le résultat nul est obtenu par formule
				Lignes.RemoveByIndex(J-1, 1)
			End If
		Next
	Next
End Sub

A plus,
Joël

[Piaf]

Bonjour
Une autre façon à tester

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, maFeuille as Object, maCellule as Object
Dim x as Integer
	oDoc = thisComponent
	maFeuille = oDoc.Sheets.getByName("Feuille1")
	maCellule = maFeuille.getCellByPosition(1,19)
	x = 19
	Do While maCellule.String <> ""
	If maFeuille.getCellByPosition(3,x).String = "0,00 €" Then
		maCellule.Rows.removeByIndex(0,1)
	End If
	x = x + 1
	maCellule = maFeuille.getCellByPosition(1,x)
	Loop
End Sub

A+

[Drake]

Bonsoir,

Waooo! 2 pour le même prix.

Merci.

Je vais tester ça et je reviens dire.

[Drake]

re,

Les 2 procédures fonctionnent très bien. Encore merci à vous.
Une question pour Joel, la 1ere boucle sert-elle à gérer plusieurs feuilles ?
Sinon peux-tu m'expliquer à quoi elle sert ?
A+

Merci de ne pas poster plusieurs messages à la suite, si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.
En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

[joel275]

Bonjour,

elle sert à passer en revue toutes les feuilles du classeur.

A plus,
Joël

[Drake]

Bonjour,

elle sert à passer en revue toutes les feuilles du classeur.

Ok,merci