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.
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