Condition et Validation de données (VBA)

[dagada75]

Bonjour à Tous, Bonsoir pour les expat'

Pour contrôler les données que devra me renseigner un utilisateur dans un template Excel, j'aimerai rajouter un contrôle sur la validation des données d'une cellule.
En fait mon problème est simple :
La colonne A ne peut contenir que la valeur 1, 2 ou 3
MAIS SI la valeur de la cellule Ax = 1 ALORS le nombre compris dans la cellule Bx devra être COMPRIS entre 0 et 1000
SI la valeur de la cellule Ax = 2 ALORS le nombre compris dans la cellule Bx devra être COMPRIS entre 1001 et 2000
SI la valeur de la cellule Ax = 3 ALORS le nombre compris dans la cellule Bx devra être COMPRIS entre 2001 et 3000.

Je n'arrive pas à coder cette formule de validation de données en VBA ... :S

Merci de m'accorder 5 minutes si vous avez le temps.
Longue vie au forum

 

[Aurore14]

Voici qui pourrait t'aider

Comme je suis pas douée en VBA, je t'ai trouvé ca!

Par contre en VBA je sais pas ce que ca donne

A toi de mettre des messages d'erreur ou bien a moins que les gens ne le sache ce qu'il faut mettre et dans quel cas!

Bonne journée

Aurore [file name=ValidationDonnees.zip size=20377]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ValidationDonnees.zip[/file]

 

[dagada75]

Bah C'est parfait AURORE !!!

Merci :woohoo:

J'ignorai que l'on pouvait insérer des formules dans les 'minimum' et 'maximum' :whistle: :whistle:

Encore merci pour ton attention ET ta rapidité

 

[Staple1600]

Bonsoir
Peut-être cela peut t'aider

Sub test()
X = ActiveCell.Value
Y = ActiveCell.Offset(0, 1).Address
Z = ActiveCell.Offset(0, 1)
Select Case X
Case 1
If Z > 1000 Then
MsgBox 'La valeur de ' & Y & ' doit être comprise en être 0 et 1000'
End If
Case 2
If Z 2000 Then
MsgBox 'La valeur de ' & Y & ' doit être comprise en être 1001 et 2000'
End If
Case 3
If Z 3000 Then
MsgBox 'La valeur de ' & Y & ' doit être comprise en être 2001 et 3000'
End If
Case Else
Exit Sub
End Select
End Sub

 

[Aurore14]

Bonjour Tagada75,

C'est un plaisir, à la fois c'est la premiere fois que j'aide quelqu'un sur le site, alors c'est a moi que ca fait plaisir... pour une fois que c'est pas le contraire

Et pour les formules, a vrai dire je savais pas non plus... tu m'en a fais apprendre par la même occasion

Longue vie au forum

Bonne journée à tous

Aurore :lol: