Problème avec des tableaux

Bonjour a tous :)


Voila j'ai un problème avec un tableau.

Pour optimiser l'exécution de ma macro, j'ai suivi l'exemple sur le tuto mais ca me donne ca : erreur : l'indice n'appartient pas à la selection

Voici le bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Base 0 [...] Dim Tab_Col As Variant Dim Tab_Cr As Variant Dim Cmp1 As Long, Cmp2 As Long   Tab_Col = ActiveSheet.Range("A1:A6") Tab_Cr = ActiveSheet.Range("B3:B13") For Cmp1 = LBound(Tab_Col) To Ubound(Tab_Col) For Cmp2 = LBound(Tab_Cr) To UBound(Tab_Cr) If Tab_Col(Cmp1) = Tab_Cr(Cmp2) Then 'Traitement End If Next Cmp2 Next Cmp1

---

Ca bloque sur la ligne "If Tab_Col(Cmp1) = Tab_Cr(Cmp2) Then"

Le but est de trouver pour chaque valeur de la plage A1:A6 une valeur identique dans la plage B3:B13 pour un traitement spécifique dans la boucle If

Merci de m'aider a débug :)

reuh ^^

je viens de tester un truc "pour voir" et ca marche 8O

J'ai mit "If Tab_Col(Cmp1,1) = Tab_Cr(Cmp2,1) Then" à la place de "If Tab_Col(Cmp1) = Tab_Cr(Cmp2) Then"

Ca marche c'est super mais, j'aimerais comprendre pourquoi faut mettre le ",1" vu que normalement le tableau a une seul dimension, vous pouvez m'expliquer pourquoi?

avec ce code cela fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim Tab_Col As Variant Dim Tab_Cr As Variant Dim Cmp1 As Long, Cmp2 As Long   Tab_Col = ActiveSheet.Range("A1:A6") Tab_Cr = ActiveSheet.Range("B3:B13") For Cmp1 = LBound(Tab_Col) To UBound(Tab_Col) For Cmp2 = LBound(Tab_Cr) To UBound(Tab_Cr) If Tab_Col(Cmp1, 1) = Tab_Cr(Cmp2, 1) Then 'Traitement End If Next Cmp2 Next Cmp1 End Sub

---

bonjour,

un tableau qui recupere une plage est toujours multidimensionnel, en general
bidemensionnel , qq soit le nb de colonnes.
la deuxieme dimension contient au moins un element (pour toi 1 col) et plus si la plage comporte plusieurs lignes et colonnes

EDIT : doublon avec patbou

cordialement
fred65200

Merci beaucoup pour cette explication :)