Microsoft 365 Combiner 2 Listes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2023

• #2

Bonjour Bibbip,
Sans fichier test pour essayer de comprendre ....

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 28 Mai 2023

• #3

Bonjour Sylvanu

Vous avez raison ca sera plus simple
En PJ , j'ai mis un fichier exemple

Merci

Bibbip35

 

Pièces jointes

• Liste Combiner.xlsx

  52.4 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2023

• #4

Re,
En PJ un essai avec une macro événementielle. celle ci se déclenche automatiquement lorsqu'on sélectionne la feuille "Combiner Liste", avec :

VB:

Sub Worksheet_Activate()
    Tablo1 = [Absences_Salariés[Date]]          ' transfert liste 1 dans array
    Tablo2 = [Tableau6]                         ' transfert liste 2 dans array
    [H4:H10000].ClearContents                   ' effacement données présentes
    [H4].Resize(UBound(Tablo1, 1), 1) = Tablo1  ' tranfert des deux tableaux dans la feuille
    Cells(4 + UBound(Tablo1, 1), "H").Resize(UBound(Tablo2, 1), 1) = Tablo2
End Sub

 

Pièces jointes

• Liste Combiner.xlsm

  57.7 KB · Affichages: 1

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 28 Mai 2023

• #5

Merci Sylvanu

Le problème est que je souhaite appellé ces listes dans une formule

=Datefin([@[Date_début]];[@[Tps_
Prévu]];'Paramêtres Heures'!$C$4:$D$5;DECALER(Absences_Salariés[[#En-têtes];[Date]];EQUIV([@OPERATEUR];Absences_Salariés[Prénom];0);;NB.SI(Absences_Salariés[Prénom];[@OPERATEUR])))

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2023

• #6

bibbip35 à dit:

Le problème est que je souhaite appellé ces listes dans une formule

Cliquez pour agrandir...

Expliquez au moins pourquoi. Ma macro le fait automatiquement.

En PJ une autre approche sans formules matricielles, avec :

VB:

=SIERREUR(SI(NB.SI(Absences_Salariés[Prénom];"*")>LIGNE()-4;INDEX(Absences_Salariés[Date];LIGNE()-3);INDEX(Tableau6[Fériés];LIGNE()-NB.SI(Absences_Salariés[Prénom];"*")-3));"")

 

Pièces jointes

• Liste Combiner.xlsx

  51 KB · Affichages: 1

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 28 Mai 2023

• #7

Sylvanu

Désolé je ne suis pas très clair ... Le problème de la macro est que ca genere bien une liste conforme
mais j'ai besoin de cette liste pour l’insérer dans une formule ( Comme liste nommé )

Merci

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 28 Mai 2023

• #8

Bonsoir Sylvanu, bibbip35, le forum

Autre

Slts

 

Pièces jointes

• Liste Combiner.xlsx

  52.2 KB · Affichages: 5

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 29 Mai 2023

• #9

Bonjour à tous,

essaye
=TRIER(ASSEMB.V(Tableau6[Fériés];FILTRE(Absences_Salariés[Date];Absences_Salariés[Prénom]='Combiner Liste'!A1)))

Crdlmt

 

Vote positif 0 Vote négatif