Interdire d'utiliser certaines valeurs

[Chanel]

Bonjour,

Après avoir fouillé le net, je commence à désespérer, j'aurais besoin de votre aide !

Je travaille sur un fichier excel partagé et j'aurais besoin d'interdire aux utilisateurs d'insérer certaines valeurs qui ne doivent plus être utilisées. Ces valeurs interdites sont des numéros à 5 chiffres complètement différents les uns des autres.

Dans l'ideal, il faudrait qu'un message d'arrêt s'affichent, sinon un code couleur pourrait convenir..

Merci d'avance pour votre aide, j'attends vos réponses avec impatience !

 

[Chanel]

Re : Interdire d'utiliser certaines valeurs

C'est bien ce que je souhaites, mais je ne comprends pas pourquoi un seul des deux 8 est surligné en jaune? Puisque le 8 est une valeur interdite, les deux devraient être en jaune...

Et puis si tu peux m'expliquer comment tu as fait... 🙂

Merci en tout cas !

 

[Staple1600]

Re : Interdire d'utiliser certaines valeurs

Bonjour Coco 😉, Jean-Marcel, le fil, le forum

Tu peux utiliser le menu Données/Validation
avec ce critère par exemple


Dans ce cas, on peut saisir dans la cellule (ou plage de cellules) ou s'applique cette validation
que des chiffres de 0 à 9999

A toi d'adapter le critère plus précisément selon ton souhait.

 

[mécano41]

Re : Interdire d'utiliser certaines valeurs

Bonjour à tous,

Variante en reprenant le code de Jean-Marcel et :

- en ajoutant le Dim puis le nouveau Sub
- en modifiant la ligne du Sub existant sous Msgbox + 1ligne supplémentaire....

il y a toujours le message mais au lieu de la couleur, on ne peut plus inscrire une valeur interdite. Si avant l'erreur, il n'y avait rien dans la cellule, on ne met rien ; s'il y avait une valeur autorisée, on la remet.

Dim Mem As Variant

Sub Worksheet_SelectionChange(ByVal Cible As Range)
Mem = Cible.Value
End Sub


Sub Worksheet_Change(ByVal Target As Range)
 Dim Cell As Range
 If Not Intersect([A1:A10], Target) Is Nothing And Target.Count = 1 Then
        With Sheets("ValeursInterdites")
            For Each Cell In .Range("A1:A" & .Range("A65536").End(xlUp).Row)
                If Target = Cell Then
                    MsgBox "Valeur interdite"
                    Target.Value = Mem
                    Target.Select
                End If
            Next
        End With
 End If
End Sub

Cordialement

 

[Chanel]

Re : Interdire d'utiliser certaines valeurs

Merci à tous !

Jean-Marcel et Mécano41 : j'ai finalement utilisé le code de Mécano41, ca donne exactement ce que je veux, excepté une chose : une fenêtre "valeur interdite" apparait mais elle ne disparait plus ! Je clique sur OK ou sur la croix rouge et la fenêtre reste, je ne peux rien faire d'autre sur mon fichier !? Je ne comprends pas...

Staple1100 : j'ai déjà essayé d'utiliser la validation mais cela ne fonctionne pas car mes valeurs autorisées et interdites se ressemblent trop. Exemple : la valeur 31459 est autorisée, tandis que les valeurs 31458 et 31460 sont interdites :s

 

[mécano41]

Re : Interdire d'utiliser certaines valeurs

... excepté une chose : une fenêtre "valeur interdite" apparait mais elle ne disparait plus ! Je clique sur OK ou sur la croix rouge et la fenêtre reste, je ne peux rien faire d'autre sur mon fichier !? Je ne comprends pas...

... moi non plus! A tout hasard, voici le fichier qui fonctionne chez moi. Je suis en EXCEL 2002 SP3...

Cordialement

 

[Chanel]

Re : Interdire d'utiliser certaines valeurs

Je vous envoie mon fichier pour que vous puissiez voir, car le mien bug..

Ne vous étonnez pas, pour des raisons de confidentialité (c'est un fichier professionnel), je l'ai vidé !

Merci d'avance

 

[Staple1600]

Re : Interdire d'utiliser certaines valeurs

Re


Chez THALES, il ne plaisante avec la confidentialité alors 😉

(PS: c'est juste un trait d'humour )

PS2: le code de mecano41 fonctionne sans souci (Excel 2000)

 

[mécano41]

Re : Interdire d'utiliser certaines valeurs

Aucun problème chez moi ...

 

[Chanel]

Re : Interdire d'utiliser certaines valeurs

euh.... je suis perplexe...

Je n'ai rien touché de la macro, j'ai juste supprimé des colonnes pour réduire sa taille et pouvoir vous l'envoyer ! Avant ca ne marchait pas et là je viens de réessayer et effectivement il n'y a aucun souci ! 😱 Je ne comprends pas bien ce qui a bloqué avant mais ca marche maintenant donc tant mieux !

En tout cas merci à tous ! C'est un très bon forum, je reviendrai consulter je pense 😉