ERREUR D'EXECUTION 13

Bonjour à tous,

J'ai créé un code pour contrôler qu'une liste de valeur (colonne O) n'appartient pas à une autre liste de valeur (Colonne T).

Sub CorrectionTreso()


'Définition variables vérification code agent
Dim Tiers As Range 'Code tiers
Dim Exclu As Range 'Code tiers exclus
Dim AGENT As Variant 'Code agent à vérifier
Dim TiersAgent As Variant 'Code agent correcte


'Définition des feuilles
Dim ShCT As Worksheet


Set ShCT = Worksheets("Correction_TRESO")


Set Exclu = ShCT.Range("t2", Range("t1048576").End(xlUp))


'Recherche de valeur
For Each Tiers In ShCT.Range("o6", Range("o1048576").End(xlUp)).Cells


'Valeur agent à vérifier
Set AGENT = Tiers.Offset(0, -2)
'Valeur agent du référentiel
Set TiersAgent = Tiers.Offset(0, 1)

'Contrôle des exclusions
If Tiers <> Exclu Then
'Condition Agent
If AGENT <> TiersAgent Then
Tiers.Offset(0, -2).Cells = TiersAgent
Tiers.Offset(0, -1).Cells = TiersAgent
Tiers.Offset(0, -2).Interior.ColorIndex = 24
Tiers.Offset(0, -1).Interior.ColorIndex = 24
End If
End If

Next Tiers


'Call TransfertTreso


End Sub

Je ne comprends pas pourquoi elle bloque au niveau de la comparaison O et T.

Je vous remercie d'avance pour votre aide

Bonjour

Code:

---

Tiers <> Exclu

---

Tu parcours ta colonne O, Tiers représentant successivement toutes les cellules, puis tu compares Tiers avec Exclu qui est le vecteur contenant les cellules à exclure... sauf que cette syntaxe n'existe pas. Tu dois comparer Tiers à chacune des cellules de Exclu.

dans le genre :

Code:

---

1 2 3 4 5 6

Dim ex as range Dim OK a boolean OK = true For Each Ex in Exclu.cells if Tiers.Value = Ex.Value then OK = false Next Ex

---

Non testé, à optimiser...

Bonjour,
J'ai un peu corrigé le code que vous m'avez donné et ça a fonctionné.
Je vous remercie pour votre aide.