Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Erreur Incompatible Type 13

BENAM69

XLDnaute Occasionnel
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 ?

VB:
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
 

Pièces jointes

  • Test Niveau 2v2.xlsb
    16.3 KB · Affichages: 2

Dranreb

XLDnaute Barbatruc
Bonjour.
Essauyez comme ça :
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…