Sauter 2 lignes

[antoine04]

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.

 

[soenda]

Re : Sauter 2 lignes

Bonjour le fil, antoine04

Tu peux écrire, par exemple (en mode pressé 🙂)

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

En place de

ligne = ligne + 1

A plus

 

[antoine04]

Re : Sauter 2 lignes

Bonjour soenda,

merci pour ta réponse, malheureusement cela ne fonctionne pas 🙁

 

[soenda]

Re : Sauter 2 lignes

Re

Une fois adapté, ça donne:

If c.Offset(, 3).Value <> c.Offset(-1, 3).Value then ...

A plus

 

[antoine04]

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]

Re : Sauter 2 lignes

Re

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

Oui, mais avec un classeur et quelques données bidons, ça serait plus facile.

A plus

 

[soenda]

Re : Sauter 2 lignes

Re,

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

A plus

 

[antoine04]

Re : Sauter 2 lignes

J'étais justement entrain d'en créer un 🙂

Merci d'avance

 

[antoine04]

Re : Sauter 2 lignes

Petite précision, dans l'userform, met les dates : 01/05/2010 et 31/05/2010 ^^

 

[soenda]

Re : Sauter 2 lignes

Re,

Voilà la PJ ...

A plus

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

 

[antoine04]

Re : Sauter 2 lignes

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

 

[soenda]

Re : Sauter 2 lignes

Re,

Ci-dessous, ton classeur avec les modif qui devraient aller ... 😀

A plus

 

[antoine04]

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