Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1127 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème avec If et Case dans VBA...

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème avec If et Case dans VBA...

n°1849681
bingojm
Posté le 10-02-2009 à 23:04:30  profilanswer
 

Bonjour à tous,
 
Je suis débutant et j'ai un soucis avec VBA - excel.
Je voudrais afficher un message dans une cellule en fonction 2 conditions.
J'ai essayé ceci, mais sans succès.
 
Dans ma cellule C4, j'ai déjà une valeur numérique. C'est en fonction de cette valeur que le message veut varier.
Première condition: que optionvillage et optionville soient cochés (il y en aura d'autres après)
Deuxième condition: Message écrit dans C10 en fonction de la valeur de C4.
 
    Dim joueurs
    joueurs= ActiveSheet.Range("C4" ).Value
    If (optionvillage.Value = True And optionville.Value = True) Then
    Select Case pieces
    Case 6
       Range("C10" ) = "6 joueurs"
    Case 7
       Range("C10" ) = "7 joueurs"
    End Select
    End If
 
Je suis dans le flou...
Merci de m'aider.

mood
Publicité
Posté le 10-02-2009 à 23:04:30  profilanswer
 

n°1849682
freds45
Posté le 10-02-2009 à 23:19:45  profilanswer
 

Tu as un message d'erreur quelconque ?


---------------
Filmstory : gardez trace des films que vous avez vu ! :D
n°1849683
bingojm
Posté le 10-02-2009 à 23:28:12  profilanswer
 

non c'est juste que cela ne fonctionne pas...
Mais j'ai oublié une étape importante :s
Mon optionvillage.value est sur un premier formulaire!!!
En fait si ma condition est remplie sur le premier formulaire, je passe au deuxième, mais que dois-je mettre pour passer la valeur de optionvillage.value au deuxième formulaire?
Après cela, mon code devrait fonctionner?
merci!

n°1849684
Z_cool
HFR profile rating:⭐⭐⭐⭐
Posté le 11-02-2009 à 08:45:28  profilanswer
 

tu aura sans doute plus d'aide dans la partie "Programmation" du forum a mon avis


---------------
#mais-chut
n°1849685
olivthill
Posté le 11-02-2009 à 09:51:51  profilanswer
 

Pour accéder à une autre feuille, au lieu de laisser Range() tout seul ou au lieu de le préfixer par ActiveSheet, il faudrait le préfixer par ThisWorkbook.Sheets("nom_dune_feuille" ). Ou bien faire ThisWorkbook.Sheets("nom_dune_feuille" ).Activate


Message édité par olivthill le 11-02-2009 à 09:56:11
n°1849686
freds45
Posté le 11-02-2009 à 09:55:11  profilanswer
 

Ce sujet a été déplacé de la catégorie Windows & Software vers la categorie Programmation par Freds45


---------------
Filmstory : gardez trace des films que vous avez vu ! :D
n°1849692
bingojm
Posté le 11-02-2009 à 10:21:08  profilanswer
 

Merci pour le déplacement...
Merci à toi aussi olivthill, mais ce n'est pas d'une feuille à une autre, mais d'un formulaire à une autre. Je travaille sur une seule et même feuille. En fait, à l'ouverture du document, je vais lancer une macro pour ouvrir un premier formulaire et fonction de ce qui sera coché et validé, j'arriverai sur un seuxième formulaire. Mais comment arriver sur le deuxième formulaire avec les infos validées sur le premier. cfr optionvillage etc

n°1849726
olivthill
Posté le 11-02-2009 à 11:17:01  profilanswer
 

Une solution consiste à utiliser des variables globales.
 
Pour cela il faut créer un "module" (faire un clic droit dans la fenêtre Projet et choisir "Insertion/Module" ).
Dans le module, écrire

Public toto

Dans un formulaire, écrire

toto = "abc"

Dans l'autre formulaire, écrire

Me.TextBox1.Value = toto


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème avec If et Case dans VBA...

 

Sujets relatifs
Probleme sur Eclipse[PHP] Problème Array : test de valeurs negatives de suite
[RESOLU] [PHP/MYSQL] Problème d'exécution de requete imbriquéprobleme de control par gotoandstop sur une anim.swf
probleme mise en page de mon siteVBA + userform
VBA + ExcelProblème de réceptions Multicast
Behavior problème gestion souris molette + deplacementProblème pattern Decorateur FilterInputStream et classe de test.
Plus de sujets relatifs à : Problème avec If et Case dans VBA...


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR