Erreur Incompatible Type 13

[BENAM69]

Bonjour à tous,

J'ai plus ou moins trouvé la raison à mon problème à l'aide des différentes discussions de forum mais je n'ai pas trouver ma solution car chaque cas que j'ai trouvé semble différent du mien ^^.
Savez-vous pourquoi quand je sélectionne une plage de cellule quelconque et que je décide de supprimer les données, une pop up avec écrit Erreur d'exécution ' 13' :
Incompatibilité de type apparaît ?

Je suppose que cela vient d'une déclaration de variable, ou manque de données ?

Sinon m'a macro marche nickel, c'est juste ce souci qui m'embête

Quelqu'un aurait la solution ?

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Value = "NOK" Or Target.Value = "nok" Or Target.Value = "Nok" Or Target.Value = "nOK" Then
  UserForm1.Show
 End If
End Sub

Voici le code que j'ai mis. Mon fichier en PJ ne contient aucune donnée. C'était juste pour détecter si une cellule contient NOK alors l'userform apparait.

Merci de votre aide

Benam

 

[Dranreb]

Bonjour.
Essauyez comme ça :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If UCase(Target.Value) = "NOK" Then UserForm1.Show
   End Sub

 

[BENAM69]

Salut Dranreb,

OOHHHH YYeeaahh c'est nickel, le problème est résolu ^^.

Je pense que je n'aurai jamais trouvé même en me laissant 10 ans mdrrrr

Merci l'ami ^^

Benam