VBA Excel - incompatibilité de type

Fermé
drinof Messages postés 1 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 25 juin 2010 - Modifié par drinof le 25/06/2010 à 15:13
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 - 25 juin 2010 à 15:57
Bonjour,

J'ai inséré une macro dans un fichier Excel, afin de permettre une "double liste" déroulante dans une cellule : lorsque je sélectionne la cellule, j'ai un premier menu déroulant pour choisir la première lettre du mot, puis une fois la lettre sélectionnée, un 2e menu déroulant avec tous les mots commençant par cette lettre.

Le soucis est que dès que je veux insérer une ligne supplémentaire dans la feuille de mon tableau, cela me met systématiquement une "erreur d'exécution '13' : incompatibilité de type", et je ne sais pas comment résoudre ceci.

Voici le code : 

Private Sub Worksheet_Change(ByVal Target As Range) 
 If Not Intersect([N4:N1000], Target) Is Nothing Then 
  If Len(Target) = 1 Then SendKeys "%{DOWN}" 
 End If 
End Sub


Cela souligne en jaune 
If Len(Target) = 1 Then


Quelqu'un pourrait-il m'aider ?

Merci par avance :)

NB. Je suis totalement auto-didacte en la matière, et je débute... soyez indulgents :)

A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
25 juin 2010 à 15:57 
Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect([N4:N1000], Target) Is Nothing Then
  If Len(Target.Formula) = 1 Then Target.Interior.ColorIndex = 6
 End If

End Sub
0