Bonjour,

j'essaye tant bien que mal, avec mon niveau de débutant, de faire une macro qui parcoure une colonne(feuil 1) en comparant chaque cellule a une autre colonne (feuil 2) les valeur. Si la valeur est différente alors on la rajoute a la suite de la colonne (feuil 2).

Mais je deviens fou je n'arrive a rien.

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
23
24
 
Sub exporter()
    Dim marqM As Integer
    Dim marq As String
    Derlig = Sheets("Extraction12").Range("A65536").End(xlUp).Row
 
    marqM = 1
    marq = Sheets("Extraction12").Range("A4")
    Sheets("MACRO").Range("A" & marqM) = marq
    For i = 4 To Derlig
 
        marq = Sheets("Extraction12").Range("A" & i)
 
        While marq <> Sheets("MACRO").Range("A" & marqM).Value Or Sheets("MACRO").Range("A" & marqM).Value <> ""
            marqM = marqM + 1
        Wend
 
        marqM = marqM + 1
        Sheets("MACRO").Range("A" & marqM) = marq
        marqM = 0
 
    Next i
 
End Sub
Je tente sur mon While de comparer si la cellule n'est pas vide et si ma valeur comparer est différente.

mais rien ne fonctionne. Je déprime sec.