Marco en VB, Suppression d’une ligne

[pedram0080]

Bonjour chers membres du Forum,

Je voudrais une Macro en VB qui irait tester la valeur d’une cellule, si cette valeur est différente de celle souhaitée, la ligne est supprimée.

Comme le fichier attaché.

Merci d’avance

 

[MJ13]

Re : Marco en VB, Suppression d’une ligne

bonjour Pedram008

Peut-être un exemple à adapter:

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

 

[Hervé]

Re : Marco en VB, Suppression d’une ligne

bonjour

une autre formulation :

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

salut

 

[pedram0080]

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?

 

[Staple1600]

Re : Marco en VB, Suppression d’une ligne

Bonsoir


Solution par filtre élaboré en VBA

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.

 

[pedram0080]

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!

 

[Staple1600]

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 ...

 

[MJ13]

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 .

 

[pedram0080]

Re : Marco en VB, Suppression d’une ligne

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

 

[MJ13]

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 .

 

[pedram0080]

Re : Marco en VB, Suppression d’une ligne

Merci MJ13