Discussion :

[samsso2006]

Bonjour à tous,
Merci de bien vouloir telecharger et dezipper les pièces jointes.

J'ai deux classeurs(liste1 et liste2). je voudrais mettre à jour la colonne STATUT(L) de liste1 en fonction des données de la colonne STATUT(L) du fichier liste2.

La colonne CODE(A) servira de clé.

Voici cmt je voudrais proceder:
-Prendre cellule code dans la colonne CODE de liste1
-Rechercher la valeur de la cellule dans la colonne CODE de liste2
-Si la la valeur est trouvée alors comparer les valeurs des champs STATUTS des deux listes
-si champs STATUT de liste1 est vide vide alors recopier la valeur du champs STATUT de liste2 dans le champs STATUT de liste1.

J'espère avoir été le plus clair possible.

Merci pour votre aide.

[ancel17]

Salut,

si tu veux que le statut soit recalculé à chaque ouverture du fichier liste1, tu peux essayer ça :

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
Private Sub Workbook_Open()
Dim fl1 As Worksheet, fl2 As Worksheet
Dim wb As Workbook
Dim c1 As Range, c2 As Range
Set fl1 = ThisWorkbook.Worksheets(1)
Set wb = Workbooks.Open("Ton chemin d'accès\liste2.xls")
Set fl2 = wb.Worksheets(1)
For Each c1 In fl1.Range("A2:A" & fl1.Range("A1").SpecialCells(xlCellTypeLastCell).Row)
    For Each c2 In fl2.Range("A2:A" & fl2.Range("A1").SpecialCells(xlCellTypeLastCell).Row)
        If c1.Value = c2.Value Then
            fl1.Cells(c1.Row, 12) = fl2.Cells(c2.Row, 12)
        End If
    Next c2
Next c1
wb.Close
End Sub

[Gorfael]

Salut samsso2006
- Liste 2 Maître : Liste 1 esclave ?
- mise à jour quand ? comment ?
Si 'Liste 1'!L1<>'Liste 2'!L1 Mais 'Liste 1'!L1<>"" on fait quoi ?

A+