empêcher d'avoir cellule vide

[Amrane]

Bonjours forum,

y-t-il une façon pour mettre trois condition sur le contenue d'un range de cellule:
¤> un chifre positif (>=0),
¤> ne contient pas un text,
¤> un contenu non vide
et de maintenir l'ancien valeur, tant que la modification ne remplis pas ces conditions,

merci d'avance,
amrane

 

[mapomme]

Bonjour Amrane,

Peut-être une piste?: sélectionner B2:B12 et appliquer le validation suivante:

edit : le bon fichier !

 

[Victor21]

Bonjour.
Les 2 premières conditions n'en forment qu'une :

Edit : Bonjour tapomme

 

[Amrane]

C'est parfait messiers,

merci
amrane,

 

[mapomme]

Re,

Pour le FUN, un essai en VBA pour empêcher un effacement de cellule déjà remplie.

Dans le module de la feuille "Sheet1", la constante zone est égale à l'adresse de la zone de saisie (ici B2:B12).

le code dans le module de la feuille "Sheet1":

Const Zone = "b2:b12"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim elem, Pasok As Boolean, Plage As Range

   On Error GoTo ERR01
   Set Plage = Intersect(Me.Range(Zone), Target)
   If Not Plage Is Nothing Then
      For Each elem In Plage
         If Not IsNumeric(elem) Or elem = "" Then
            Pasok = True
         ElseIf elem < 0 Then
            Pasok = True
         End If
      Next elem
      If Pasok Then
         Beep
         Application.EnableEvents = False
         Application.Undo
         Application.EnableEvents = True
      End If
   End If

ERR01:
   Application.EnableEvents = True
End Sub