Parcourir une colonne et la comparer avec une autre

**MartinezGarcia** · 15/02/2008, 10h37

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

**Many31** · 15/02/2008, 10h55

pour la fonction qui te permettra de parcourir toutes les cellules de ta feuilles TOTO je sais pas...

mais en tout cas cette ligne de code:

Code :

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

If Worksheets(2).Cells.Find(What:=recherche) Is Nothing Then

te permet de rechercher la variable "recherche" dans l'ensemble des cellules de ta feuille n°2.

Si la variable n'est pas trouvé alors le code rentre dans le if ... end if