incompatibilité de type

Bonjour à tous,


J'ai réalisé une macro excel qui récupère certaine information dans une base de donnée, puis les retraites. Cela fonctionne sauf que certaine fois j'ai l'erreur "incompatibilité de type" sur cette ligne la:

Code:

---

shCible71.Range("A20").Resize(dic71.Count, 1) = Application.WorksheetFunction.Transpose(dic71.Keys)

---

juste avant je demande :

Code:

---

1 2 3 4

ElseIf UCase(sh.Range("K" & i).Value) = UCase("ATE") Then If Not dic71.Exists(sh.Range("A" & i).Value) Then dic71.Add sh.Range("A" & i).Value, sh.Range("A" & i).Value End If

---

Si il voit dans la colonne/ligne K & i "ATE", il ajoute la valeur de la cellule A & i dans le dic71(dictionnaire) si elle n'existe déjà pas dans le dic71

Les cellules en A comporte soit des nom ou bien du vide et je pense qu'il a une cellule vide.(je doit impérativement garde ces cellules vide)

Comment éviter cette erreur, (pour que la macro puisse continuer de s’exécuter)

Merci d'avance pour votre aide

guigui69

Bonjour,

Citation:

---

Comment éviter cette erreur, (pour que la macro puisse continuer de s’exécuter)

---

Avec un gestionnaire d'erreurs. "On Error Resume Next" permet d'ignorer la ou les erreurs qui se trouvent dans les lignes qui suivent l'instruction.

Code:

---

1 2 3 4 5 6 7 8 9 10

'permet de passer à la ligne suivante en ignorant l'erreur On Error Resume Next   shCible71.Range("A20").Resize(dic71.Count, 1) = Application.WorksheetFunction.Transpose(dic71.Keys)   'annule le gestionnaire d'erreurs '(si une erreur survient à nouveau dans les lignes qui suivent 'l'instruction "On Error GoTo 0", le compilateur s'arrêtera) On Error GoTo 0

---

Hervé.