copier lignes sur autre feuillle sous deux conditions

Modeste

XLDnaute Barbatruc

• 22 Avril 2012

• #2

Re : copier lignes sur autre feuillle sous deux conditions

Bonjour DAN59350,

Pas regardé le reste de ton code, mais pour la copie, il faut comparer:

If c & c.Offset(0, 1) = x & x.Offset(0, 2)

Cliquez pour agrandir...

et non pas

If c & c.Offset(0, 1) = x & x.Offset(0, 3)

Cliquez pour agrandir...

Avec cette modif, des choses sont bien copiées ... à toi de vérifier si ce sont les bonnes 😉

 

Vote positif 0 Vote négatif

D

DAN59350

XLDnaute Nouveau

• 22 Avril 2012

• #3

Re : copier lignes sur autre feuillle sous deux conditions

Bonjour Modeste,

Merc pour ta rapidité.
Effectivement, la copie s'effectue, mais avec un décalage d'une colonne ; c'est-à-dire que les noms sont copiés en colonne A au lieu de la colonne B et ainsi de suite....
Je continue mes recherches.
Merci pour ton aide et bonne fin d'après-midi.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 22 Avril 2012

• #4

Re : copier lignes sur autre feuillle sous deux conditions

Re-bonjour,

Sur la même ligne que tout à l'heure, que donnerait

Sheets(3).Range("B65536").End(xlUp).Offset(1, 0)

Cliquez pour agrandir...

à la place de:

Sheets(3).Range("A65536").End(xlUp).Offset(1, 0)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

D

DAN59350

XLDnaute Nouveau

• 22 Avril 2012

• #5

Re : copier lignes sur autre feuillle sous deux conditions

J'ai bien essayé de changer la colonne, dans ce cas, le nom se copie bien dans la colonne B
mais dans la feuille 2 colonne A, il doit y avoir un n° de référence et il n'est pas copié dans la feuille 3.
Aurais-tu une idée pour copier la ligne entière de la feuille 2 vers la feuille 3 si les deux conditions sont remplies ?
Cela paraît facile, mais je fais un blocage !!!
Merci pour la réponse que tu voudras bien m'apporter.

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 22 Avril 2012

• #6

Re : copier lignes sur autre feuillle sous deux conditions

Bonsoir,

Au départ j'avais annoncé ne pas avoir trop regardé à ton code ... ce que j'ai fait maintenant et ... je n'y comprends pas grand chose 😕
A quoi sert de créer une boucle pour rechercher chaque nom dans la feuille "syndicat"?
Si tu commençais par expliquer clairement ce que tu veux faire, peut-être se trouvera-t-il quelqu'un qui pourra proposer une piste!?

D'autre part, dans ta feuille 2 tu nous dis qu'il y a un n° qui ne se recopie pas ... mais dans la colonne A, point de n° 😱

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 23 Avril 2012

• #7

Re : copier lignes sur autre feuillle sous deux conditions

Bonjour,

Finalement en prenant le temps d'examiner le code et le contenu des différentes feuilles et en ajoutant des n° fantaisistes en colonne A de la feuille "administration", il me semble que c'est toujours à la même ligne qu'il fallait faire une modif. Voici la version complète:

If c & c.Offset(0, 1) = x & x.Offset(0, 2) Then x.Offset(0, -1).Resize(1, nbcols).Copy (Sheets(3).Range("A65536").End(xlUp).Offset(1, 0))

Cliquez pour agrandir...

en vert l'ajout qui permet de copier depuis la colonne A ... à tester!?

 

Vote positif 0 Vote négatif

D

DAN59350

XLDnaute Nouveau

• 23 Avril 2012

• #8

Re : copier lignes sur autre feuillle sous deux conditions

Bonjour Modeste,

Je te remercie pour ton aide précieuse.
En effet, le problème venait bien de cette ligne.
Je viens de tester et ça marche ! C'est que du bonheur !!!!!!
Encore un grand merci pour le temps que tu as passé sur ce problème.
Bonne journée.
Dan

 

Vote positif 0 Vote négatif