Bonjour a tous,

Après avoir parcourut les différents forums, sites existants,
je me suis un peu perdu dans toutes les formules que j'ai vu.

Pouvais vous m'indiquer les formules a utiliser s'il vous plait ?

Le code suivant n'est Pas Du Tout conforme au langage VBA mais je l'ai ecrit
pour que vous compreniez simplement son but.
(Qui est de verifier si une ligne existe dans mes 2 feuilles et filtrer les doublons
en changeant la date(Colonne B) et le contenu d'une cellule (Colonne F)
en ne gardant que la version la plus ancienne (pour mettre la ligne a jour))

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
25
26
27
28
29
30
Sub Archivage()
 
Dim i As Integer            ' i = numéro de ligne feuille List
Dim j As Integer            ' j = numéro de ligne feuille Archive
j = 1
 
For i = 2 To 1 + 49
    While i <> 52
 
    If Sheets("List").Cells(i, 1) <> Sheets("Archive").Cells(j, 1) Then
    ' Si A2.List différent de A1.Archive, on passe a A2.Archive
        j = j + 1
 
        If Sheets("Archive").Cells(j, 1) = "" Then
        'Si Aj.Archive = Rien ( ce qui correspond a la fin de la list d'archive),
        '1/ On ajoute la ligne de List a Archive
        Sheets("Archive").Row(j) = Sheets("List").Row(i)
        '2/on passe a A3.List
        i = i + 1
        j = 1
 
        End If
 
    Else:   Sheets("Archive").Cells(j, 6) = Sheets("List").Cells(i, 6)
            Sheets("Archive").Cells(j, 2) = Sheets("List").Cells(i, 2)
    'Si les cellules sont identiques, on donne l'état de "List" a "Archive"
 
    End If
 
End Sub
Merci d'avance a ceux qui prendrons le temps de me répondre, de m'aider .