Reporter données en fonctions de 2 variables

[cepha]

Bonjour à tous et merci de consacrer un peu de votre temps à mon problème.

J'aimerais pouvoir reporter une suite de données, en fonction de deux variables, la première précisant la ligne où chercher la deuxième, sous laquelle se trouvent les données souhaitées.

J'ai tenté ce que j'ai pu avec =EQUIV( mais je n'arrive à rien 😕

J'espère que la solution existe.

J'attache un petit fichier avec 2 feuilles pour être plus clair.

Merci d'avance 🙂

 

[pierrejean]

Re : Reporter données en fonctions de 2 variables

bonjour cepha

et bienvenue sur XLD

Vois si cela te convient

 

[cepha]

Re : Reporter données en fonctions de 2 variables

Bonjour Pierrejean,

Sauf erreur de ma part, tu as simplement fait un copier/coller des références depuis la feuille 2.

Hors il me faudrait une formule pour que les cellules jaunes (feuille 1) affichent automatiquement les références se trouvant sur la feuille 2, et ce en fonction des "domaine" et "objet" renseignés dans les cellules en rouges (feuille 1).

J'attache de nouveau le fichier avec les couleurs, en espérant être plus compréhensible cette fois-ci.

 

[pierrejean]

Re : Reporter données en fonctions de 2 variables

Re

As-tu testé de modifier les cellules E11 ou F11 ?

La solution est dans le module de la feuille 1 (macro evenementielle worksheet_change)

 

[cepha]

Re : Reporter données en fonctions de 2 variables

Re

As-tu testé de modifier les cellules E11 ou F11 ?

La solution est dans le module de la feuille 1 (macro evenementielle worksheet_change)

oui j'ai modifié les cellules E11 et F11, mais rien ne change au niveau des références.

J'utilise excel 2004 sur mac, mais je ne pense pas que ça joue.

Question de novice : où est-ce que je peux visualiser cette macro évènementielle ?

En tout cas merci de faire l'effort de m'aider, j'apprécie vraiment. 🙂

 

[pierrejean]

Re : Reporter données en fonctions de 2 variables

Re

Voici la macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$11" Or Target.Address = "$F$11" Then
  Set c = Sheets("Feuil2").Columns(2).Find(Range("E11"), LookIn:=xlValues, lookat:=xlWhole)
  If Not c Is Nothing Then
    If Range("F11") <> "" Then
      Set d = Sheets("Feuil2").Rows(c.Row).Find(Range("F11"), LookIn:=xlValues, lookat:=xlWhole)
       If Not d Is Nothing Then
          Sheets("Feuil2").Range(Cells(c.Row + 2, d.Column).Address & ":" & Cells(c.Row + 11, d.Column + 1).Address).Copy Destination:=Sheets("Feuil1").Range("F13")
       End If
    End If
  End If
End If
End Sub

Par contre je suis incompetent en ce qui concerne le MAC
Pour voir les macros normalemnt c'est Alt F11
Par ailleurs il faut avoir accepté qu'elles soient activées

Si un utilisateur de MAC passe par la , je lui passe la main bien volontiers

 

[cepha]

Re : Reporter données en fonctions de 2 variables

J'ai bien activé les macros, mais ça ne change rien...

En revanche je l'ai fait essayer à un ami qui a excel 2007 sous Windows et ça fonctionne bien.

Je vais essayer de trouver ce qui cloche sous MAC ou alors c'est peut-être parce que j'ai la version 2004.

Quoiqu'il en soit, un grand merci à toi Pierre Jean !

Je posterai un petit suivi quand je trouverai pourquoi ça cloche.