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 : Sélectionner tout - Visualiser dans une fenêtre à part
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