Recup Onglet selon valeur d'une celulle

Bonjour,

J'aurai besoins de votre support pour cette requête !!!!

j'ai une formule

=INDEX('V1'!C:C;SOMMEPROD(('V1'!D4:D46='V1'!D36)*(HEURE('V1'!H4:H46)=HEURE('V1'!E36))*(MINUTE('V1'!H4:H46)=MINUTE('V1'!E36))*LIGNE('V1'!H4:H46)))

V1 étant l'onglet de récupération dans ce cas

Mais en réalité je voudrai rendre cette formule Dynamique selon le contenu d'une celulle

exemple en C7 J'ai une liste déroulante qui me propose V1 V2 V3 etc....

et je voudrai que `V1'! de ma formule sois remplacer par le contenu de ma cellule C7

Merci de votre aide car je sèche

Cordialement

Salut barachoie,

pour ma part, j'essayerais déjà comme cela... mais sans fichier...

J'ai mis Range("C8") pour loger la formule : à adapter et à tester, comme on dit dans ce cas!

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim sV As String
'
If Not Intersect(Target, Range("C7")) Is Nothing Then
    sV = "'" & Target.Value & "'"   'V1 ou V2...
    Range("C8").FormulaLocal = "=INDEX(" & sV & "!C:C;SOMMEPROD((" & sV & "!D4:D46=" & sV & "!D36)*(HEURE(" & sV & "!H4:H46)=HEURE(" & sV & "!E36))*(MINUTE(" & sV & "!H4:H46)=MINUTE(" & sV & "!E36))*LIGNE(" & sV & "!H4:H46)))"
End If
'
End Sub

A+

Bonjour et Merci

j'utilise Excel 2007 et ne semble pas comprendre la commande intersect target

ci-joint un fichier

Merci d'avance

Bonjour,

Quelqu'un aurait -il une idée pour debuger la Macro

car je suis tributaire de la version 2017 et ça ne marche pas.

Le fichier P3 joint est toujours d'actualité.

Merci d'avance pour votre aide et support

Cordialement