Boucle avec pas et décalage

[anber]

Bonsoir le Forum,

Je bute sur un code VBA pour récupérer les données d'un fichier
A chaque fois qu'une ligne commence par KE on copie les 5 lignes suivantes dans une autre feuille
J'ai joint un fichier exemple
Merci



KPN001E1BBLA L60000TD720
KTN0001F0000B350-D-51B0-B-0619-MBL06250G0000000000U0001Q600000000N00001
M905 04370
M905 01880
M1500 04690
M1500 02390
KEN00001B
0
957550351B0
350-D-51B0-B-0619-MB
LM373A-C -SANS-SANS-95755 03 I: 000 A:0 D: 000 G:0
C1D 1 590 *580 *INS0-- -D190-EJ
2
KTN0002F0000B350-G-51B0-B-0619-MBL06250G0000000000U0001Q600000000N00002
M905 01880
M905 04370
M953 00030
KEN00002B
0
957550351B0
350-G-51B0-B-0619-MB
LM373A-C -SANS-SANS-95755 03 I: 000 A:0 D: 000 G:0
C1D 1 590 *580 *INS0-- -D190-EJ

 

[Papou-net]

Re : Boucle avec pas et décalage

Bonjour anber,

Ci-joint une copie de ton fichier avec une macro affectée au bouton Démo.

Espérant avoir répondu.

Cordialement.

 

[phlaurent55]

Re : Boucle avec pas et décalage

Bonjour anber,

avec ce code:

Sub Deplacer()
For i = 1 To Range("A65535").End(xlUp).Row
derligne = Sheets("cible").Range("A65535").End(xlUp).Row + 1
If Left(Cells(i, 1), 2) = "KE" Then
    Range(Cells(i, 1), Cells(i + 5, 1)).Copy Destination:=Sheets("cible").Cells(derligne, 1)
End If
Next i
End Sub

à+
Philippe

Edit: Bonjour Papou

 

[anber]

Re : Boucle avec pas et décalage

Bonsoir Papou-net

Exactement ce que je recherchais
Un grand Merci

Cdlt

 

[anber]

Re : Boucle avec pas et décalage

Bonsoir phlaurent
Pas tout à fait le résultat voulu, je n'ai pas besoin de la ligne qui contient KE

j'ai rectifié

Range(Cells(i + 1, 1), Cells(i + 5, 1)).Copy Destination:=Sheets("cible").Cells(derligne, 1)

Merci
Cdlt

 

[Papou-net]

Re : Boucle avec pas et décalage

Bonjour à tous,

Pour faire suite à la demande particulière de notre ami anber,

Voici une nouvelle version avec copie transposée des données en feuille "cible".

Cordialement.

 

[anber]

Re : Boucle avec pas et décalage

Bonjour Patou-net

Merci pour ta réponse, résultat OK

J'avais trouvé une solution fonctionnelle à partir du code de phlaurent55

Mais par curiosité je voulais voir avec ton code où il y avait une fonction que je ne connaissais pas

Merci

Cdlt