VBA Excel - incompatibilité de type

drinof Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1 780
  
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