Microsoft 365 fonction index Match

Calou83 · 13 Avril 2023

Bonjour à toutes et tous,

j'ai un fichier avec 2 onglets : doublerecherche et recherche_feuille
j'ai créé le code ci-dessous : lorsque j'exécute la macro voici le code erreur : Erreur 13 incompatibilité de type
Je cherche partout dans les forums mais je ne trouve pas de solution.

VB:

Sub jeTeste2()
    Dim myrange As Range
    Set myrange = Range("ListeRef")
    Dim MyRange2 As Range
    Set MyRange2 = Range("ListeMagasin")
    Dim MyTable As Range
    Set MyTable = Worksheets("doublerecherche").Range("STOCK")
    
      
    Worksheets("Recherche_feuille").Range("MAG_1") = Application.WorksheetFunction.Index(MyTable, _
            Application.Match(Worksheets("Recherche_feuille").Range("test2"), Worksheets("doublerecherche").Range("ListeRef"), 0), _
            Application.Match(Worksheets("Recherche_feuille").Range("$b$11"), Worksheets("doublerecherche").Range("ListeMagasin"), 0))

End Sub

Avez-vous une idée ? Merci pour votre aide

youky(BJ) · 14 Avril 2023

Je ne sais pas bien comment tu procèdes
Ecris-tu le magasin manuellement en A1 et ensuite tu lances la macro ?
Bon j'ai mis un on error resume next chez moi même s'il trouve pas cela ne fait pas d'erreur mais selon les options cela varie
Voici une nouvelle version
Bruno

VB:

Sub Bruno()
Dim col%, lig%, lg%, i%
Feuil1.Select
On Error Resume Next
col = Application.Match([A1], Rows(11), 0)
If Err <> 0 Then Exit Sub
i = Application.Match([A1], Feuil7.Rows(1), 0)
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[A:A], 0)
Cells(lg, col) = Feuil7.Cells(lig, i)
Next
End Sub

youky(BJ) · 14 Avril 2023

Salut bien,
Voici avec un userform pour avoir le choix
Bruno

Calou83 · 14 Avril 2023

youky(BJ) à dit:
Salut bien,
Voici avec un userform pour avoir le choix
Bruno

Merci Bruno,
Cette solution va me servir (Top)

Mais je dois faire la même chose dans un autre classeur avec les données d'un seul magasin Mag2 dans Recherche_feuille et les mêmes données de la feuille doubleRecherche.

Merci encore pour aide

youky(BJ) · 14 Avril 2023

Voici un code
Il mets la valeur en B9 en fonction de B1 et B2
Bruno

VB:

Sub forum()
dim lig%,col%
lig = Application.Match([B1], Feuil7.[D:D], 0)
col = Application.Match([B2], Feuil7.Rows(1), 0)
[B9] = Feuil7.Cells(lig, col)
End Sub

Calou83 · 14 Avril 2023

youky(BJ) à dit:
Voici un code
Il mets la valeur en B9 en fonction de B1 et B2
Bruno

VB:

Sub forum() dim lig%,col% lig = Application.Match([B1], Feuil7.[D:D], 0) col = Application.Match([B2], Feuil7.Rows(1), 0) [B9] = Feuil7.Cells(lig, col) End Sub

Bonsoir Bruno,

Je cherchais à faire la même procédure que vous m'avez envoyée mais pour 1 seul magasin dans un nouveau classeur.

VB:

Sub Bruno()
Dim col%, lig%, lg%, i%
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[D:D], 0)
i = 4
For col = 2 To 30 Step 4 ' voir +(14) si besoin
i = i + 1
Cells(lg, col) = Feuil7.Cells(lig, i)
Next
Next
End Sub

Merci encore pour votre patience et votre aide

youky(BJ) · 14 Avril 2023

voici la macro.

VB:

Sub Bruno()
Dim col%, lig%, lg%, i%
Feuil1.Select
col = Application.Match([A1], Rows(11), 0)
i = Application.Match([A1], Feuil7.Rows(1), 0)
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[A:A], 0)
Cells(lg, col) = Feuil7.Cells(lig, i)
Next
End Sub

Calou83 · 14 Avril 2023

youky(BJ) à dit:

voici la macro.

VB:

Sub Bruno()
Dim col%, lig%, lg%, i%
Feuil1.Select
col = Application.Match([A1], Rows(11), 0)
i = Application.Match([A1], Feuil7.Rows(1), 0)
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[A:A], 0)
Cells(lg, col) = Feuil7.Cells(lig, i)
Next
End Sub

Merci,

j'ai une erreur 13 Incompatibilité de type sur la ligne
col = Application.Match([A1], Rows(11), 0)

Bonne soirée

youky(BJ) · 14 Avril 2023

Je ne sais pas bien comment tu procèdes
Ecris-tu le magasin manuellement en A1 et ensuite tu lances la macro ?
Bon j'ai mis un on error resume next chez moi même s'il trouve pas cela ne fait pas d'erreur mais selon les options cela varie
Voici une nouvelle version
Bruno

VB:

Sub Bruno()
Dim col%, lig%, lg%, i%
Feuil1.Select
On Error Resume Next
col = Application.Match([A1], Rows(11), 0)
If Err <> 0 Then Exit Sub
i = Application.Match([A1], Feuil7.Rows(1), 0)
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[A:A], 0)
Cells(lg, col) = Feuil7.Cells(lig, i)
Next
End Sub

Calou83 · 14 Avril 2023

youky(BJ) à dit:
Je ne sais pas bien comment tu procèdes
Ecris-tu le magasin manuellement en A1 et ensuite tu lances la macro ?
Bon j'ai mis un on error resume next chez moi même s'il trouve pas cela ne fait pas d'erreur mais selon les options cela varie
Voici une nouvelle version
Bruno

VB:

Sub Bruno() Dim col%, lig%, lg%, i% Feuil1.Select On Error Resume Next col = Application.Match([A1], Rows(11), 0) If Err <> 0 Then Exit Sub i = Application.Match([A1], Feuil7.Rows(1), 0) For lg = 12 To [A65000].End(3).Row lig = Application.Match(Cells(lg, 1), Feuil7.[A:A], 0) Cells(lg, col) = Feuil7.Cells(lig, i) Next End Sub

Merci Bruno c'est super encore merci pour ton aide
Bon week-end

Phil69970 · 14 Avril 2023

Re

@Calou83 c'est pas ton post qu'il faut valider mais celui de Bruno car tu n'as rien trouver du tout. 😉

@Phil69970

Calou83 · 15 Avril 2023

Phil69970 à dit:
Re

@Calou83 c'est pas ton post qu'il faut valider mais celui de Bruno car tu n'as rien trouver du tout. 😉

@Phil69970

ok c'est noté merci - Bon week-end à tous

Microsoft 365 fonction index Match

Calou83

XLDnaute Nouveau

Pièces jointes

youky(BJ)

youky(BJ)

XLDnaute Barbatruc

Pièces jointes

Calou83

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Calou83

XLDnaute Nouveau

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Calou83

XLDnaute Nouveau

youky(BJ)

XLDnaute Barbatruc

Calou83

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Calou83

XLDnaute Nouveau

Discussions similaires

Microsoft 365 fonction index Match

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency