Sujet Précédent Sujet Suivant

Excel VBA : Condition IF

Fermé
kay33 - Modifié par kay33 le 18/06/2010 à 15:39
 kay33 - 21 juin 2010 à 14:50
Bonjour,

J ai excel 97 et je travail sous VBA .

Actuellement j ai une userform ou il y a plusieurs TextBox et pluiseurs ComboBox, donc je fais mais différent choix dans mes ComboBox ou TextBox .
A la fin il y a le bouton Validez pour validez toutes les données.
Et quand je clique sur ce bouton validez a la fin il y a une deuxième userform qui s ouvre et que l on doit compléter.

Mon problème est que je veut que sur une de mes ComboBox en fonction de la valeur que je choisi et que après je click sur Valider l userform 2 s ouvre ou pas.


C a dire: exemple: ComboBox 6: Si je choisi la valeur 6,7 ou 8 et que après je valide l userform 2 s ouvre, et je remplie cette userform normalement.
Si je choisi la valeur 1,2,3,4 ou 5 et que je valide, l userform 2 ne s ouvre pas et et donc après je continue normalement.

Je pense savoir que c réalisable mais je n est pas le code.

Merci d avance .


A voir également:

2 réponses

Réponse 1 / 2
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
Modifié par chossette9 le 18/06/2010 à 15:44
Bonjour,

dans le code du bouton valider, mets le code suivant : 
dim toto as Int 
toto=ComboBox6.value 'mettre la valeur de la combobox dans une variable 
Select case toto 
          Case 1 to 6'si la valeur de la combobox est entre 1 et 6, charger l'userform2 
                   load Userform2 
          Case Else 'sinon fermer l'userform1 
                   unload Userform1 

End Select


Code à modifier selon tes besoins.

Cordialement.
Ce mec la n'était pas une lumière, car il était niais.
0
kay33
18 juin 2010 à 15:54
juste un truc que je comprend pas c Dim toto as int
0
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
18 juin 2010 à 15:55
eh bien je défini ma variable toto comme étant un entier.
0
kay33
18 juin 2010 à 15:59
ouais sa oui mais en VBA je suis pas très fort il faut que je mette quoi a la place de toto ?
0
chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 306
18 juin 2010 à 16:00
Euh c'est toi qui voit, j'ai mis toto pour exemple, à toi de trouver un nom de variable qui te permettra d'identifier rapidement à quelle Combobox elle s'identifie.
0
kay33
18 juin 2010 à 16:08
g fait comme tu ma dit ma l userform 2 ne s ouvre pas
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
19 juin 2010 à 13:36
Bonjour, 

Dim Etat, Prêt, Réparation, Etalonnage As Integer
Etat = ComboBox6.Value
Select Case Etat
Case Prêt Or Réparation Or Etalonnage
UserForm2.Show


Case Else
Unload UserForm1

End Select


Prêt, Réparation et Etalonnage ne sont jamais initialisés, et donc ça passe toujours par Case Else ...

;o)
0

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses