Imposer une valeur limite

Derje Boven · 12 Janvier 2012

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 · 12 Janvier 2012

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) :

VB:

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 · 12 Janvier 2012

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 · 12 Janvier 2012

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.

Imposer une valeur limite

Derje Boven

Guest

Softmama

XLDnaute Accro

Derje Boven

Guest

Softmama

XLDnaute Accro

Discussions similaires

Imposer une valeur limite

Derje Boven

Guest

Softmama

XLDnaute Accro

Derje Boven

Guest

Softmama

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency