MACRO suppression de ligne

[zuzul2]

Bonjour,
je souhaite créer une macro suppression de ligne,

par exemple si dans l'adresse c'est PARIS 13eme ou PARIS 12eme que la ligne entiere se supprime.
alors que si c'est Nantes Marseille rien ne se supprime
merci de votre aide

 

[patsyl60]

Re : MACRO suppression de ligne

Bonjour zuzul2,

A tester si ton adresse est dans la colonne A ou à ajuster selon tes besoins

Sub test()
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
    For i = der To 1 Step -1
        If Range("A" & i) = "paris 12" Or Range("A" & i) = "paris 13" Then Range("A" & i).Delete
    Next i
End Sub

Patsyl60

 

[zuzul2]

Re : MACRO suppression de ligne

nikel je 'arrange a ma sauce

 

[patsyl60]

Re : MACRO suppression de ligne

Salut,

ci joint code modifié pour suppression ligne et non cellule

Sub test()
Dim der As Long
Dim i As Long
der = Range("A65536").End(xlUp).Row
    For i = der To 1 Step -1
        If Range("A" & i) = "paris 12" Or Range("A" & i) = "paris 13" Then Rows(i).Delete
    Next i
End Sub

Bonne soirée.

Patsyl60

 

[zuzul2]

Re : MACRO suppression de ligne

le problème c'est que quand ça supprime les cellules feuille 1 les formules feuille 2 passe de =Feuil1!$A$6 en =Feuil1!$A$1 ??? une solution ???

 

[zuzul2]

Re : MACRO suppression de ligne

comment faire pour que les cellules de bouge pas
je vous mets mon fichier exemple

 

[patsyl60]

Re : MACRO suppression de ligne

Bonsoir Zuzul2,

Je ne comprends pas ton fichier. Je ne comprends pas ce que tu veux réélement.

Bonne soirée.

Patsyl60