Re @molo,
Bon, je ne pouvais pas me reposer le cerveau sans essayer de trouver une solution pour ce soir.
Voici donc une nouvelle proposition, mi figue mi raisin, ce que je veux dire c’est que j’emploi des formules avec du VBA.
Comment ça marche: Choisir dans la “Combobox” la valeur alpha comme à l’origine, puis appuyer sur le bouton " Choisir & GO ".
Voici le code VBA:
Sub For_Sans_D()
Application.ScreenUpdating = False
Range("C10:C15").AdvancedFilter Action:=xlFilterInPlace, Unique:=False
Sheets("Top").Select
For i = 10 To Sheets.Count
Sheets(i).Select (False)
Next
Range("B10").Select
ActiveCell.FormulaR1C1 = "Nom & Prénom"
Range("C10").Select
ActiveCell.FormulaR1C1 = "Salaires"
Range("C11").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",LARGE(IF((Tableau10[Entreprise]=R2C1),SBASEFICHIER),1),LARGE(IF((AFFECTATION=R2C1),SBASEFICHIER),1)),"""")"
Range("C12").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",LARGE(IF((Tableau10[Entreprise]=R2C1),SBASEFICHIER),2),LARGE(IF((AFFECTATION=R2C1),SBASEFICHIER),2)),"""")"
Range("C13").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",LARGE(IF((Tableau10[Entreprise]=R2C1),SBASEFICHIER),3),LARGE(IF((AFFECTATION=R2C1),SBASEFICHIER),3)),"""")"
Range("C14").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",LARGE(IF((Tableau10[Entreprise]=R2C1),SBASEFICHIER),4),LARGE(IF((AFFECTATION=R2C1),SBASEFICHIER),4)),"""")"
Range("C15").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",LARGE(IF((Tableau10[Entreprise]=R2C1),SBASEFICHIER),5),LARGE(IF((AFFECTATION=R2C1),SBASEFICHIER),5)),"""")"
Range("B11").Select
ActiveCell.FormulaArray = "=IFERROR(IF(R2C1=""Entreprise"",INDEX(AFFECTATION,MATCH(R2C1&RC3,Tableau10[Entreprise]&SBASEFICHIER,0)),INDEX(nomprenom,MATCH(R2C1&RC3,AFFECTATION&SBASEFICHIER,0))),"""")"
Range("B11").Select
Selection.AutoFill Destination:=Range("B11:B15")
Sheets("Top").Select
Range("C10:C15").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Application.ScreenUpdating = True
End Sub
Et voici ton fichier ICI==> molo V3.xlsm (85,5 Ko)
Cela convient-il ?
Cordialement.