InputBox et 2 conditions pour une valeur entrée

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour le Forum,

dans la partie du code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
OK = False
Do While OK = False
   d1 = InputBox("Valeur 1")
   If CInt(d1) >= [AD1] And CInt(d1) <= [AT243] Then        'CInt(d1) >= 3 And CInt(d1) <= 242
      OK = True
      d2 = InputBox("Valeur 2", "Titre", [AT243])         'InputBox("Texte ?", "Titre", "Valeur par défaut")
      If CInt(d2) <= CInt(d1) Then                   'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "d2 doit être supérieur à d1"
      Else
          OK = True
      End If
   Else
       MsgBox "d1 doit être compris entre " & [AT3] & " et " & [AT243]   '"d1 doit être compris entre 3 et 242"
       OK = False
   End If
Loop

,

1 condition est imposée à "d2" : "d2" >= "d1".
Comment compléter ce code en ajoutant une 2 ème condition pour "d2"; à savoir : "d2"<= [AT243] (condition déjà imposée à "d1") ?

Je vous remercie pour vos réponses et vous souhaite une bonne journée.
Cordialement.

Nonno 94.

Je comprend pas trop ta question.

Déjà, par rapport à ta condition ici :

Code:

1
2
3
4
5
6
7
 
      If CInt(d2) <= CInt(d1) Then                   'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "d2 doit être supérieur à d1"
      Else
          OK = True
      End If

Par rapport à ce que tu dis :

Citation:

1 condition est imposée à "d2" : "d2" >= "d1".

J'aurai plutôt mis :

Code:

1
2
3
4
5
6
7
 
      If CInt(d2) < CInt(d1) Then                   'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "d2 doit être supérieur à d1"
      Else
          OK = True
      End If

Sinon, ta condition sur l'égalité ne fonctionnera pas.

Soit j'ai pas compris ta question, mais pour répondre à ta 2e question pourquoi tu fais pas ça :

Code:

1
2
3
4
5
6
7
 
      If CInt(d2) < CInt(d1) And CInt(d2) > [AT243] Then                   'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "d2 doit être supérieur à d1 et inférieur à 243"
      Else
          OK = True
      End If

ça ne correspond pas à ce que tu veux ?

22/11/2013, 09h58
Nonno 94

Bonjour illight et merci pour votre réponse.

malheureusement, votre proposition ne résoud pas mon problème car pour "d2", elle permet de saisir des valeurs supérieures à [AT243] (= 212); la MsgBox d'erreur ne s'affiche pas :

Citation:

MsgBox "d2 doit être supérieur à d1 et inférieur à 243"

Dans mon exemple, la valeur "d1" doit être supérieure ou égale à 21 ([AD1]) et inférieure ou égale à 212, la valeur "d2" doit être supérieure à "d1" et inférieure ou égale à 212 donc comprise entre 22 et 212.

Je serais déçu s'il se révélait impossible d'imposer les 2 conditions à "d2".
Mon problème est-il insoluble ?

Cordialement.
22/11/2013, 10h21
illight
Ton problème est je pense plus une question d'algorithme que de problème impossible à résoudre. Essaye d'écrire exactement ce que tu veux comme condition avec des SI et des ALORS, de façon à pouvoir faire ton code en fonction de ce que tu souhaites. Pour exemple, voici ce que j'ai compris dans ce que tu dis :
Code:

1 2 3 4 5 6 7 8 SI D1 >=21 ET <= 212 ALORS SI D2 > D1 ET D2 <= 212 ALORS OK SINON PAS OK FIN SI FIN SI
Estce que ton algorithme de base ressemble à cela ?
22/11/2013, 10h49
Nonno 94
Merci encore pour votre patience.
Code:

1 2 3 4 5 6 7 8 SI D1 >=21 ET <= 212 ALORS SI D2 > D1 ET D2 <= 212 ALORS OK SINON PAS OK FIN SI FIN SI
Cette formulation me semble correspondre à ma demande à ceci près que :
D1 >21 et non D1 >=21.

Je vous joins un classeur d'essai dans lequel le bouton permet d'exécuter la macro et d'afficher les InputBox(es).

Pour "d2", vous ne pourrez pas entrer 16 (<21) et la MsgBox s'affiche mais vous pourrez entrer 350 bien que > à 212 sans que la MsgBox apparaisse !

Code:

MsgBox "La Valeur 2 doit être supérieure à " & [AP1] & " et inférieure à " & [AT243]

Qu'en pensez-vous ?

Cordialement.

