Macro entre 2 classeurs

[jean]

Bonjour au forum

je suis perdu!
en fait j'ai une base de donnee enorme sur un classeur que je dois actualiser a partir d'un premier classeur.
il me faudrait une macro capable capable d'effacer les lignes d'un classeur 2 qui sont identiques a celles d'un classeur1 et de copier ce qui reste dans une feuille 2 du classeur 1
je sais mes explications ne sont terrible ci joint un exemple qui reprend mon probleme

un tres tres grand merci d'avance. [file name=FeuillesClasseurs_20050609190007.zip size=3266]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuillesClasseurs_20050609190007.zip[/file]

 

[JEAN]

je n'ais pas reussi a attacher mes fichiers
je recommence [file name=1.zip size=1761]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/1.zip[/file]

 

[jean]

et voila le deuxieme
excusez moi mais je n'ais pas reussi a attacher les 2 [file name=2.zip size=1527]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/2.zip[/file]

 

[jean]

le deuxieme na pas marche
autre tentative [file name=FeuillesClasseurs_20050609200257.zip size=3266]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuillesClasseurs_20050609200257.zip[/file]

 

[jean]

re [file name=2_20050609201442.zip size=3260]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/2_20050609201442.zip[/file]

 

[ChTi160]

Salut jean
bonsoir le forum
une question quand tu dis que certaines lignes se trouvent dans les deux classeurs, tu veux dire des lignes identiques ou juste la première cellule ?
oups après verif c'est la ligne complète excuse
merci d'avance

Message édité par: ChTi160, à: 09/06/2005 20:39

 

[ChTi160]

re Jean

une première approche
en pièce jointe
bonne soirée [file name=Transfert_20050609222240.zip size=16658]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20050609222240.zip[/file]

 

[ChTi160]

Salut Jean
bonjour le Forum
voilà ce que j'ai modifier afin de traiter le problème de la case et des espaces pouvant se trouver devant ou derrière les données

maVar1 = Trim(tabTemp(L, 1)) & Trim(tabTemp(L, 2)) & Trim(tabTemp(L, 3)) & Trim(tabTemp(L, 4))

For L2 = 1 To UBound(tabtemp2, 1)

maVar2 =Trim(tabtemp2(L2, 1)) & Trim(tabtemp2(L2, 2)) & Trim(tabtemp2(L2, 3)) & Trim(tabtemp2(L2, 4))
If UCase(maVar1) = UCase(maVar2) Then tabTemp(L, 5) = True 'ici on compare le deux chaines
Bonne Journée