erreur 9

[target111]

bonjour

j'ai une erreur 9 l'indice n'appartient pas à la selection sur ce code

Sub tri()
Dim Tab_Sauv, Tab_Retour
Dim iRow As Integer
Dim iExact As Integer


'On initialise les 2 Tableaux
Tab_Sauv = Feuil4.Range("J1", Feuil4.Cells(Rows.Count, "J").End(xlUp)).Value
Tab_Retour = Feuil4.Range("J1", Feuil4.Cells(Rows.Count, "J").End(xlUp)).Value

'On Boucle sur le tableaux SAuv, celui ci ne sera pas modifié, on modifiera Retour
'Pour ne pas perdre de données en route
For iRow = 1 To UBound(Tab_Sauv, 1)
'On recharche la valeur correspondante de la ligne irow de la colonne D dabns la colonne E
For iExact = 1 To UBound(Tab_Sauv, 1)
'On compare
If Tab_Sauv(iRow, 1) = Tab_Sauv(iExact, 7) Then
'correspondance trouvée, on modifie tab_retour
Tab_Retour(iRow, 1) = Tab_Sauv(iExact, 1) 'colonne A
Tab_Retour(iRow, 2) = Tab_Sauv(iExact, 2) 'B
Tab_Retour(iRow, 3) = Tab_Sauv(iExact, 3) 'C
Tab_Retour(iRow, 10) = Tab_Sauv(iExact, 10) 'E
'On quite cette boucle pour tester le prochain iRow
Exit For
End If
Next
Next

'On affiche notre tab_retour
'Je le place a partir de la colonne G pour comparaison
Feuil4.Range("j1").Resize(UBound(Tab_Retour, 1), UBound(Tab_Retour, 2)).Value = Tab_Retour

End Sub

c'est cette ligne qui génére l'erreur
If Tab_Sauv(iRow, 1) = Tab_Sauv(iExact, 7) Then

mes connaissances en vba sont trés limitées alors je me tourne vers vous

merci d'avance pour vos réponses

Cordialement

 

[Compte Supprimé 979]

Re : erreur 9

Bonjour Target111

Si j'ai bien compris ta plage de cellule va de A1 à Jx donc au début de ton code tu devrais avoir

 Tab_Sauv = Feuil4.Range("A1", Feuil4.Cells(Rows.Count, "J").End(xlUp)).Value
  Tab_Retour = Feuil4.Range("A1", Feuil4.Cells(Rows.Count, "J").End(xlUp)).Value

Et là plus de problème avec ton code

A+

 

[target111]

Re : erreur 9

Bonsoir

oui cela fonctionne merci beaucoup

Cordialement