Comment remplir un tableau

[WDAndCo]

Bonjour

Comment remplir ce tableau en fonction du changement de valeur du nom et des dates avec les données de l’onglet archive ?

Voir le fichier joint.

D’avance merci
Dominique

 

[Dugenou]

Re : Comment remplir un tableau

Bonjour,
voir pj
Formule matricielle à valider par ctrl+maj+enter

index (plage commençant en ligne1;max(si((condition1)*(condition2);ligne(...);0)))

se recopie à droite et en bas
incompatible avec cellules fusionnées (colonne code)
la mfc peut être faite directement par formule sur la colonne C

dans cette formule le calcul du code du salarié en fonction du nom (par recherchev) n'est pas optimal si vous avez 2 salariés avec le même nom

cordialement

 

[WDAndCo]

Re : Comment remplir un tableau

Bonjour le Forum, merci Dugenou
Pardon pour ce retard.
J’ai dés fusionnés les cellules.
Je voudrais que la Macro ici dessous après avoir était traduit se déclenche au changement de valeur de D7 sur EVS à Jour

Sub MAJ()
DL = 300
CP = Sheets("EVS à Jour").Range("D8")

For LgEVS = 16 To 30
Dat = Sheets("EVS à Jour").Range("C" & LgEVS)
For LgArchives = 7 To DL
If Sheets("Archive").Range("D" & DL) = CP And Sheets("Archive").Range("BH" & DL)= Dat Then Copie la ligne Dl d'archive sur EVS à jour en ligne LgEVS
Next LgArchives
Next LgEVS
End Sub

J'ai mis une nouvelle version du fichier.
D’avance merci

 

[WDAndCo]

Re : Comment remplir un tableau

Bonjour le Forum
Je n'ai pas réussi avec la solution de Dugenou !
Aussi si une âme charitable pouvais rendre fonctionnelle la Macro qui suit.

Sub MAJ()
Sheets("Archives").Select
DL = Range("A65536").End(xlUp).Row 'Derniere ligne dans Archives
DL = DL - 1
For LgEVS = 16 To 30 'Ligne dans EVS à jour
For LgArchives = 7 To DL 'Ligne dans Archives
If Sheets("Archives").Range("BI" & LgArchives) = Sheets("EVS à jour").Range("BI" & LgEVS) Then
    Sheets("Archives").Select
    Range("D" & LgArchives : "BG" & LgArchives).Select
    Selection.Copy
    Sheets("EVS à jour").Select
    Range("D" & LgEVS).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
Next LgArchives
Next LgEVS
End Sub

D'avance merci
Dominique