Bonjour !
Voici mon problème :
J'ai un document Excel avec 3 onglet :
- TOTO
- TITI
- DIFFERENCES

Je veux réussir à vérifier que toutes les données (qui sont des INTEGER dans la colonne E) de TOTO se trouvent sur l'onglet TITI.

Si une des données TOTO n'apparait pas, j'aimerais l'afficher dans l'onglet DIFFERENCES...

Voici mon code
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
 
Sub ParcourirOcusit()
 
Dim ok As Integer
Dim ColonneArt As Range
Dim DernièreLigne As Range
 
 
Sheets(OCUSIT).Range(Cells(2, E), Cells(29533, E)).Select
DernièreLigne = Sheets(DIFFERENCES).ActiveCell.End(xlDown).Row
ColonneArt = Sheets(MITPOP).Range(Cells(2, E), Cells(26518, E)).Address
 
    For Each Cel In Range(ColonneArt)
        ok = Cel.Value <> Cells(Cel.Row, Cel.Column + 1).Value
        If ok Then Sheets(DIFFERENCES).Cells(Cel.Row, Cel.Column).Value = Cel.Value
    Next Cel
End Sub
Merci pour votre aide