Dans un premier temps, et au vu de l'algorithme fourni, on va pouvoir déjà modifier ta macro en fonction de celui-ci.
J'ai donc pris la négation de ton algo. Ça donnerait ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    If CInt(d1) <= [AD1] And CInt(d1) > [AT243] Then        'CInt(d1) > [AD1] And CInt(d1) <= [AT243]'CInt(d1) >= 3 And CInt(d1) <= 242
        OK = False
        MsgBox "d1 doit être compris entre " & [AD1] & " et " & [AT243]
    Else
      d2 = InputBox("Valeur 2", "Titre", [AT243])         'InputBox("Texte ?", "Titre", "Valeur par défaut")
      If CInt(d2) <= CInt(d1) Or CInt(d2) > [AT243] Then                 'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "La Valeur 2 doit être supérieure à " & [AP1] & " et inférieure à " & [AT243] 'MsgBox "d2 doit être supérieur à d1"
      Else
          OK = True
      End If
  End If

Essaye de mettre ça voir si ça correspond à ton besoin (j'ai pas testé dans ton fichier, je te laisse le faire :) )

22/11/2013, 12h35
Nonno 94

:ccool::ccool: Re,

non seulement j'ai essayé, mais encore, ......j'ai "réussi" (le mérite ne m'en revient pas !) car ce nouveau code répond parfaitement à ma demande.

Alors, encore MERCI et BRAVO.

Sans "abuser", puis-je vous demander quel code me permettrait de contrôler les entrées dans les InputBox si celles-ci étaient des Noms faisant partie d'une longue liste déroulante triée dans l'ordre alphabétique ?
Les contraintes seraient les mêmes ("d1" et "d2" < 212, "d2" > "d1").
Comment éviter d'entrer par erreur "Piere" qui n'appartient pas à la liste alors que je veux entrer "Pierre" qui lui appartient à la liste ?

Cordialement.

Autant pour moi: si le contrôle est bon pour "d2", il ne fonctionne plus pour "d1".
En "d1", je peux entrer des valeurs inférieures à [AD1] et supérieures à [AT243] !!

Désolé pour le message de victoire absolue précédent; seule la bataille de "d2" avait été remportée !

Cordialement.
22/11/2013, 16h01
illight

Je suis désolé, mais je comprend pas tes 2 messages : ça marche pas la requête comme je l'ai écrite ?

De plus, je comprend pas ta 2e demande :?
22/11/2013, 18h20
Nonno 94

Je suis tout aussi désolé mais avec ce nouveau code, "ça marche" pour "d2" (les valeurs saisies dans l'InputBox correspondante doivent bien être supérieures à "d1" et inférieures à [AT243]), mais plus pour "d1" car l'InputBox pour "d1" accepte toutes les valeurs (inférieures à [AD1] et supérieures à [AT243]).

L'essai avec le classeur joint précédemment le confirmera.

Merci encore. Bonne soirée.
Cordialement.

2 ème demande (farfelue ?)

Faite dans l'hypothèse où les valeurs saisies dans les InputBox sont non plus des n° de lignes mais des noms.
Dans ce cas, la liste étant longue, il existe un risque d'erreur dans la saisie de ces noms; ainsi je saisis Piere avec 1 seul r alors que le nom figurant dans la liste est Pierre avec 2 r.
Je souhaiterais qu'alors un message d'erreur s'affiche indiquant, par exemple, que Piere ne fait pas partie de la liste et que la saisie soit refusée.

La liste est une liste déroulante située en [A1) dans la feuille.
Les conditions imposées à "d1" et "d2" sont les mêmes que pour les n° de lignes.
Cela revient peut-être à mettre en place une validation pour la saisie dans les InputBox; ce qui, si cela est réalisable, est pour moi largement hors de portée !!!

Je comprendrais très bien que vous vous lassiez de mes demandes.
Je vous souhaite néanmoins une EXCEL...lente soirée.

Merci encore.
Cordialement.

Salut !

Désolé le week-end, je ne viens pas dans le coin, mais je ne t'ai aps oublié !

J'ai trouvé l'erreur. Voici le bon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 If CInt(d1) <= [AD1] or CInt(d1) > [AT243] Then 'CInt(d1) > [AD1] And CInt(d1) <= [AT243]'CInt(d1) >= 3 And CInt(d1) <= 242 OK = False MsgBox "d1 doit être compris entre " & [AD1] & " et " & [AT243] Else d2 = InputBox("Valeur 2", "Titre", [AT243]) 'InputBox("Texte ?", "Titre", "Valeur par défaut") If CInt(d2) <= CInt(d1) Or CInt(d2) > [AT243] Then 'If CInt(d2) <= CInt(d1) OK = False MsgBox "La Valeur 2 doit être supérieure à " & [AP1] & " et inférieure à " & [AT243] 'MsgBox "d2 doit être supérieur à d1" Else OK = True End If End If
Pour répondre à ta 2e question, si tu as une liste déroulante, c'est que tu as forcément une validation de données avec une liste ciblée. De ce fait, il suffit juste que tu bloque la saisie en dehors des valeurs de la liste.

Pour cela, dans l'option "validation de données", tu dois aller dans les alertes d'erreur, et paramétrer le message que tu souhaites :)

27/11/2013, 11h22
Nonno 94

Bonjour illight,

MERCI de ne pas m'avoir oublié et BRAVO pour votre nouveau code qui fonctionne parfaitement.

Pour la 2 ème question, je n'ai pas compris (mais est-ce étonnant !) ce que vous avez tenté de m'expliquer.
J'ai donc "bidouillé" sans succès et ne parviens toujours pas à saisir des noms de la liste de la colonne "A" dans les InputBox(es) avec le bouton "Noms Valeurs" qui lance la macro correspondante.
Quant à "rêver" d'un contrôle pour que le 2 ème soit supérieur au 1 er dans l'ordre alphabétique, c'est "statistiquement" ....... (je vous laisse conclure).

Si "vous passez par là" et si ...., je vous joins mon fichier "bricolé".

Merci encore pour votre persévérance et votre .....mémoire.

Bonne journée.
Très cordialement.
27/11/2013, 11h41
illight

J'ai compris ta question :mrgreen: en fait, tu veux faire une comparaison entre chaines de caractères et plus avec des chiffres.

Effectivement, les signes d'infériorité ou de supériorité ne vont pas suffire.

Je vais regarder ça cet après-midi, et je je te tiens au jus ;)

Il faut utiliser la fonction StrComp, qui te permet de comparer par ordre alphabétique 2 chaines de caractères. Il faut juste après l'intégrer à ton algo :mrgreen: regarde l'aide en ligne de la fonction, ça te permettra de comprendre comment elle fonctionne :P
27/11/2013, 12h08
Nonno 94

Bonjour illight,

ce que je souhaite :
- ne pas pouvoir saisir de noms qu'à partir de "BIC" ([AH1])
- ni au-delà de "ZODIAC AEROSPA" ([AS243])
- que la valeur 2 soit supérieure à la valeur 1 ("BIC"); ègale ou supérieure à "BIOALLIANCE PH" et également inférieure ou égale à "ZODIAC AEROSPA"
- ne pas pouvoir saisir "BIDON" (> à "BIC" mais ne faisant pas partie de la liste )
- que ces noms soient proposés dans une liste déroulante intégrée dans les InputBox(es) au moment de la saisie.

"Cé tout ce ke je vois pour le moment" (humour !!!)

EXCEL-lent après-midi.
27/11/2013, 13h23
illight

Question avant de me lancer dans une recherche qui peut s'avérer inutile du coup => tu peux pas faire une liste déroulante dans un InputBox, qui sert seulement à saisir une valeur.

Si tu souhaite avoir une espèce de liste déroulante avec les valeurs de ta liste (c'est l'impression que tu me donnes), pourquoi tu ne créé pas un formulaire avec une liste déroulante avec ces valeurs ?

De ce fait, avec ta liste déroulante tu ne pourra choisir que les valeurs de ladite liste, et après il suffit de faire les comparatifs sur ce que tu as saisi.

Ça te va pas comme ça ? ou tu veux absolument passer par une valeur saisie ?
27/11/2013, 14h33
Nonno 94

Re,

dans un 1 er temps, j'ai pensé qu'il est possible avec le code "en or"

Code:

If CInt(d2) <= CInt(d1) Or CInt(d2) > [AT243] Then

que vous avez mis au point de remplacer les n° de lignes par des noms de la liste déroulante avec les contraintes correspondantes.

Si cela n'est pas le cas, la nouvelle solution que vous proposez peut certainement me convenir si elle permet de respecter les contraintes indiquées dans mon précédent message :

Citation:

- ne pouvoir saisir que des noms après "BIC" ([AH1])
- ni au-delà de "ZODIAC AEROSPA" ([AS243])
- que la valeur 2 soit supérieure à la valeur 1 ("BIC"); à savoir égale ou supérieure à "BIOALLIANCE PH" et également inférieure ou égale à "ZODIAC AEROSPA"
- ne pas pouvoir saisir "BIDON" (> à "BIC" mais ne faisant pas partie de la liste )
- que ces noms soient proposés dans une liste déroulante intégrée dans les InputBox(es) au moment de la saisie.

De plus, sélectionner un nom dans une liste me paraît plus sur que de le saisir.

Qu'en pensez-vous ?

ça dépend :)

