Conditions sur cellule

Bonjour,

J'aurais une question sur les conditions d'une cellule,

j'ai une cellule (B6 par exemple) dans laquelle je doit taper un chiffre de 1 à 140. Je voudrais faire une condition

stipulant que si le chiffre que l'on rentre > 140, il apparait 140 ou si le chiffre que l'on rentre < à 1, il apparait 1, le tout dans cette même cellule B6. Seulement je ne peut pas faire de condition sur une cellule dans laquelle je vais rentrer mon chiffre (cela écrasera la formule). Existe t-il un moyen de faire une condition sur cette même cellule ?

Merci d'avance

Bonjour,

Ce petit programme vba permet de faire les conditions sur la cellule.

Sub condition()
If [A1] > 140 Then
    [A1] = 140
Else
If [A1] < 1 Then
    [A1] = 1
End If
End If
End Sub

Il faut le lancer à chaque fois que l'utilisateur rentre un chiffre dans A1 dans cet exemple.

a++

Bonjour,

Ok, il faut passer par la programmation en VBA.

Je te remercie beaucoup

Bonne journée

Bonjour à tous,

ou avec plage à adapter

code à placer dans le VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("b6")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target > 140 Then Target = 140
        If Target < 1 Then Target = 1
    End If
End Sub

Bonne journée

Claude

C'est ici

Salut le forum

Pas besoin de VBA avec une fonction d'Excel qui pourrait convenir.

Tu peux utiliser Données > Validation > Autoriser Nombre

Minimum 1

Maximum 140

Et tu affiche un message d'erreur si la valeur n'est pas dans la plage demandée.

Mytå