Microsoft 365 Index Match ligne et Mach colonne

Souimanga · 5 Novembre 2024

Bonjour, je deviens chèvre avec ce code.
J'ai un fichier avec une feuille pour le résultat et une feuille pour la source.
Feuille "Result" ; dans laquelle je souhaite remplir les cellules jaunes avec les données "Ref" de la feuille Source
En feuille "Attendu" : Ce que j'attends

Ce bout de code marche mais ne renvoie pas les bonnes "Ref" :
For Lig = 3 To derligD

For Col = 4 To dercolD Step 3

Marque = Cells(1, Col)
Article = Cells(Lig, 1)

Result = Application.Index(wsS.Range("E2:E" & derligS), _
Application.Match(Article, wsS.Range("A:A"), 0) * _
Application.Match(Marque, wsS.Range("D"), 0))

wsD.Cells(Lig, Col) = Result

Par avance merci de votre aide !

piga25 · 5 Novembre 2024

Bonjour,
Un essai avec cela :

VB:

Sub Transfert()
    ' Déclarer les variables
    Dim wsSource As Worksheet
    Dim wsResultat As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' Spécifier les noms des feuilles (ajuster si nécessaire)
    Set wsSource = ThisWorkbook.Sheets("Source") ' Remplacer "FeuilleSource" par le nom réel
    Set wsResultat = ThisWorkbook.Sheets("Result") ' Remplacer "FeuilleResultat" par le nom réel

    ' Trouver la dernière ligne avec des données dans la colonne E de la feuille source
    lastRow = wsSource.Cells(Rows.Count, "E").End(xlUp).Row

    ' Boucle pour parcourir chaque ligne à partir de la ligne 2 (en supposant que les en-têtes commencent à la ligne 1)
    For i = 2 To lastRow
        ' Copier les valeurs de la colonne E et les coller aux emplacements souhaités dans la feuille résultat
        wsResultat.Cells(i + 1, "D").Value = wsSource.Cells(i, "E").Value
        wsResultat.Cells(i + 1, "G").Value = wsSource.Cells(i + 1, "E").Value
        wsResultat.Cells(i + 1, "J").Value = wsSource.Cells(i + 2, "E").Value
    Next i

    MsgBox "Les données ont été copiées et collées avec succès."
End Sub

Souimanga · 5 Novembre 2024

Merci mais ce code recopie toute la colonne.
Ce que souhaite ramener est la "Ref" à l'intersection de l'"Article" et de la "Marque".

Dranreb · 5 Novembre 2024

Bonjour.
Un essai qui ramène la réf, mais aussi Prix 2 et Prix 3 en utilisant ma fonction Gigogne.

Souimanga · 5 Novembre 2024

Bonjour Dranreb, merci pour ce super code mais j'y comprends rien avec mon niveau vba.
J'aimerai juste faire fonctionner ma solution INDEX + MATCH + MATCH

JHA · 5 Novembre 2024

Bonjour à tous

A essayer

VB:

=INDEX(Source!$C$2:$C$7;EQUIV(Result!$A3&Result!D$1;Source!$A$2:$A$7&Source!$D$2:$D$7;0))

JHA

Dranreb · 5 Novembre 2024

Souimanga à dit:
j'y comprends rien avec mon niveau vba.

Qu'est-ce que vous ne comprenez pas dans ma Sub Test ?
L'étude du fonctionnement de la fonction Gigogne est inutile. Il y a juste à savoir qu'elle renvoie une collection d'objets SsGr (type défini par le module de classe du même nom), classés et regroupés en cascade d'après les numéros de colonnes spécifiés derrière le 1er argument qui est la source.

Souimanga · 5 Novembre 2024

JHA à dit:
Bonjour à tous

A essayer

VB:

=INDEX(Source!$C$2:$C$7;EQUIV(Result!$A3&Result!D$1;Source!$A$2:$A$7&Source!$D$2:$D$7;0))

JHA

Merci JHA, mais quand je l'adapte en vba j'ai une erreur d'incompatibilité de type :

Dim Result as variant
Dim wsS, wsD as worksheet
Set wsS = ThisWorkbook.sheets("Source")
Set wsS = ThisWorkbook.sheets("Result")
result = Application.index(wsS.Range("E2:E7"), Application.match(wsD.range("A3") & wsD.Range("J1"), wsS.range("A2:A7") & wsD.Range("D27"), 0))

J'en peux plus, j'arrive pas à voir ce qui cloche

sylvanu · 5 Novembre 2024

Bonjour tout le monde,

Souimanga à dit:
j'ai une erreur d'incompatibilité de type

C'est normal, la formule de JHA est une formule matricielle.
Un essai en PJ en ré utilisant la formule de JHA :

VB:

Sub CollerFormule()
Dim formule, L%, C%
formule = "=INDEX(Source!R2C5:R7C5,MATCH(Result!RC1&Result!R1C,Source!R2C1:R7C1&Source!R2C4:R7C4,0))"
For L = 3 To 4
    For C = 4 To 12 Step 4
        With Cells(L, C)
            .NumberFormat = "General"
            .FormulaArray = formule
            .NumberFormat = "@"
            .Value = .Value
        End With
    Next C
Next L
End Sub

Souimanga · 5 Novembre 2024

sylvanu à dit:
Bonjour tout le monde,

C'est normal, la formule de JHA est une formule matricielle.
Un essai en PJ en ré utilisant la formule de JHA :

VB:

Sub CollerFormule() Dim formule, L%, C% formule = "=INDEX(Source!R2C5:R7C5,MATCH(Result!RC1&Result!R1C,Source!R2C1:R7C1&Source!R2C4:R7C4,0))" For L = 3 To 4 For C = 4 To 12 Step 4 With Cells(L, C) .NumberFormat = "General" .FormulaArray = formule .NumberFormat = "@" .Value = .Value End With Next C Next L End Sub

C'est top ça Sylvanu ! ca marche nickel...un grand merci à toi, et aux autres pour leur aide aussi

sylvanu · 5 Novembre 2024

Souimanga à dit:
mais je dois l'adapter pour avoir le résultat dans la cellule et non la formule.

Avez vous testé ma PJ ?
Car dans les cellules il y a les valeurs, non les formules, c'est fait par :

VB:

.Value = .Value

Souimanga · 5 Novembre 2024

sylvanu à dit:
Avez vous testé ma PJ ?
Car dans les cellules il y a les valeurs, non les formules, c'est fait par :

VB:

.Value = .Value

Regarde la pièce jointe 1206516

Tout à fait !! désolée. Votre code est simple et parfait !!! Un grand merci à vous. Bonne soirée

Microsoft 365 Index Match ligne et Mach colonne

Souimanga

XLDnaute Nouveau

Pièces jointes

piga25

XLDnaute Barbatruc

Souimanga

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Pièces jointes

Souimanga

XLDnaute Nouveau

JHA

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Souimanga

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Souimanga

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Souimanga

XLDnaute Nouveau

Discussions similaires