Discussion :

[xxmedxx]

Bonjour les amis c'est mon 1er projet en vba et j'ai besoin vraiment d'aide je voudrai un code dont : les cellules de B9 au Z14 ne dépasse pas le chiffre min écrit dans i5 et max écrit dans j5 si ça dépasse effacer et faire apparaître un message valeur incorrecte réessayer... merci infiniment

[eriiic]

Bonjour,

pourquoi ne pas te servir de la validation de données prévue pour ça ?
eric

[Theze]

Bonjour,

A mettre dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("B9:Z14")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
 
    If Target.Value < Range("I5").Value Or Target.Value > Range("J5").Value Then
 
        MsgBox "Valeur incorrecte, ressayer !"
 
        Application.EnableEvents = False
        Target.Value = ""
 
    End If
 
    Application.EnableEvents = True
 
End Sub

[xxmedxx]

Merci pour vos réponses mais ca n'a pas marcher avec ce code aucune action

[Igloobel]

Bonjour,
Je suis entièrement d'accord avec eriiic ()

La validation de données fonctionne parfaitement comme tu le souhaites (ce que tu as écris)



tu essayes

A +

[Theze]

Bonjour,

Le code est à mettre dans le module de la feuille concernée et non dans un module standard !

[xxmedxx]

J'ai pas encore resolu le probleme, même avec la validation de données ca marche dans des cellules et deviens folle dans des autres le champs de données est de B5 a Z5 - de B6 a Z6 ainsi de suite jusqu'a B14-Z14 si quelqu'un peut m'aider je pourrai joindre mon fichier