En soi, avec ton algorithme, pour des chaines de caractères ça donnerait du coup cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 If (StrComp(d1, [AB1], vbTextCompare) = -1 Or StrComp(d1, [AB1], vbTextCompare) = 0) Or StrComp(d1, [AR243]) = 1 Then 'CInt(d1) > [AD1] And CInt(d1) <= [AT243]'CInt(d1) >= 3 And CInt(d1) <= 242 OK = False MsgBox "d1 doit être compris entre " & [AC1] & " et " & [AS243] Else d2 = InputBox("Valeur 2", "Titre", [AS243]) 'InputBox("Texte ?", "Titre", "Valeur par défaut") If (StrComp(d2, d1, vbTextCompare) = -1 Or StrComp(d2, d1, vbTextCompare) = 0) Or StrComp(d2, [AR243], vbTextCompare) = 1 Then 'If CInt(d2) <= CInt(d1) OK = False MsgBox "La Valeur 2 doit être supérieure à " & [AO1] & " et inférieure à " & [AS243] 'MsgBox "d2 doit être supérieur à d1" Else OK = True End If End If
ATTENTION : avec ce code, je ne fait que vérifier tes conditions : je n'ai rien qui vérifie si ça fait partie d'une liste de nom ou pas.

On a alors 2 solutions :
- soit on reste sur cet algorithme, et il faut alors juste rajouter quelques conditions de ci de là pour vérifier si la valeur saisie fait partie d'une liste de données de ton fichier Excel => mais je pense que ça va alourdir un peu le traitement
- soit tu change, et tu pars sur un formulaire de données, avec une liste déroulante qui prendra en compte toutes tes données ( ta colonne A si j'ai bien compris ?). A ce moment-là, la personne aura dans son formulaire une liste déroulante, où il y aura pas le choix de prendre une valeur imposée.
=> Question subsidiaire : dans ce cas-là, plus besoin de condition, et tu fais pointer sur une liste où les données (par exemple) commencent par BIC ?

J'espère que j'ai été clair :mrgreen: (c'est pô gagné...)

27/11/2013, 16h47
Nonno 94

La solution "Formulaire" me semble bien répondre à ma demande.

Elle permettra donc, si j'ai bien compris (l'espoir fait vivre !), de saisir le 1 er nom puis le 2 ème; ce dernier devant obligatoirement être classé après dans l'ordre alphabétique ?
Le 1 er nom à saisir pourra-t-il, comme dans la Variante "n° de ligne" être obligatoirement classé après le dernier nom saisi en 2 ème dans la "Série" précédente ?

Exemple : lors de la précédente "Série", j'ai sélectionné les valeurs de "ACCOR" à "ALSTOM".
Est-il possible que pour la Série suivante, je ne puisse sélectionner des valeurs qu'après "ALSTOM"; à savoir à partir de "ALTAMIR" ?

N. B. : la variante "n° de ligne" le permet [AP1] !

Citation:

(c'est pô gagné...)

C'est vrai mais, "statistiquement", mes chances sont élevées et je pense que parier sur une issue favorable est tout à fait raisonnable !

A bon entendeur, .......:salut:
27/11/2013, 17h33
illight

Ça va être beaucoup plus simple du coup en passant par un formulaire :mrgreen:

Je regarde ça demain ;) et tout ce que tu dis est réalisable, sachant que la liste 2 sera alors renseignée qu'une fois la valeur 1 sélectionnée :P
29/11/2013, 09h38
illight

1 pièce(s) jointe(s)

Salut !

Désolé, hier j'ai pas eu trop le temps :mrgreen:

Tu trouveras ci-joint un exemple de formulaire : j'ai rien fait, c'est du basique, à toi de l'adapter à ce que tu souhaites :)
12/12/2013, 14h49
Nonno 94

:ccool::ccool: Bonjour illight,

j'ai pu enfin terminer les modifications que vous m'avez indiquées et je vous joins le nouveau fichier qui correspond parfaitement à ma demande.

Je n'ai cependant pu résoudre un problème que je qualifierai de mineur pour la variante "Sélection par le nom" et que je soumets à votre expertise.
Dans cette variante, si le 1 er nom est sélectionné en déroulant la liste, le nom proposé pour la 2 ème valeur est bien le suivant dans l'ordre alphabétique.

Par contre, si pour sélectionner le 1 er nom, je saisis son initiale puis le sélectionne, le nom proposé pour la 2 ème valeur sera le 2 ème de la liste commençant par la même initiale et donc antérieur au 1 er dans l'ordre alphabétique si le 1 er sélectionné n'est pas le 1 er de la liste commençant par cette initiale.

Exemple :
Si le 1 er nom sélectionné en saisissant son initiale (L) est L'Oréal, le nom proposé pour la 2 ème valeur sera : Lagardère S C qui est le 2 ème nom de la liste commençant par L alors que le nom proposé aurait dû être LVL Médical qui suit l'Oréal par ordre alphabétique dans la liste.

Si L'Oréal avait été sélectionné directement dans la liste, LVL Médical aurait bien été proposé pour la 2 ème valeur.

Existe-t-il une solution ?

Merci encore pour votre aide.
Cordialement.

Nonno 94.

voici le fichier en pièce jointe.

Voir 40 message(s) de cette discussion en une page