Discussion :

[bobinette33]

Bonsoir forum,

J'ai en colonne A mes #projet et en B s'ils ont été validé ou non (indiqué pas un "x"). Ma plage A 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 (colonne C) et que si le #projet existe déjà, il ne se recopie pas pour ne pas avoir de doublon, donc lorsque j'actualise ma requête, mes #projet change, mais certains reviennent, donc les nouveaux contrat vérifié je veux qu'ils s'ajoute dans ma liste en C.

Pour spécification,mes données pour la colonne B (validé) c'est une formule recherchev qui a dans la colonne.

Voici le code que j'ai monté

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
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

[mercatog]

proposition à adapter si j'ai bien compris

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
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