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
 

Discussions similaires


Haut Bas