macro supprime,ligne=0

[LINK]

bonsoir o forum,je recherche une macro pour supprimer en colonne A toute la ligne si la cellule en A est =à 0,merci d'avance

 

[pierrejean]

bonjour

essaie cela (pas verifié)

if cells(1,1)='' then rows(1).delete

 

[LINK]

MERCI pour ta reponce mais en faite jai deja cette macro:
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 19/03/2006 par
'

'
Range('A2:Y2').Select
Selection.Copy
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range('A3:A10000').Select
ActiveSheet.Paste
End Sub

comment faire pour integrer ta macro:
(if cells(1,1)='' then rows(1).delete
dedans, merci encore

 

[LINK]

J'ai éssayé
If Cells(1, 1) = '0' Then Rows(1).Delete

dans une macro toute seul elle ne fonctionne pas, mais jai oublié de preciser que dans mes cellules de la colonne A j'ai des formules qui me donnent comme resultats soit des valeurs commencent par 5 , 6 ou 7 ou ou sinon la valeur 0.Je cherche à suprimer les lignes qui ont la valeur 0

 

[pat1545.]

Salut,

basé sur la colonne A:

Sub TuerZero()
Range('A1').Select
Dim Last As Integer, I As Integer
Last = Range('A65000').End(xlUp).Row
For I = Last To 2 Step -1
If Cells(I, 1) = 0 Then
Cells(I, 1).EntireRow.Delete
End If
Next
End Sub


Patrick

 

[Gérard DEZAMIS]

Bonjour Link et PierreJean

Un essai avec

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
NbLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For i = NbLigne To 1 Step -1
If Range('A' & i).Value = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
L'effacement de ligne sera effectif dès que la formule produira un résultat = à 0
@+GD

Message édité par: Gérard DEZAMIS, à: 19/03/2006 17:11

 

[LINK]

OUlllaaaaa, jai essayé ta macro , elle tourne en boucle, jai du fermer le fichier par ctr+alt+sup pour arreter le fichier; loll
😱

 

[Gérard DEZAMIS]

Re Link
Bonjour Patrick

J'avoue ne pas tout bien comprendre.
La macro de Patrick tourne correctement ... la mienne aussi ....
Je supprimerai le 'Range('A1').Select' de Patrick
Par contre j'ajouterai dim i as integer ) à ma solution. (Ce n'est pas bien d'oublier de déclarer les variables ! 😱 )

@+GD

 

[pierrejean]

re

@ LINK

Utilise plutot Ctrl Pause pour arreter une macro qui boucle

Mais je ne pense pas que la macro de G Dezamis soit infernale

Tu l'as essayée seule ?

oups pas rafraichi !!

 

[Hellboy]

Bonjour a tous

LINK, la macro a Gérard DEZAMIS est approprié( Peut être avec l'évènement

Private Sub Worksheet_Calculate()

)

Ou

celle de pat1545 avec une intervention de l'utilisateur avec un click sur un bouton relié a son code. No problemo.

Je me demande, si ce n'est pas une particularité de ton fichier qui fait en sorte que les intervenants de ce fil partent en boucle. Pourrais-tu joindre ton fichier s.v.p.

Merci !

 

[JMB]

Pas très clair! mais je pense qu'une solution pourrait être une formule du genre:

=+SI(B4-C4=0;' ';B4-C4)

et éventuellement d'intoduire la formule dans une Macro