Suppression lignes suivant critére RESOLU

[JBARBE]

Bonjour,

Je voudrais supprimer les lignes que j'ai représentées par une couleur verte !

Ma macro fonctionne mais se place mal pour les suppressions successive ! Peut-être une modification suffit !

Sub SupprimerLignes()
Dim vCompteurLignes As Long
Dim vIntervalle As Integer
Dim vLigneDepart As Long
vCompteurLignes = 1
vIntervalle = 2
vLigneDepart = 6
Do While vCompteurLignes <= ActiveSheet.UsedRange.Rows.Count
 vCompteurLignes = vCompteurLignes + vIntervalle + 1
 Rows(vLigneDepart - 2 + vCompteurLignes).Select
 Selection.Delete Shift:=xlDown
Loop
End Sub

Merci à l'avance !

 

[Pierrot93]

Re : Suppression lignes suivant critére

Bonjour,

lorsque tu supprimes des lignes, il y a lieu de commencer par la fin et remonter, un exemple ci-dessous :

Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 6 Step -1
    'test
    Rows(i).Delete
Next i

bonne journée
@+

 

[youky(BJ)]

Re : Suppression lignes suivant critére

Bonjour Pierrot,
Je crois que jbarbe veux supprimer que les lignes en vert
Voici un peu identique.
Bruno

Sub SupprimerLignes()
Dim lig%
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -5
Rows(lig - 1 & ":" & lig - 3).Delete
Next
End Sub

 

[JBARBE]

Re : Suppression lignes suivant critére

Merci Pierrot pour ta réponse, mais cette macro ne résout pas la suppression des lignes concernées que j'ai indiqué !

J'aurai bien voulu une macro plus complète !

Encore une fois merci à l'avance !

 

[Pierrot93]

Re : Suppression lignes suivant critére

Re, bonjour Bruno

A noter que mon exemple n'était là que pour présenter une boucle commencant par la fin... auncun test dans celle-ci.... d'ailleurs je n'en vois pas dans ta boucle "do loop"...

 

[JBARBE]

Re : Suppression lignes suivant critére

Merci Youky c'est tout à fait ce que je souhaitais !

A+

 

[JBARBE]

Re : Suppression lignes suivant critére

Je reviens sur le sujet car dans mon fichier original cela ne fonctionne pas !

ci-joint le fichier !

 

[Robert]

Re : Suppression lignes suivant critére NON RESOLU

Bonjour le fil, bonjour le forum,

Tu proposes deux fichiers différents et après tu viens te plaindre que ça marche pas ! Item 10 et 11 de ton dernier fichier il y a une ligne en plus... Alors forcément, ça décale tout...

 

[JBARBE]

Re : Suppression lignes suivant critére NON RESOLU

Bonjour Robert,
Ce fichier est une importation WEB mis en page avec une macro !

Je ne me plains pas, seulement je pensais qu'un modèle à peu prés conforme à l'original ( une ou deux lignes en + ) n'aller pas poser de problème !

Mais je suis confronté à beaucoup de problèmes pour les autres importations WEB ( lignes non identiques ) !

De ce fait, j'abandonne ma demande et remercie tout le monde d'avoir répondu !

Je vais être obligé d'effectué les manipulations manuellement !

Toutes mes excuses !

A+

 

[youky(BJ)]

Re : Suppression lignes suivant critére

Re,
Essaies ceci qui efface ligne par ligne en laissant une ligne intercalère entre les données de col A
Bruno

Sub SupprimerLignes()
Dim lig%
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1
If Cells(lig, 1) = "" And Cells(lig - 1, 1) = "" Then Rows(lig).Delete
Next
End Sub

 

[Robert]

Re : Suppression lignes suivant critére NON RESOLU

Bonjour le fil, bonjour le forum,

Je ne me plains pas, seulement je pensais qu'un modèle à peu prés conforme à l'original ( une ou deux lignes en + ) n'aller pas poser de problème !

JBarbe, tu as un problème, on te propose des solutions mais tu ne fais que les appliquer sans même essayer d'en comprendre le code. Sinon, tu aurais bien évidemment vu qu'une ligne en plus allait poser un gros problème... Penses-tu que tu vas progresser comme ça ?

 

[JBARBE]

Re : Suppression lignes suivant critére

Encore une fois merci YOUKY, c'est parfait Cela va beaucoup m'aider ! et sans rancune à ROBERT ( je me fixe au seulement au niveau débutant ) !

Les macros sont tellement différentes que l'on apprend tous les jours !

Sub SupprimerLignes()
Dim lig%
For lig = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1
If Cells(lig, 1) = "" And Cells(lig - 1, 1) = "" Then Rows(lig).Delete
Next
End Sub

 

[Robert]

Re : Suppression lignes suivant critére RESOLU

Bonjour le fil, bonjour le forum,

Aucune problème ni aucune rancune JBarbe, j'ai aussi été débutant et le le suis toujours dans bien d'autres domaines ! Mais c'est en bougeant un peu les gens qu'on obtient parfois des résultats...