Sauter 2 lignes

antoine04 · 16 Juin 2010

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 · 16 Juin 2010

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

antoine04 · 16 Juin 2010

Re : Sauter 2 lignes

Bonjour soenda,

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

soenda · 16 Juin 2010

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 · 16 Juin 2010

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 · 16 Juin 2010

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 · 16 Juin 2010

Re : Sauter 2 lignes

Re,

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

A plus

antoine04 · 16 Juin 2010

Re : Sauter 2 lignes

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

Merci d'avance

antoine04 · 16 Juin 2010

Re : Sauter 2 lignes

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

soenda · 16 Juin 2010

Re : Sauter 2 lignes

Re,

Voilà la PJ ...

A plus

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

antoine04 · 16 Juin 2010

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 · 16 Juin 2010

Re : Sauter 2 lignes

Re,

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

A plus

antoine04 · 17 Juin 2010

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

Sauter 2 lignes

antoine04

XLDnaute Nouveau

soenda

XLDnaute Accro

antoine04

XLDnaute Nouveau

soenda

XLDnaute Accro

antoine04

XLDnaute Nouveau

soenda

XLDnaute Accro

soenda

XLDnaute Accro

antoine04

XLDnaute Nouveau

Pièces jointes

antoine04

XLDnaute Nouveau

soenda

XLDnaute Accro

Pièces jointes

antoine04

XLDnaute Nouveau

soenda

XLDnaute Accro

Pièces jointes

antoine04

XLDnaute Nouveau

Discussions similaires