Auzingueur
XLDnaute Junior
Salut à tous,
Je viens aujourd'hui vous présenter un nouveau problème d'utilisation de tableau.
J'ai créé le code suivant dans le but de récupérer mes arrangements (famille de produits) dans un tableau :
Le code fonctionne, mais ayant plusieurs produits répondants à ma condition, je me retrouve avec plein de doublons et c'est pourquoi j'ai rajouté la ligne "If IsError....", la fonction Match étant supposée me retourner #N/A si il ne trouve pas ma valeur dans le tableau, cela m'aurai permis de ne rentrer mes arrangements qu'en un seul exemplaire dans le tableau.
Manque de bol, "l'indice n'appartient pas a la sélection", et je ne comprend pas trop pourquoi, du coup je bloque sur ce problème qui semble banal, mais je n'ai pas trouvé de solution pour le moment :/
Si quelqu'un peut m'apporter son aide je lui en serai reconnaissant!
Merci
Auzingueur
Je viens aujourd'hui vous présenter un nouveau problème d'utilisation de tableau.
J'ai créé le code suivant dans le but de récupérer mes arrangements (famille de produits) dans un tableau :
Code:
Dim i As Integer 'permet de se déplacer dans la feuille données
Dim tabArrang() As Variant 'Tableau pour récupérer la liste des arrangements utilisants l'ABP
Dim arrang As String 'variable pour récupérer les arrangements qui nous interessent
Dim j As Integer 'permet de remplir le tableau
j = 0
For i = 4 To Sheets("Donnees").[A65536].End(3).Row
If Sheets("Donnees").Range("G" & i) = 1 Then
arrang = Sheets("Donnees").Range("F" & i)
If IsError(Application.Match(arrang, tabArrang(j), 0)) Then 'Probleme d'utilisation : "L'indice n'appartient pas a la sélection"
tabArrang(j) = arrang
Sheets("test").Range("A" & j) = arrang
j = j + 1
End If
End If
Next
Le code fonctionne, mais ayant plusieurs produits répondants à ma condition, je me retrouve avec plein de doublons et c'est pourquoi j'ai rajouté la ligne "If IsError....", la fonction Match étant supposée me retourner #N/A si il ne trouve pas ma valeur dans le tableau, cela m'aurai permis de ne rentrer mes arrangements qu'en un seul exemplaire dans le tableau.
Manque de bol, "l'indice n'appartient pas a la sélection", et je ne comprend pas trop pourquoi, du coup je bloque sur ce problème qui semble banal, mais je n'ai pas trouvé de solution pour le moment :/
Si quelqu'un peut m'apporter son aide je lui en serai reconnaissant!
Merci
Auzingueur