code vba pour suppression de lignes

oliv67 · 5 Avril 2008

bonjour le forum

je suis confronté à un pb
dans le code vba de cette action

Sub Supprimer()
Dim i As Integer

Application.ScreenUpdating = False
For c = Range("p65536").End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, "a")) Then
Cells(c, "a").EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

dans la 3eme ligne de code qui commence par For c etc...
c=1
alors qu'il devrait etre = à 4

je ne comprends pas

olivier

Cousinhub · 5 Avril 2008

Re : code vba pour suppression de lignes

Bonjour,
ton code est écrit dans l'évènement de la feuille 1, donc il prend en référence la feuille 1....
Inscrit ton code dans un module standard comme ceci :

Code:

Sub Supprimer()
Dim i As Integer

Application.ScreenUpdating = False
For c = Sheets("import").Range("p65536").End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, "p")) Then
Cells(c, "a").EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

que tu peux remplacer par ceci :

Code:

Sub Macro3()
    Sheets("import").Columns("P:P").SpecialCells(xlCellTypeConstants, 22).EntireRow.Delete
End Sub

gilbert_RGI · 5 Avril 2008

Re : code vba pour suppression de lignes

oliv67 à dit:
bonjour le forum

je suis confronté à un pb
dans le code vba de cette action

Sub Supprimer()
Dim i As Integer

Application.ScreenUpdating = False
For c = Range("p65536").End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, "a")) Then
Cells(c, "a").EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

dans la 3eme ligne de code qui commence par For c etc...
c=1
alors qu'il devrait etre = à 4

je ne comprends pas

olivier

Bonjour

regardez où est placé votre code !!!

Je crois qu'il devrait être dans la feuille ("Import") pour marquer 4
comme il est dans la feuille 1 en P il n'y a rien

Cdlt

RGI

pierrejean · 5 Avril 2008

Re : code vba pour suppression de lignes

bonjour oliv67

Ta macro est dans le code de la feuil1
Comme la feuille n'est pas specifiée en tete de For c= Range .... elle opere sur la feuil1
tu devrais soit mettre le code dans la feuille concernée , soit dans un module et metre alors quelque chose comme

For c= Activesheet.range.....

Toujours a la bourre moi !

Salut bhbh
Salut Gilbert

oliv67 · 5 Avril 2008

Re : code vba pour suppression de lignes

merci beaucoup à tout le forum et en particulier à pierrejean,gilbert_RGI,bhbh.

j'ai réussi à faire fonctionner ma macro avec la solution de pierrejean.

mais je suis curieux , avec exemple de m'expliquer comment mettre le code dans le module.

merci à vous tous

olivier

pierrejean · 5 Avril 2008

Re : code vba pour suppression de lignes

re

Voila ton fichier avec la macro dans le module 1
mais avec une petite modif concernant la cellule de reference (P et non a)

Code:

Sub supprimer()
MsgBox ("oui")
Application.ScreenUpdating = False
For c = ActiveSheet.Range("p65536").End(xlUp).Row To 2 Step -1
If Not IsNumeric(Cells(c, "[COLOR=red]P[/COLOR]")) Then
  Cells(c, "[COLOR=red]P[/COLOR]").EntireRow.Delete Shift:=xlUp
End If
Next
Application.ScreenUpdating = True
End Sub

oliv67 · 5 Avril 2008

Re : code vba pour suppression de lignes

bonsoir le forum

merci pierrejean

bonne soiree

olivier

code vba pour suppression de lignes

oliv67

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

oliv67

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Pièces jointes

oliv67

XLDnaute Occasionnel

Discussions similaires