Compare 2 plages de cellule

Bonsoir forum,

J'ai en A mes #projet et en B s'ils ont été validé ou non. ma plage est une requête donc elle est variable. Je désire que lorsque j'active ma macro tous les contrats vérifiés se copie dans une autre plage et que si le #projet existe déjèa, il ne se recopie pas pour ne pas avoir de doublon.

Voici le code que j'ai monté

Sub verifcel()

Dim c As Integer

Dim a As String

Dim b As Boolean

Dim i As Integer

For i = Sheets("Feuil3").Range("A1000").End(xlUp).Row To 2 Step -1

c = Sheets("Feuil3").Range("C65000").End(xlUp).Row

a = Sheets("Feuil3").Range(Cells(i - 1, 1)).Value

b = Worksheets("Feuil3").Range("C2:C" & c + 1).Find(a, lookat:=xlWhole)

If Not IsEmpty(Cells(i, 2)) And b = False Then

Cells(i, 1).Copy

Cells(c + 1, 3).PasteSpecial

Else

End If

Next i

End Sub

Le problème est que ma variable a plante Erreur définit par l'application ou par l'objet et je ne suis pas capable de l'arranger.

Merci d'avance

Bonjour à tous,

çà devient une manie d'afficher des codes qui ne marchent pas !

Envoie plutôt une feuille explicative, on s'occupe du reste

Amicalement

Claude

C'est juste que je commence à écrire en VBA et je croyais que ce n'était qu'une simple erreur de débutant qui se règlait en quelques secondes désoler.

Voici mon fichier :

Dite le si vous avez besoin de plus d'informations.

Oublier de mentionner que dans la collonne B, ce ne sont pas des x c'est des formules.

Résolu

Sub Test()
Dim LastLig As Long, NewLig As Long, i As Long
Dim c As Range
Application.screenupdating=false
With Sheets("Feuil3")
    LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastLig
        If .Range("B" & i).Value = "x" Then
            Set c = .Columns(3).Find(.Range("A" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
            If c Is Nothing Then
                NewLig = .Cells(Rows.Count, "C").End(xlUp).Row + 1
                .Range("C" & NewLig).Value = .Range("A" & i).Value
            End If
            Set c = Nothing
        End If
    Next i
End With
End Sub