Bonjour tout le monde,
 
Je re dépose un post aujourd'hui car j'ai encore un soucis sur un autre projet.
Sous excel je dois comparer deux collons, c'est-à-dire que je regarde chaque cellule de la colonne pas et je vérifie si elle se trouve dans la colonne B. Si la cellule n'est pas présente je l'écris dans la colonne C.
 
Le problème c'est que Find() ne fonctionne pas chez moi je comprend pas pourquoi, les cellules sont de type texte et contitenne des chiffres très grand du style 12caractères.
Voici mon code:
 
 
Code :
For i = 2 To 11
       Set pos = Cells.Find(What:=Worksheets("caps" ).Cells(i, 13).Value, _
                   After:=Worksheets("mercure" ).Cells(1, 11))        
If pos Is Nothing Then
        'cherche la premiere cellule vide
            DernCellUtil = Worksheets("Sauvegarde" ).Range("G1" ).End(xlDown).Row
            Worksheets("Sauvegarde" ).Cells((DernCellUtil + 1), 7).Value = Worksheets("caps" ).Cells(i, 13).Value
        End If
Next iDans la colonne C (celle située sur la feuille Sauvegarde), soit elle me réécri toutes les cellule de la colonne A, ou elle me réécri rien du tout. Alors qu'il y a bien des éléments de la colonne A présent dans la colonne B, mais pas tous.
 
Que faire?
 
Merci beaucoup d'avance!  

Ca marche mieux....masi a readapter avec tes noms de feuilles !
For i = 2 To 11
    Set pos = Worksheets("Feuil2" ).Range("a1:Z25" ).Find(What:=Worksheets("Feuil1" ).Cells(i, 13).Value, After:=Worksheets("Feuil2" ).Cells(1, 11))
    If pos Is Nothing Then
        'cherche la premiere cellule vide
         
            Sheets("Feuil3" ).Select
            ActiveSheet.Cells(1, 11).Select
            ActiveCell.SpecialCells(xlLastCell).Select
            DernCellUtil = ActiveCell.Row
            Worksheets("Feuil3" ).Cells((DernCellUtil + 1), 7).Value = Worksheets("Feuil1" ).Cells(i, 13).Value
    End If
Next i