Marco en VB, Suppression d’une ligne

MJ13

XLDnaute Barbatruc

• 18 Mai 2010

• #2

Re : Marco en VB, Suppression d’une ligne

bonjour Pedram008

Peut-être un exemple à adapter:

Code:

for each cell in range ("A5:A100")
if cell <> 10 then [COLOR=red]cell.row.delete 'J'ai un doute sur la syntaxe voir avec [B]Henry[/B] :))[/COLOR]
next

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Mai 2010

• #3

Re : Marco en VB, Suppression d’une ligne

bonjour

une autre formulation :

Code:

Dim i As Integer
For i = 100 To 1 Step -1
If Cells(i, 1) <> 10 Then Rows(i).Delete
Next i

salut

 

Vote positif 0 Vote négatif

P

pedram0080

XLDnaute Occasionnel

• 18 Mai 2010

• #4

Re : Marco en VB, Suppression d’une ligne

Merci, j'ai trouvé une autre solution mais toujours des choses à faire pour le finir.
Définir une colonne des données comme la colonne de référence 😕

Il y a des idées?

 

Pièces jointes

• supp-modifie.zip

  18.4 KB · Affichages: 23

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mai 2010

• #5

Re : Marco en VB, Suppression d’une ligne

Bonsoir


Solution par filtre élaboré en VBA

Code:

Sub Macro1()
Range("D2").FormulaR1C1 = "=OR(RC[-1]=300,RC[-1]=600,RC[-1]=800,RC[-1]=900)"
Range("A1:C15").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("D1:D2"), Unique:=False
End Sub

Mais je trouve un résultat différent du tien avec tes critères.

 

Dernière édition: 18 Mai 2010

Vote positif 0 Vote négatif

P

pedram0080

XLDnaute Occasionnel

• 19 Mai 2010

• #6

Re : Marco en VB, Suppression d’une ligne

Merci Staple1600, mais pratiquement, c’est inutile, la colonne de critère consiste plus de 400 cellules!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2010

• #7

Re : Marco en VB, Suppression d’une ligne

Re


Ma réponse correspond au cahier des charges de ton premier message.

Si entre temps tu changes la donne, évidemment ...🙄

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Mai 2010

• #8

Re : Marco en VB, Suppression d’une ligne

Bonjour Pedram, Hervé, JM

Bon, hier, j'avais fait cela en 30 secondes. C'est vrai qu'avec le code de Hervé, j'ai tout de suite vu la boulette (il faut toujours partir du bas pour supprimer 😛).

Sinon, avce la prosition de JM en filtre élaboré, voir le fichier.

PS: Pedram: je n'ai pas ouvert ta seconde pièce jointe. Chaque chose en son temps 🙂.

 

Pièces jointes

• test-6-supp_Filtre_Elabore.zip

  10.5 KB · Affichages: 26

Vote positif 0 Vote négatif

P

pedram0080

XLDnaute Occasionnel

• 19 Mai 2010

• #9

Re : Marco en VB, Suppression d’une ligne

Merci beaucoup chers Staple1600 et MJ13, c'est bien fait.
Bonne journée

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Mai 2010

• #10

Re : Marco en VB, Suppression d’une ligne

Bonjour Pedram, Hervé, JM

Pedram: Suite à ton second fichier, voici une macro à tester pour le point 2.

J'aime bien ausi les Goto 🙂.

 

Pièces jointes

• test-6-supp_Filtre_ElaboreV2.zip

  15.9 KB · Affichages: 33

Vote positif 0 Vote négatif

P

pedram0080

XLDnaute Occasionnel

• 30 Mai 2010

• #11

Re : Marco en VB, Suppression d’une ligne

Merci MJ13

 

Vote positif 0 Vote négatif