Discussion :

[mary1]

bonjour,
j'ai un petit souci avec une formule:
je veux rentrer la formule sur le doc "an2"
---je cherche dans an1 si la lettre (a,b,c,ou d….) se trouve dans an2

ex:
m n'est pas dans an2 donc afficher dans la colonne B (du doc an2) une formule permettant d'otenir m)

ci joint les doc an2 et an1 pour une meilleure comprehension

merci d'avance du coup de pouce

pour une meilleure compréhension de mon problème voici un autre exemple :

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

[mary1]

voici la macro correspondant à ce que je recherchais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public ListeAn2, ListeAn1
 
Function ExisteAn2(Variable) As Boolean
Dim i As Long
    ExisteAn2 = False
    For i = LBound(ListeAn2, 1) To UBound(ListeAn2, 1)
        If ListeAn2(i, 1) = Variable Then
            ExisteAn2 = True
            Exit For
        End If
    Next i
End Function
 
Sub Bouton1_QuandClic()
Dim i As Long
    Application.ScreenUpdating = False
    ActiveSheet.Range("B2:B65536").ClearContents
    ListeAn2 = ActiveSheet.Range(Range("A2"), Range("A2").End(xlDown)).Value
    Workbooks.Open (ThisWorkbook.Path & "\" & "an1.xls")
    Workbooks("an1.xls").Activate
    ActiveWorkbook.Worksheets("Feuil1").Activate
    ListeAn1 = ActiveSheet.Range(Range("A2"), Range("A2").End(xlDown)).Value
    Workbooks("an1.xls").Close False
    For i = LBound(ListeAn1, 1) To UBound(ListeAn1, 1)
        If Not ExisteAn2(ListeAn1(i, 1)) Then
            ActiveSheet.Range("B" & Range("b65536").End(xlUp).Row + 1) = ListeAn1(i, 1)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub