Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boucle avec pas et décalage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion anber
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

anber

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
Re : Boucle avec pas et décalage

Bonjour anber,

avec ce code:
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
Conversion entre Date Universelle GMT et Date Localisée, puis correction de date extraite du DOS
Réponses
0
Affichages
586
Lu76Fer
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
M
  • Résolu(e)
XL 2013 Recherche selon critère et transposer des données avec récurrence
Réponses
3
Affichages
1 K
MarieChérie
M
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
  • Question Question
Listbox qui ne se rempli pas ????
Réponses
4
Affichages
1 K
Menibelus
T
  • Résolu(e)
XL 2019 Recherche d'une cellule et affichage de l'en-tête correspondant
Réponses
7
Affichages
9 K
sylvanu
A
  • Question Question
XL 2016 Bouton "mettre à jour" depuis classeur externe
Réponses
10
Affichages
2 K
arian
A
  • Question Question
XL 2016 Somme.si.ens avec date
Réponses
7
Affichages
883
Wayat
F
  • Question Question
Trie ListBox, besoin d'aide et besoin d'explication
Réponses
3
Affichages
1 K
Fariri
F
F
  • Question Question
Autres VBA Fusionner puis envoyer Word avec Outlook
Réponses
0
Affichages
1 K
FOUQUET Yves
F
B
  • Question Question
BOUCLE pour alléger le code
Réponses
10
Affichages
2 K
BIL boud
B
M
  • Question Question
XL 2013 Erreur d'exécution 9 ou 13 que je n'arrive pas à résoudre.
2
Réponses
20
Affichages
3 K
massol
M
M
  • Question Question
XL 2013 Erreur en fin de boucle ?
Réponses
2
Affichages
1 K
massol
M
R
  • Question Question
Case à cocher ajoutée automatiquement mais qui ne se place pas au bon endroit
Réponses
5
Affichages
2 K
cathodique
N
  • Question Question
XL 2010 Erreur 1004, definie par l'application ou l'objet, dans une boucle
Réponses
5
Affichages
2 K
Nicko29
N
S
  • Question Question
Recherchev dans les tableaux (VBA) avec deux conditions
2
Réponses
18
Affichages
5 K
mapomme
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…