Microsoft 365 Trouver une valeur dans un tableau

[Electron24]

Bonsoir le Forum,

Je recherche la formule me permettant de retrouver une valeur dans un tableau.
J'ai essayé index, recherchev, rechercheh sans y arriver.
Merci d'avance pour votre aide.
Je joints un fichier pour essai.

 

[Dranreb]

Bonsoir et bonne année.
En G23 :

=INDEX($D$6:$R$17;EQUIV($E$22;$C$6:$C$17;0);EQUIV($E$24;$D$5:$R$5;0))

 

[soan]

Bonsoir @Electron24, Dranreb,

bonne année 2021 !

=SI(OU(E22="";E24="");"";SIERREUR(DECALER(C5;EQUIV(E22;C6:C17;0);E24-2014);""))

soan

 

[laurent950]

Bonjour @Dranreb , @soan , @Electron24

Bonne année 2021 à vous tous.

Une petite explication ici :
Associez INDEX et EQUIV pour effectuer mieux vos recherches | Formation Excel (formations-excel.blogspot.com)

 

[Electron24]

Bonsoir laurent950, soan, et Dranreb Excel...ante Année 2021 à vous tous.
Merci à vous pour votre aide.
Super bonne soirée
Très instructif le lien de laurent950

 

[R@chid]

Bonjour @ tous,
une variante :

=SOMMEPROD((C6:C17=E22)*(D5:R5=E24);D6:R17)

Sous Excel pour Microsoft 365 :

=RECHERCHEX(E22;C6:C17;FILTRE(D6:R17;D5:R5=E24);"Néant")

Cordialement

 

[Electron24]

Bonjour Le Forum,
Bonjour R@chid, RechercheX sur Microsoft 365 très inintéressant. J'ai cherché sur le net pour avoir plus de détail. Beaucoup mieux que RechercheH et V
Cordialement.

 

[R@chid]

Re,

RechercheX sur Microsoft 365 très inintéressant

Je ne sais pas que voulais-tu dire, intéressant ou inintéressant ?

Cette nouvelle fonction est trop forte.

 

[Electron24]

Oups, Très intéressant. (ma vue commence à baisser)

 

[Electron24]

Bonsoir le Forum,
Bonsoir Dranreb, Soan, Laurent950, R@chid
Je reviens vers vous pour continuer mon travail.
J' ai créé un formulaire qui dans le classeur d'origine se trouve sur une autre feuille que celle des données.
(Feuille présente dans le classeur joint) afin de simplifié
Dans ce formulaire se trouve 2 listes déroulantes. La 1ere est remplie, la seconde n'affiche que la 1ere année. 2015
Je souhaiterai retrouvé la valeur du croisement des 2 listes déroulante pour l'inscrire dans T1
Si la valeur me convient je valide pour la recopier dans la cellule G24 de la feuille de travail.
Merci d'avance.
Bonne soirée

 

[Dranreb]

Option Explicit
Private T()
Private Sub UserForm_Initialize()
' Remplissage des listes déroulantes
   Cb_Mois.List = Range("Mois").Value
   Cb_Ans.List = WorksheetFunction.Transpose(Range("Ans"))
   T = Feuil1.[D6:R17].Value

' Nombre de modules enregistés.
    T3 = [B2]
   End Sub
Private Sub Cb_Ans_Change()
   AfficheR
   End Sub
Private Sub Cb_Mois_Change()
   AfficheR
   End Sub
Private Sub AfficheR()
   If Cb_Ans.MatchFound And Cb_Mois.MatchFound Then
      T1.Text = T(Cb_Mois.ListIndex + 1, Cb_Ans.ListIndex + 1)
      End If
   End Sub
Private Sub Btn_Close_Click()
    Unload Me
   End Sub

 

[Electron24]

Bonjour Dranreb,
Une fois encore, un grand merci. C'est exactement ce que je recherchais.
Bonne journée.

 

[Electron24]

Re,

Je viens de terminer de recopier la macro de Dranreb dans mon fichier d'origine.
Çà fonctionne super bien. Mais lorsque je rajoute une donnée dans mon tableau, elle n'apparait pas dans mes listes box
Cela est du à :

 T = Feuil1.[D6:R17].Value

Bien sur, si je rectifie les coordonnées du tableau ça fonctionne.
Y aurait il pas possibilité de l'adapter automatiquement.
Je pensais à décaler mais ça ne fonctionne pas.

 

[Dranreb]

Bonjour.
Mettre la plage sous forme de tableau et utiliser le ListObject qui le représentera.

 

[Electron24]

Super merci Dranreb