Sauter 2 lignes

antoine04

XLDnaute Nouveau
Problème de saut de ligne

Bonjour tlm,

J'espère que tous le monde va bien depuis mon dernier passage chez vous :)

J'expose mon problème.

J'ai un fichier avec des commandes clients et le numéro de la commande dans la colonne D.
Les commandes contiennent de 1 à 11 lignes.
J'ai un code (ci-dessous) qui me permet d'extraire des données par macro mais j'aimerai que cette macro saute 1 ou 2 lignes suivant le contenu de la cellule supérieur. C'est-à-dire, si la cellule D(x) = D(x-1) alors il saute 1 lignes sinon il saute 2 lignes.

Voici le code :

For Each c In Sheets("Portefeuille Clients").Range("A4:A" & Sheets("Portefeuille Clients").Range("A65536").End(xlUp).Row)

If c.Offset(, 23).Value >= CDate(Recherche.date1.Value) And c.Offset(, 23).Value <= CDate(Recherche.date2.Value) Then

c.EntireRow.Copy Sheets("Extraction").Range("A" & ligne)

ligne = ligne + 1

End If

Next c
J'ai pensé à cela, mais cela ne marche pas.

If Range("D" & ligne).Value = Range("D" & (ligne - 1)).Value Then

ligne = ligne + 1

Else

ligne = ligne + 2

End If
Si quelqu'un connait la solution à mon problème, je le remercie d'avance pour l'aide qu'il pourra me fournir

Merci d'avance.
 
Dernière édition:

soenda

XLDnaute Accro
Re : Sauter 2 lignes

Bonjour le fil, antoine04

Tu peux écrire, par exemple (en mode pressé :))
Code:
If Range("D" & ligne).Value <> Range("D" & (ligne - 1)).Value Then ligne = ligne + 1
En place de
Code:
ligne = ligne + 1
A plus
 

soenda

XLDnaute Accro
Re : Sauter 2 lignes

Re

Une fois adapté, ça donne:
Code:
If c.Offset(, 3).Value <> c.Offset(-1, 3).Value then ...
A plus
 

antoine04

XLDnaute Nouveau
Re : Sauter 2 lignes

Re,

Dans un premier temps, je vais de suite aller me pendre car cela était simple

Mais un nouveau problème ce pose maheureusement :(
Voici ce que cela donne :

2010048
2010048
10001482

10001482
10001482
10001507
Cela décale, y-a-t-il une petite solution ?
 

soenda

XLDnaute Accro
Re : Sauter 2 lignes

Re,

En attendant ...
Un exemple simplifié, en PJ.

A plus
 
Dernière édition:

soenda

XLDnaute Accro
Re : Sauter 2 lignes

Re,

Voilà la PJ ...

A plus

Edition : je regarde ton classeur (que je n'avais pas vu)
 

Fichiers joints

Dernière édition:

antoine04

XLDnaute Nouveau
Re : Sauter 2 lignes

Grrrrr, je n'arrive pas à adapter ton code avec mon fichier, je vais devenir fou avec ce saut de ligne ! :(
 

antoine04

XLDnaute Nouveau
Re : Sauter 2 lignes

Merci Soenda,

j'ai plus qu'à bidouiller le code sur mon vrai fichier pour qu'il fonctionne correctement dessus.

Encore merci

Antoine
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas