Voilà le problème : If Target > [I3] Then. J'essaie de joindre un classeur avec la macro en question dans une prochaine discussion.target>[I3]
entre crochets
ou
target>range("I3")
et non
target>I3
Bruno
Merci pour ta contribution youky, mais je pense que mes problèmes viennent de la construction de mon classeur.Voilà le problème : If Target > [I3] Then. J'essaie de joindre un classeur avec la macro en question dans une prochaine discussion.
Bonjour youky,Dommage de baisser les bras…...
Une macro trouvera facilement 45 dans *****45***
Si tu fais un bon fichier exemple avec quelque lignes je te garantie des satisfactions.
Fichier avec quelques codes exemple comme tu les reçois et même colonne et un exemple de ce que tu attends.
Bruno
Voici mon fichier.Bonjour youky,
Merci de relancer, je te joins un petit fichier exemple dans l'après-midi.
Bonne journée,
a26
Le même fichier avec une macro supplémentaire de conversion en chiffres sans * mais avec un souci : message d'erreur si j'utilise ma douchette alors qu'il n'en ait rien avec une saisie manuelle.Voici mon fichier.
Bon courage ,
a26
Je viens de voir ta réponse après mon envoi. Tes modifications ont en partie résolu le problème.Regarde si cela conviens,
Bruno
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(" c6:c406,g6:g406")) Is Nothing Then
nx = Val(Replace(Target, "*", ""))
If nx > Val(Replace([I3], "*", "")) Then
Target.Select
If MsgBox("Attention valeur trop grande !" & vbCr & _
"Vous ne devez pas dépasser " & [I3], vbExclamation + vbRetryCancel, "ANNULATION") = vbRetry Then Target.Value = "" 'on efface
End If
End If
End Sub
Bonjour Youky,Essayer ce fichier je supprime les étoiles dès la saisie
Cela facilite bien les choses
Bruno