Macro-VBA suppression lignes

[UJAP]

Salut,

Je viens de trouver sur le forum un macro afin de supprimer automatiquement des lignes dans mon fichier Excel. Mais je voudrai lui rajouter des conditions.

Exemple : Si la colonne K contient ce renseignement «*--------------*»suprimer la ligne et si la colonne D contient ce renseignement «*sum*» supprimer la ligne.

Je n'y connais rien en VBA. Alors quelles sont les modifications à effectuer sur mon code,

Merci,
Et bon week-end,
Christophe

Sub test()
For i = Range("c65536").End(xlUp).Row To 4 Step -1
If Range("k" & i).Value = "" Then
Rows(i).Delete
End If
Next i
End Sub

 

[job75]

Re : Macro-VBA suppression lignes

Bonjour,

Si j'ai bien compris, utiliser le code suivant :

If Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Value Like "*sum*" Then

A+

 

[UJAP]

Re : Macro-VBA suppression lignes

OK merci,

Et si je veux que la ligne 1 ne soit pas concernée par la suppression même si elle réunit les conditions ?

Donc comment exclure la linge 1 de mon macro ?

Merci pr votre aide,

 

[pierrejean]

Re : Macro-VBA suppression lignes

bonjour UJAP

If i<>1 and (If Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Value Like "*sum*" ) Then

 

[UJAP]

Re : Macro-VBA suppression lignes

Ok merci pr ta réponse,

Je voudrai supprimer les 1 à 8 obligatoirement puis conserver la ligne 9 obligatoirement plus les autres conditions avant ?

Je mettais trompé tt à l'heure,

MErci,

 

[pierrejean]

Re : Macro-VBA suppression lignes

Re

A tester

If i<9 and i<>9 Or (If Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Value Like "*sum*" ) Then

 

[UJAP]

Re : Macro-VBA suppression lignes

J'ai donc copié le code :
Sub test()
For i = Range("c65536").End(xlUp).Row To 4 Step -1
If i<9 and i<>9 Or (If Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Value Like "*sum*" ) Then
Rows(i).Delete
End If
Next i
End Sub

Il me met erreur de compilation ! comment corriger cette erreur ?

Et comment compiler plusieurs macros ?

 

[job75]

Re : Macro-VBA suppression lignes

Bonjour UJAP, le forum,

Supprimer le 2ème If :

Sub test()
For i = Range("c65536").End(xlUp).Row To [B]1[/B] Step -1
If i < 9 And i <> 9 Or (Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Value Like "*sum*" ) Then
Rows(i).Delete
End If
Next i
End Sub

A+

Edit : je pense à une chose : si sum doit être dans une formule, il faut écrire :
Range("d" & i).Formula Like "*SUM*"

 

[pierrejean]

Re : Macro-VBA suppression lignes

Re

Job75 a parfaitement raison

Je crois arriver a la même chose

Sub test()
For i = Range("c65536").End(xlUp).Row To 1 Step -1
If i < 9 Or Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("d" & i).Formula Like "*SUM*" And i <> 9 Then
Rows(i).Delete
End If
Next i
End Sub

avec mes excuses !!

 

[UJAP]

Re : Macro-VBA suppression lignes

Merci bcp,

Je viens de tester le code : il fonctionne super !

Sauf il me supprime la ligne 9 car elle peut réunir les conditions de suppression. Je voudrai que cette ligne reste même si elle réunit les conditions. C’est possible ?

Sub test()
For i = Range("c65536").End(xlUp).Row To 1 Step -1
If i < 9 Or Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Value Like "*COLLECTIVITE*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Formula Like "*============*" And i <> 9 Then
Rows(i).Delete
End If
Next i
End Sub

Et encore merci pr votre aide,

 

[job75]

Re : Macro-VBA suppression lignes

Re

Modifier comme suit :

Sub test()
For i = Range("c65536").End(xlUp).Row To 1 Step -1
If i <> 9 Then
If i < 9 Or Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Value Like "*COLLECTIVITE*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Formula Like "*============*" Then
Rows(i).Delete
End If
End If
Next i
End Sub

A+

 

[UJAP]

Re : Macro-VBA suppression lignes

Merci bcp,

 

[job75]

Re : Macro-VBA suppression lignes

Re

En fait le code suivant me semble plus simple :

Sub test()
For i = Range("c65536").End(xlUp).Row To [COLOR="Red"]10[/COLOR] Step -1
If Range("k" & i).Value = "" Or Range("k" & i).Value Like "*--------------*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Value Like "*COLLECTIVITE*" Or Range("c" & i).Value Like "*sum*" Or Range("a" & i).Formula Like "*============*" Then
Rows(i).Delete
End If
Next i
[COLOR="Red"]Range("1:8").Delete[/COLOR]
End Sub

A+