La valeur tapée est en dehors des limites

[julien34]

Bonjour,

J'ai besoin de vos lumières sur un point.
J'ai une erreur qui apparait apparemment uniquement sur Excel 2007.
Pas de pb en ouvrant avec excel 2010.

Pour faire simple j'ai un formulaire à remplir par l'utilisateur. Un bouton le suit au fur et des clics de ce même utilisateur à l'aide du code suivant. (dans la feuille du formulaire)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Image 474").Top = ActiveCell.Top
    Application.GoTo Reference:=Worksheets(ActiveSheet.Name).Range(ActiveCell.Address)
End Sub

Le formulaire est protégé de cette façon.(dans this workbook)

Private Sub Workbook_Open()
Worksheets("saisie MRP").Protect userinterfaceonly:=True, Password:="MDP"
End Sub

L'erreur est la suivante " la valeur tapée est en dehors des limites"

J'insiste pour dire que sous 2010 pas de pb apparament (peut être moins sensible)

Help please!
D'avance merci
Julien

 

[fhoest]

Re : La valeur tapée est en dehors des limites

Bonjour,
as tu fait un tour du coté des références "MANQUANTE"
A bientôt.

 

[job75]

Re : La valeur tapée est en dehors des limites

Bonjour,

Avec le code indiqué il faut une feuille nommée "saisie MRP".

Mais peut-être y a-t-il une fôte d'orthographe et qu'il faut écrire Worksheets("saisie MDP")

A+

 

[julien34]

Re : La valeur tapée est en dehors des limites

Pas de pb de référence.
La feuille s'appelle bien saisie MRP (multi risques professionnels)

Je pêche là !

 

[Misange]

Re : La valeur tapée est en dehors des limites

Bonjour
l'encodage des mots de passe a changé entre 2007 et 2010. Si tu as créé ton classeur avec 2010, le niveau d'encryption est supérieur à celui de 2007...
Essaie de construire ton classeur sur 2007, de le protéger par un mot de passe et de l'ouvrir sur 2010, ça devrait passer. Cela dit, si tu le déprotèges puis reprotèges sur 2010 je ne sais pas si il passera encore sous 2007.

 

[julien34]

Re : La valeur tapée est en dehors des limites

Bonjour à tous,

J'ai essayé de construire le classeur sur 2007 mais toujours pas de changements !
Pour info l'erreur cible la ligne suivante

ActiveSheet.Shapes("Image 474").Top = ActiveCell.Top

Si je déprotège manuellement, tout fonctionne.
C'est clairement un pb de protection de feuille avec une image.

Si quelqu'un a une idée, je suis preneur.

Merci d'avance pour votre aide

 

[julien34]

Re : La valeur tapée est en dehors des limites

Bonsoir,

Ci joint un fichier test pour exemple.
Si besoin de déprotéger la feuille pour tester, le mot de passe est MDP.

J'ai besoin que çela fonctionne sous 2007.

Dans l'attente de votre retour sur ce point, je suis vraiment bloqué...

Merci

 

[job75]

Re : La valeur tapée est en dehors des limites

Bonjour julien34, Misange, le forum,

Sous Excel 2003 ou 2010 ceci fonctionne que la feuille soit protégée ou pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Me.Shapes("Image 2").Top = ActiveCell.Top
End Sub

A+

 

[julien34]

Re : La valeur tapée est en dehors des limites

Bonjour à tous,

job75. Ce code ne fonctionne pas sous 2007 chez moi! Par contre pas de pb sous 2010
Problème persistant !

 

[job75]

Re : La valeur tapée est en dehors des limites

Re,

Peut-être que sur 2007 le nom VBA de l'image est modifié.

Vérifiez avec :

Sub Verif()
Dim s As Shape
For Each s In ActiveSheet.Shapes
MsgBox s.Name
Next
End Sub

A+

 

[julien34]

Re : La valeur tapée est en dehors des limites

Bonsoir à tous,

Pb non résolu !
Merci de votre aide
Dans l'attente de nouveaux éclairs de génie

 

[Staple1600]

Re : La valeur tapée est en dehors des limites

Bonsoir à tous


Apparement cela arrive aussi avec 2010
Lien supprimé

 

[job75]

Re : La valeur tapée est en dehors des limites

Re,

Apparemment sur ce forum ceux qui ont Excel 2007 roupillent toute la journée.

A+

 

[Staple1600]

Re : La valeur tapée est en dehors des limites

Salut job75

Est-ce vraiment une question de version d'Excel?
(voir mon précédent message, le fil cité semble indiqué que ce message peut se produire sur XL2007 et Excel 2010, non ?)

 

[job75]

Re : La valeur tapée est en dehors des limites

Re,

Si ça ne va pas avec les Shapes, que donne alors la collection Pictures ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Me.Pictures("Image 2").Top = ActiveCell.Top
End Sub

A+