Bonjour,

Je suis en train de créer un programme en deux etapes
On part de 2 colonnes A et B de references dont certaines se retrouvent dans ces deux colonnes.
Le but est de créer 3 nouvelles colonnes avec une des reference qui sont seulement dans la colonne 1, la seconde avec les references qui ne sont que dans la colonne 2 et la troisieme avec les references se trouvant dans les deux colonnes.
Pour corser l'affaire il faut enlever les espaces des references de la colonne 2 pour pouvoir faire la comparaison.

Voila ou en et mon programme. (Etant donné que je suis débutant j'ai vite bloqué).



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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Sub comparaison()
 
Dim i, j, k As Integer
Dim Cell  As Range
Dim newsaintlaurent As Variant
 
 
Windows(" Delta CP1-CP2 sur ASG.xls").Activate
 
'On compare les cellules
 
 
    Range("A1").Select  'On se place sur la première des 2 colonnes
    DernièreLigne = ActiveCell.End(xlDown).Row
    Maplage = Range(Cells(1, 1), Cells(DernièreLigne, 1)).Address
 
    Range("B1").Select  'On se place sur la deuxième des 2 colonnes
    DernièreLigne2 = ActiveCell.End(xlDown).Row
    Maplage2 = Range(Cells(1, 2), Cells(DernièreLigne2, 2)).Address
 
i = 2
 
While Cells(i, 2) <> ""
 
Maplage2new = Replace(Maplage2, " ", "")
Cells(i, 4) = Maplage2new(i)
i = i + 1
 
Wend
 
    For Each Cel In Range(Maplage)
        ok = Cel.Value <> Cells(Cel.Row, Cel.Column + 4).Value
        If ok Then Cells(Cel.Row, Cel.Column + 6).Value = Cel.Value
    Next Cel
 
Cells(1, 6) = "A et B"
Cells(1, 7) = "A"
Cells(1, 8) = "B"
 
Columns(1).AutoFit
Columns(2).AutoFit
Columns(3).AutoFit
Columns(4).AutoFit
Columns(5).AutoFit
Columns(6).AutoFit
Columns(7).AutoFit
Columns(8).AutoFit
 
 
 
End Sub
Merci pour votre aide