Discussion :

[Mist-e-Fire]

Bonjour,

Je débute en macro excel. Je fais ça en autodidacte après avoir lu un livre basique sur les macro et avec l'aide windows.

Pour la macro que je tente de réaliser, j'ai besoin que l'utilisateur rentre plusieurs valeurs entre 0 et 100. Si l'une d'entre elles est strictement supérieur à 100, il faut renvoyer un message d'erreur.

Je comptais utiliser le code suivant:

Code :

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

1
2
If Vpnj(2, 1) Or Vpnj(3, 1) Or Vpnj(4, 1) Or Vpnj(5, 1) > 100 Then
            MsgBox ("Valeur supérieur à 100, Veuillez entrer une valeur comprise entre 0 et 100")

(Ou Vpnj est une array définie lorsque l'utilisateur rentre les valeurs de 0 à 100)

Or visiblement, la condition est toujours respectée et je reçois toujours un message d'erreur quand je rentre des variables (une, toutes ou aucune) inférieures à 100

Je pourrais utiliser une autre méthode pour m'en sortir, mais plus que la réussite de la macro, c'est la compréhension qui m'intéresse ici. (mais si vous avez le temps de m'expliquer une méthode plus simple, je suis preneur )

Merci

Edit: je suis sous Excel 2007

[Nicopilami]

Code :

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

1
2
If Vpnj(2, 1) Or Vpnj(3, 1) Or Vpnj(4, 1) Or Vpnj(5, 1) > 100 Then
            MsgBox ("Valeur supérieur à 100, Veuillez entrer une valeur comprise entre 0 et 100")

Hello
à priori, je dirait que

Code :

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

if Vpnj(2, 1) Or Vpnj(3, 1) Or Vpnj(4, 1) Or Vpnj(5, 1) > 100 then

correspond à

Code :

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

if (Vpnj(2, 1)=true) Or (Vpnj(3, 1)=true) Or (Vpnj(4, 1)=true) Or (Vpnj(5, 1) > 100)  then

comme Vpnj(2, 1) est défini, alors Vpnj(2, 1)=true et ta condition devient

Code :

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

if TRUE=TRUE or .... then

CQFD

Pour résoudre ton pb, essaie de mettre >100 à chaque fois :

Code :

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

Vpnj(2, 1)  > 100 Or Vpnj(3, 1)  > 100 Or Vpnj(4, 1)  > 100 Or Vpnj(5, 1) > 100

Dis nous si ca a résolu ton pb
++
Nico

[Mist-e-Fire]

Exact
C'est juste ça

... Bon, la route est encore longue pour arriver au bout, mais j'avance, merci Nicopilami

[Nicopilami]

courage, tu es sur le bon chemin
n'oublie pas de marquer le post comme "résolu"
++
Nico