Discussion :

[guigui69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

juste avant je demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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