recherche formule ("recherche" ou autre...)

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #2

Re : recherche formule ("recherche" ou autre...)

Bonjour mary1,

je ne doit pas être doué... j'ai rien compris !

 

Vote positif 0 Vote négatif

M

mary1

XLDnaute Junior

• 29 Mai 2008

• #3

Re : recherche formule ("recherche" ou autre...)

bonjour tototiti2008,

je te donne un autre exemple peut etre que ca sera plus clair :

en 2007:
(colonne A)
a
b
c

en 2006:
(colonne A)
b
m
r

je cherche à rentrer une formule dans 2007
(en colonne B)
dans cette formule je veux qu'à la fin du compte il m'affiche les éléments qu'il y a en 2006 qui ne sont pas présent en 2007, ce qui donne:

feuille 2007:
(colonne B)
m
r

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #4

Re : recherche formule ("recherche" ou autre...)

pas évident en formule... en macro sans doute, mais en formule je ne vois pas.

 

Vote positif 0 Vote négatif

M

mary1

XLDnaute Junior

• 29 Mai 2008

• #5

Re : recherche formule ("recherche" ou autre...)

ça serait quoi en macro?!

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #6

Re : recherche formule ("recherche" ou autre...)

Je pars du principe que an1 est ouvert ou la macro doit l'ouvrir ?

 

Vote positif 0 Vote négatif

M

mary1

XLDnaute Junior

• 29 Mai 2008

• #7

Re : recherche formule ("recherche" ou autre...)

"an1" c'est la macro qui l'ouvre!


Avec la macro ci-dessous il m'affiche les cellules identiques, alors que je cherche l'inverse!
Sub test2()
Application.ScreenUpdating = False
Workbooks.Open (ThisWorkbook.Path & "\" & "an1.xls")
tablo = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
Workbooks("an2.xls").Activate
Range("C2:C65536").ClearContents
For n = 2 To Range("A65536").End(xlUp).Row
For m = LBound(tablo, 1) To UBound(tablo, 1)
If Range("A" & n) = tablo(m, 1) Then
Range("C" & n) = Range("A" & n)
ID = True
End If
Next m
If ID = False Then Range("C" & n) = ""
ID = False
Next n
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #8

Re : recherche formule ("recherche" ou autre...)

Voilà une solution :

 

Pièces jointes

• an1.xls

  15.5 KB · Affichages: 49
• an2.xls

  26 KB · Affichages: 50
• an1.xls

  15.5 KB · Affichages: 49
• an2.xls

  26 KB · Affichages: 62
• an1.xls

  15.5 KB · Affichages: 51
• an2.xls

  26 KB · Affichages: 49

Vote positif 0 Vote négatif

M

mary1

XLDnaute Junior

• 29 Mai 2008

• #9

Re : recherche formule ("recherche" ou autre...)

ça fonctionne impec merci beaucoup

 

Vote positif 0 Vote négatif