XL 2019 Afficher les remarques dans le tableau du "sheet 2"

Cousinhub

XLDnaute Barbatruc

• 19 Juillet 2023

• #2

Bonjour,
Tu peux également utiliser Power Query, en natif dans ta version d'Excel.
Dans le premier onglet, un Tableau Structuré (TS) nommé "T_Data" (qui s'agrandit automatiquement dès que tu rajoutes des données)
Dans le 2ème onglet, la requête finale. Clic droit dans une cellule de la requête, "Actualiser", pour mettre à jour.
Bonne journée

 

Pièces jointes

• PQ_Remarques.xlsx

  26.5 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2023

• #3

Bonjour Lestoiles, Cousinhub,
Une possibilité en PJ avec :

VB:

=SIERREUR(INDEX(Sheet1!$G:$G;EQUIV(Sheet2!$A4&Sheet2!B$3;Sheet1!$A:$A&Sheet1!$H:$H;0));"")

Matriciel, donc à valider par Maj+Ctrl+Entrée.

 

Pièces jointes

• Afficher les remarques.xlsx

  17.8 KB · Affichages: 4

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 20 Juillet 2023

• #4

Cousinhub à dit:

Bonjour,
Tu peux également utiliser Power Query, en natif dans ta version d'Excel.
Dans le premier onglet, un Tableau Structuré (TS) nommé "T_Data" (qui s'agrandit automatiquement dès que tu rajoutes des données)
Dans le 2ème onglet, la requête finale. Clic droit dans une cellule de la requête, "Actualiser", pour mettre à jour.
Bonne journée

Cliquez pour agrandir...

Merci pour votre réponse, en faite, j'ai besoin d'une formule pour afficher le reusltat dans la cellule B4, du genre index ou recherche V

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 20 Juillet 2023

• #5

sylvanu à dit:

Bonjour Lestoiles, Cousinhub,
Une possibilité en PJ avec :

VB:

=SIERREUR(INDEX(Sheet1!$G:$G;EQUIV(Sheet2!$A4&Sheet2!B$3;Sheet1!$A:$A&Sheet1!$H:$H;0));"")

Matriciel, donc à valider par Maj+Ctrl+Entrée.

Cliquez pour agrandir...

Bonjour, merci pour la réponse mais est-il possible de le faire juste avec une formule index car je dois l'associer avec une autre formule aprés. Et je ne sais pas comment l'associer avec la formule "si" (c'est ce que je ferai après). La formule matriciel est un peu compliquée pour moi.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 20 Juillet 2023

• #6

Bonjour à tous,

A essayer

VB:

=SIERREUR(INDEX(T_Data[Remarques];EQUIV(Sheet2!$A4&B$3;T_Data[Matricule]&T_Data[Date];0));"")

JHA

 

Pièces jointes

• PQ_Remarques.xlsx

  28.8 KB · Affichages: 5

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 20 Juillet 2023

• #7

bonjour @lestoiles1 et bonjour à tous

lestoiles1 à dit:

La formule matriciel est un peu compliquée pour moi.

Cliquez pour agrandir...

Le problème c'est que tu as 2 conditions à vérifier, le matricule et la date. Tu n'échapperas pas à la formule matricielle (validée par Ctrl Maj Entrée) sauf à mettre cette formule dans un nom défini (matriciel automatiquement), sauf avec la solution par PowerQuery de @Cousinhub.
Les solutions de @sylvanu et de @JHA conviennent toutes les deux.
Je ne peux pas te faire d'exemple, je n'ai que mon téléphone pour plusieurs jours,
Une bonne âme pourrait peut-être le faire pour moi.
L'avantage du nom défini (tu peux choisir "Remarque" pour ce nom, c'est que c'est facile à intégrer dans une formule plus complexe et que ça ne nécessite plus de validation par Ctrl Maj Entrée.
A plus

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 20 Juillet 2023

• #8

Bonjour à tous,

Tu peux également ajouter une colonne au tableau pour éviter la validation matricielle.

JHA

 

Pièces jointes

• PQ_Remarques.xlsx

  33.9 KB · Affichages: 6

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 20 Juillet 2023

• #9

Re,
Bon je tente de mémoire pour la définition du nom :
Tu te places en B3 (Sheet2)
Menu Formule, Définir un nom, dans la fenêtre qui s'ouvre champ Nom écrire Remarque
Dans le champ Fait référence à copier la formule ci-dessus :
=SIERREUR(INDEX(T_Data[Remarques];EQUIV(Sheet2!$A4&B$3;T_Data[Matricule]&T_Data[Date];0));"")
Valider par OK
Remplir tes colonnes avec la formule
=Remarque
Ça devrait fonctionner...
A plus

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juillet 2023

• #10

Bonjour à tous,

Avec une fonction VBA :

VB:

Function Remarques(tablo As Variant, matricule As Variant, dat As Variant) As String
Dim i&
tablo = tablo.Value2 'matrice, plus raide
matricule = matricule.Value2
dat = dat.Value2
For i = 2 To UBound(tablo)
    If tablo(i, 1) = matricule And tablo(i, 8) = dat Then Remarques = tablo(i, 7): Exit Function
Next
End Function

A+

 

Pièces jointes

• VBA Remarques(1).xlsm

  23.5 KB · Affichages: 5

Vote positif 0 Vote négatif

AtTheOne

XLDnaute Accro

Supporter XLD

• 22 Juillet 2023

• #11

Bonjour à toutes & à tous,
bonjour @lestoiles1 , parmi toutes les propositions qui t'ont été faites, as-tu trouvé ton bonheur ?

 

Vote positif 0 Vote négatif