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

Le
magic-dd
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
talllix
Le #25307182
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+
talllix
Le #25307172
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
magic-dd
Le #25307222
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
talllix
Le #25307212
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
magic-dd
Le #25307262
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
talllix
Le #25307332
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
MichD
Le #25307352
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
---------------------------------------------------------------
magic-dd
Le #25307382
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

---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme