erreur d'execution 91

[rem$]

bonjour a tous

tout est dans le titre : lorsque je change, rajoute ou supprime le contenu d'une cellule voici l'erreur qui s'affiche
j'ai regardé dans l'historique mais apparement ce message est specifique
je joins mon code....

d'avance merci
@ bientot Rem$

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("p45000")) Then
Call APP(Target.Value)
If Target.Value = "" Then Target.Value = ""
End If
End Sub

Private Sub APP(SaisVal)
Dim cptr As Byte
Dim cptr2 As Integer
Dim papier As Variant
Dim infotab As Variant
Dim rep4 As Variant

papier = Array(1, 5, 6, 7, 8, 10, 21) 'numéros "papiers"
infotab = Array(3, 4, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19) 'numéros "informatique"

If SaisVal = "" Then Exit Sub

If SaisVal = 2 Or SaisVal = 19 Then 'nombres interdits
MsgBox "ce N° d'APP n'existe pas"
Exit Sub
End If

cptr = 0
Do While cptr < 7 ' nombre d'eléments du tableau "papiers"
If SaisVal = papier(cptr) Then
MsgBox "cet APP n'est pas sur labguard vérifier, valider et conserver la courbe papier"
Exit Sub
End If
cptr = cptr + 1
Loop

cptr2 = 0
Do While cptr2 < 12
If SaisVal = infotab(cptr2) Then
MsgBox ("cet APP est connecté sur le labguard n'oubliez pas de mettre la courbe au format informatique")
Exit Sub
End If
cptr2 = cptr2 + 1
Loop

rep4:
rep4 = MsgBox(" les N° d'APP valides sont entre 1 et 21 voulez-vous changer votre N° APP?", vbYesNo, "ATTENTION")
If rep4 = vbNo Then GoTo rep4


End Sub

 

[rem$]

re

petite precision le message d'erreur s'affiche lorsque je modifie qqchose en dehors de la colonne "P" mais sinon le test fonctionne bien

voilà j'espere que qq'un sera me venir en aide...............;

merci
Rem$

 

[myDearFriend]

Bonsoir Rem, le Forum.


Essaye avec :
If Not Application.Intersect(Target, Range("p45000")) Is Nothing Then...
Je pense que ça devrait régler ton problème...

Question : à quoi sert la ligne If Target.Value = "" Then Target.Value = ""
?


Cordialement,
Didier_mDF

 

[rem$]

Merci MDF ca marche..... fin de l'erreur

la ligne en trop sert a rien c un bug de doigt lors du copier coller...dslé

encore merci
@+
Rem$