XL 2019 valeur d'intersection de colonnes et de lignes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Avril 2020

• #2

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

VB:

=INDEX(Matrice;B7;C7)

 

Pièces jointes

• SATIR SÜTUN.xlsm

  15.4 KB · Affichages: 7

Vote positif 0 Vote négatif

T

TURKEY

XLDnaute Nouveau

• 4 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 4 Avril 2020

• #4

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

VB:

 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

 

Vote positif 0 Vote négatif

T

TURKEY

XLDnaute Nouveau

• 4 Avril 2020

• #5

Je vous remercie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2020

• #6

Bonsoir TURKEY, sylvanu, jmfmarques,

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

VB:

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+

 

Pièces jointes

• SATIR SÜTUN(1).xlsm

  19.5 KB · Affichages: 6

Vote positif 0 Vote négatif

T

TURKEY

XLDnaute Nouveau

• 5 Avril 2020

• #7

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 5 Avril 2020

• #8

voch’inch’ ch’ka

 

Vote positif 0 Vote négatif