J'ai encore besion de vos lumières
quand ce code s'execute j'ai une erreur "erreur d'execution'9' l'indice
nappartient pas a la selection"
je ne comprend pas pourquoi car hier cela fonctionnait tres bien :-@
Private Sub Worksheet_SelectionChange(ByVal Saisie As Range)
If Intersect(Saisie, [B3:M53]) Is Nothing Then Inscript.Show
End Sub :-@
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Je ne vois pas trop le besoin "d'évaluer" la plage B3 à M53 ? Et si tu remplaces le [B3:M53] par Range("B3:M53") que se passe t-il ? Par contre confirme-moi que tu veux afficher ton Userform si la sélection actuelle ne se trouve PAS dans la plage de B3 à M53 ?
Cordialement Pascal
"LeSurcitaire" a écrit dans le message de news:
Bonjour,
J'ai encore besion de vos lumières quand ce code s'execute j'ai une erreur "erreur d'execution'9' l'indice nappartient pas a la selection" je ne comprend pas pourquoi car hier cela fonctionnait tres bien :-@
Private Sub Worksheet_SelectionChange(ByVal Saisie As Range) If Intersect(Saisie, [B3:M53]) Is Nothing Then Inscript.Show End Sub :-@
-- LeSurcitaire
Bonjour
Je ne vois pas trop le besoin "d'évaluer" la plage B3 à M53 ?
Et si tu remplaces le [B3:M53] par Range("B3:M53") que se passe t-il ?
Par contre confirme-moi que tu veux afficher ton Userform si la sélection
actuelle ne se trouve PAS dans la plage de B3 à M53 ?
Cordialement
Pascal
"LeSurcitaire" <jdg74570-1234@msn.com> a écrit dans le message de
news:mn.32577d574f8264ae.35321@msn.com...
Bonjour,
J'ai encore besion de vos lumières
quand ce code s'execute j'ai une erreur "erreur d'execution'9' l'indice
nappartient pas a la selection"
je ne comprend pas pourquoi car hier cela fonctionnait tres bien :-@
Private Sub Worksheet_SelectionChange(ByVal Saisie As Range)
If Intersect(Saisie, [B3:M53]) Is Nothing Then Inscript.Show
End Sub :-@
Bonjour Je ne vois pas trop le besoin "d'évaluer" la plage B3 à M53 ? Et si tu remplaces le [B3:M53] par Range("B3:M53") que se passe t-il ? Par contre confirme-moi que tu veux afficher ton Userform si la sélection actuelle ne se trouve PAS dans la plage de B3 à M53 ?
Cordialement Pascal
"LeSurcitaire" a écrit dans le message de news:
Bonjour,
J'ai encore besion de vos lumières quand ce code s'execute j'ai une erreur "erreur d'execution'9' l'indice nappartient pas a la selection" je ne comprend pas pourquoi car hier cela fonctionnait tres bien :-@
Private Sub Worksheet_SelectionChange(ByVal Saisie As Range) If Intersect(Saisie, [B3:M53]) Is Nothing Then Inscript.Show End Sub :-@