supprimer les lignes en dessous de la derniere cellule contenant ...

Le mercredi 27 mars 2013 21:38:03 UTC+1, magic-dd a écrit :

bonsoir



suite à un rappatriment de donnees dans un classeur



je me retrouve avec une quantite de 0 que je voudrais voir disparaitre



la reference de la derniere cellule sera celle de la colone D



merci de m'aider dans ce sens



http://cjoint.com/?CCBvLLxYpu5

Bonsoir
A coller dans un module a exécuter après selection d'une cellule du tab leau
A+

Le mercredi 27 mars 2013 21:38:03 UTC+1, magic-dd a écrit :

bonsoir



suite à un rappatriment de donnees dans un classeur



je me retrouve avec une quantite de 0 que je voudrais voir disparaitre



la reference de la derniere cellule sera celle de la colone D



merci de m'aider dans ce sens



http://cjoint.com/?CCBvLLxYpu5

oUPS COPIER COLLER MAL FAIT
Sub Macro1()

Dim cellule As Range
For Each cellule In Range("B8").CurrentRegion
If cellule.Value = 0 Then cellule.Value = ""
Next
End Sub

Merci Talllix

Je vais m'adapter à ton code

Sub Macro1()



Dim cellule As Range

For Each cellule In Range("B8").CurrentRegion

If cellule.Value = 0 Then cellule.Value = ""

Next

End Sub

fonctionne quelque soit la selection
Sub Macro1()

Dim cellule As Range
For Each cellule In Selection.CurrentRegion
If cellule.Value = 0 Then cellule.Value = ""
Next
End Sub
bonne nuit

Quand je dis adapter, j'ai modifié la selection

Dim cellule As Range
For Each cellule In Range("A1:D" & FIN).CurrentRegion

If cellule.Value = 0 Then cellule.Value = ""
Next

Le mercredi 27 mars 2013 22:16:21 UTC+1, talllix a écrit :

fonctionne quelque soit la selection

Sub Macro1()



Dim cellule As Range

For Each cellule In Selection.CurrentRegion

If cellule.Value = 0 Then cellule.Value = ""

Next

End Sub

bonne nuit

pour la recherche de la dernière ligne pleine d'une colonne( 2 soluces)
Sub Derligne1()
Dim DerLig As Long
NbLig = Rows.Count
DerLig = Cells(NbLig, 4).End(xlUp).Row
End Sub

Sub Derligne2()
NbColonnes = Selection.CurrentRegion.Columns.Count
NbLignes = Selection.CurrentRegion.Rows.Count
End Sub

Bonjour,

Pour supprimer les lignes dont la valeur des
4 colonnes est égale à 0, tu peux utiliser un
filtre avancé avec une formule comme critère.

Exemple d'une zone de critère :

F1 demeure totalement vide
F2 : La formule est : =ET(A2=0;B2=0;C2=0;D2=0)

Dans la fenêtre du filtre avancé, tu sélectionnes la
plage F1:F2 comme zone de critère.

Pour supprimer seulement les 0,
Tu sélectionnes toute la plage des données moins la ligne
d'étiquette des colonnes et tu appelles la commande suivante:
Barre des menus / Édition / atteindre / cellules /
cellules visibles seulement et tu appuies sur la touche "Del"

L'enregistreur de macro devrait te donner l'essentiel du code.


MichD
---------------------------------------------------------------

Salut MichD, content de te revoir

bon je note tout ca et teste demain sur mon flambant office 2010

merci et bonne soiree

Le mercredi 27 mars 2013 22:58:30 UTC+1, MichD a écrit :

Bonjour,



Pour supprimer les lignes dont la valeur des

4 colonnes est �gale � 0, tu peux utiliser un

filtre avanc� avec une formule comme crit�re.



Exemple d'une zone de crit�re :



F1 demeure totalement vide

F2 : La formule est : =ET(A2=0;B2=0;C2=0;D2=0)



Dans la fen�tre du filtre avanc�, tu s�lectionnes la

plage F1:F2 comme zone de crit�re.



Pour supprimer seulement les 0,

Tu s�lectionnes toute la plage des donn�es moins la ligne

d'�tiquette des colonnes et tu appelles la commande suivante:

Barre des menus / �dition / atteindre / cellules /

cellules visibles seulement et tu appuies sur la touche "Del"



L'enregistreur de macro devrait te donner l'essentiel du code.





MichD

---------------------------------------------------------------