Recherchev multifeuille

Bonjour à tous,
Est-ce qu’il serait possible lors d’une rechercheV, la table matrice est faite sur plusieurs feuille.
Vous trouvez ci-joint un fichier détaillant mon problème et mon besoin.
Merci d’avance,
Pandarecherche V multifeuille.xlsx (10,5 Ko)

Bonjour,

Avec une petite macro, en tapant en C6 la valeur désirée, si la valeur existe elle affiche en D6 la valeur de la colonne désirée.

MACRO MODULE

Sub Recherche(Nom As String, Ligne As Long)
Dim Cel As Range
Dim Depart As String
Dim Ws As Worksheet

  Range("D" & Ligne) = "" 'efface ancien résultat
  For Each Ws In Sheets(Array("A", "B")) 'Boucle sur les deux feuilles A & B
    Set Cel = Ws.Cells.Find(what:=Nom, LookIn:=xlValues, lookat:=xlWhole) 'Recherche la valeur de la cellule C6
    If Not Cel Is Nothing Then
      Range("D" & Ligne) = Cel.Offset(0, 1) 'Affiche le résultat dans la cellule D6
      Exit Sub 'Sort de la procèdure
    End If
  Next Ws
    MsgBox "Pas de résultat" 'Si pas de correspondance
End Sub

MACRO ONGLET

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C6"), Target) Is Nothing And Target.Count = 1 Then
    Recherche Target.Value, Target.Row
  End If
End Sub

recherche V multifeuille.xlsm (19,9 Ko)

1 J'aime

Bonjour Mimimathy,
Est-ce que tu peux me guider un peu parce que je suis presque débutant en macro. Si j’ouvre l’onglet développeur, quelles sont les étapes à suivre s’il vous plaît?
Merci à vous!
Cordialement

Bonjour,

Pour la macro MODULE

ALT et touche F11 pour ouvrir le Développeur
Menu INSERTION —> Module
copier / coller ma Macro Module (de Sub Recherche(Nom as String … à End Sub)

Double clic sur la feuille qui reçoit les résultats
et copier / coller ma Macro Onglet

Après si :

les noms des feuilles A et/ou B ne sont pas les mêmes, il faut modifier dans la macro module

et/ou si :

la cellule qui reçoit le résultat n’est pas C6, il faut modifier dans la macro onglet

1 J'aime

Merci beaucoup Mimimathy.
Bonne continuation!