Imposer une valeur limite

[Derje Boven]

Bonjour.

Mon problème est peut-être simple à résoudre, mais je n'ai pas réussi.

Je voudrais que dans une cellule quelconque, le nombre qu'on y saisit ne puisse pas être supérieur à 50 : si on saisit 65, la validation transforme ce 65 en 50.

Est-ce seulement possible ?

 

[Softmama]

Re : Imposer une valeur limite

bonjour Derje Bowen,

Ce petit code à coller dans le module de ta feuille de calcul (clic droit sur l'onglet / Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
  If c > 50 Then c = 50
Next
End Sub

 

[Derje Boven]

Re : Imposer une valeur limite

Merci Softmama.

Cela fonctionne, mais :

• Est-on obligé de faire une macro ?
• Ta macro fonctionne pour toutes les cellules de ma feuille ; comment faire pour lui spécifier sur quelles cellules s'appliquer ?

 

[Softmama]

Re : Imposer une valeur limite

Re,
Il suffit de remplacer la ligne
For each c in Target
Par
For each c in Intersect(Target, Range("A1:C17"))

En adaptant la plage à ton besoin.