Discussion :

[nawake]

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

[nawake]

reuh ^^

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

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?

[patbou]

avec ce code cela fonctionne

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
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

[patbou]

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

[fred65200]

EDIT : doublon avec patbou

cordialement
fred65200

[nawake]

Merci beaucoup pour cette explication