Copier coller du texte et suprimer des lignes

Pierrot93

XLDnaute Barbatruc

• 9 Octobre 2013

• #2

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 9 Octobre 2013

• #3

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

 

Pièces jointes

• Test1.xls

  33.5 KB · Affichages: 39
• Test1.xls

  33.5 KB · Affichages: 41
• Test1.xls

  33.5 KB · Affichages: 40

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Octobre 2013

• #4

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

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 9 Octobre 2013

• #5

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

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 10 Octobre 2013

• #6

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.

 

Pièces jointes

• Test1.xls

  66 KB · Affichages: 46
• Test1.xls

  66 KB · Affichages: 50
• Test1.xls

  66 KB · Affichages: 48

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Octobre 2013

• #7

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 :

Code:

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

 

Vote positif 0 Vote négatif

D

dran_200

XLDnaute Occasionnel

• 10 Octobre 2013

• #8

Re : Copier coller du texte et suprimer des lignes

re,

Merci pour l'aide
je vais regarder...

 

Vote positif 0 Vote négatif