XL 2019 valeur d'intersection de colonnes et de lignes

[TURKEY]

Je veux apporter la valeur de la cellule à l'intersection de la ligne dans le tableau de la page 1 de mon fichier joint, puis dans la colonne "D" de la page 2. Pouvez-vous m'aider avec une macro?

 

[sylvanu]

Merhaba Turkey,
Il n'est pas utile d'avoir une macro.
Si Feuille1 C4:K18 est Matrice, alors en feuille2 E7 :

=INDEX(Matrice;B7;C7)

 

[TURKEY]

Je l'ai fait avec une formule principale. J'ai essayé très fort en macro. Pourriez-vous s'il vous plaît aider pour la macro?
sincèrement vôtre

 

[jmfmarques]

Bonjour
Je participe cette fois-ci puisque tu as fait l'effort de rédiger tes messages en français.

Exemple avec des données en plage A1:E9 de la feuille "F1"
et ceci en plage A1:B5 de la feuille "F2":

1	3
2	1
4	2
2	5
3	1

 Dim tablo As Range, c As Range
   Set tablo = Worksheets("F1").Range("A1:E9")
   With Worksheets("F2")
     For Each c In .Range("A1:A5")
       .Range("C" & c.Row) = tablo(.Range("A" & c.Row).Value, .Range("B" & c.Row).Value)
     Next
   End With

 

[TURKEY]

Je vous remercie

 

[job75]

Bonsoir TURKEY, sylvanu, jmfmarques,

Le code de la 2ème feuille du fichier joint (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Activate()
Application.EnableEvents = False
With [B6].CurrentRegion.Offset(1).Columns(3)
    .FormulaR1C1 = "=IFERROR(INDEX(Matrice,""""&RC[-2],""""&RC[-1]),"""")"
    .Value = .Value 'supprime les formules, mettre en commentaire pour les voir
End With
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheet_Activate 'lance la macro
End Sub

A+

 

[TURKEY]

İlginiz ve ilginiz için teşekkür ederiz. Neyse ki varsın

 

[jmfmarques]

voch’inch’ ch’ka