Copier coller du texte et suprimer des lignes

[dran_200]

bonjour à tous,
je bug sur un problème qui doit etre assez simple!!!!!

Voila mon soucis :
sur mon fichier joint j'ai du texte que je voudrais dupliquer.
sur les colonnes A B C D c'est mon départ
la ligne 1 est le titre

je veux dupliquer la ligne 2 jusqu'à la ligne 6
puis supprimer la ligne 7

je veux dupliquer la ligne 8 (qui devient la 7) jusqu'à la ligne 12 (qui devient la 11)
puis supprimer la ligne 13 (qui est devenue la 12)

et ainsi de suite

je pense que le plus simple est de supprimer la ligne 7 puis toutes les 6 lignes
et ensuite dupliquer ?

je joint un fichier pour etre plus explicite

merci à tous

 

[Pierrot93]

Re : Copier coller du texte et suprimer des lignes

Bonjour,

regarde peut être ceci, le code se base sur la colonne B pour déterminer la dernière ligne à traiter :

Option Explicit
Sub test()
Dim i As Long
On Error Resume Next
With Range("A1:D" & Cells(Rows.Count, 2).End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -6
    Rows(i).Delete
Next i
End Sub

bonne journée
@+

 

[dran_200]

Re : Copier coller du texte et suprimer des lignes

Bonjour Pierrot93,

Et merci pour ta réponse rapide.

Ca marche, mais il me reste un problème, c'est que je n'ai pas toujours le même nombre de lignes.
Je m'étais mal expliqué.

Il faudrait que la macro fasse :
Tester si la cellule B2 est non vide et différente de "(sous-total)"
alors copier les cellules B2😀2 et les coller jusqu'à rencontrer la valeur "(sous-total)" sur la colonne B
Puis supprimer la ligne complete qui contient la valeur "(sous-total)".

re tester la cellule B suivante

Ainsi de suite sur toute la feuille.

Encore merci pour ton savoir

 

[Pierrot93]

Re : Copier coller du texte et suprimer des lignes

Re,

dans ton 1er post et dans le premier fichier, il était question d'un pas de 6, ce qui a induit le code proposé.... si pas cela.... sans doute intervenir différement.... peut être utiliser le filtre automatique... A voir....

 

[dran_200]

Re : Copier coller du texte et suprimer des lignes

re,

oui, dans mon premier fichier, je me suis trompé.
le problème est que le pas n'est pas toujours le même.

comment faire avec un tri ?
les colonnes suivantes E F G....... sont remplies avec des valeurs différentes sur chaques lignes
c'est pour ça que je veux remplir les autres colonnes enautomatique car les valeurs sont identiques.

encore merci

 

[dran_200]

Re : Copier coller du texte et suprimer des lignes

Bonjour à tous,

J'avance un peu.....
J'ai fait une macro pour suprrimer les lignes qui contienne le texte "bb".
problème 1, la derniere ligne ne veut pas etre supprimé ???
je fais tourner la boucle 10 fois !!!
probleme 2, il me reste mon probleme de copier coller !!!!
je joint un fichier.
feuille "départ" : point de départ
feuille "départ(2)" : ce que je fais avec la macro
feuille "résultat" : ce que je voudrais !!!!!

encore merci pour l'aide.

 

[Pierrot93]

Re : Copier coller du texte et suprimer des lignes

Bonjour,

comme suggéré hier, avec le filtre auto, sur la bas du fichier d'hier :

Option Explicit
Sub test()
Dim i As Long
On Error Resume Next
With Range("A1:D" & Cells(Rows.Count, 2).End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
On Error GoTo 0
Range("A1").AutoFilter 2, Criteria1:="(Sous-Total)"
With Range("_FilterDatabase")
    .Offset(1).Resize(.Rows.Count - 1, 1).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub

 

[dran_200]

Re : Copier coller du texte et suprimer des lignes

re,

Merci pour l'aide
je vais regarder...