Discussion :

[Daejung]

Bonjour,

A la fin d'une procédure j'ai ce code

Code :

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

1
2
    Range("B1").Value = "YES"
    Range("A1").Select

La procédure s'arrête sur

Code :

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

Range("A1").Select

avec une Incompatibilité de type (Erreur 13)

et si je continue par F8 la procédure arrive à son terme sans problème.

D'où peut venir cette erreur?

Merci

[PPz78]

Quel est le contenu de A1, son format ...

[Daejung]

La cellule est vide et non formatée

et si je mets

Code :

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

'Range("B1").Value = "YES"

en commentaire, pas de problème

[PPz78]

et avec

Code :

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

 Cells(1,2)="YES"

?

[Daejung]

J'ai trouvé.

Il y avait

Code :

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

    SendKeys ("{ESC}")

avant

C'est ce qui créait le message d'erreur

Merci