Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 27/11/2011, 10h50   #1
Invité régulier
 
Homme CHRISTOPHE
Inscription : février 2008
Messages : 16
Détails du profil
Informations personnelles :
Nom : Homme CHRISTOPHE
Localisation : France

Informations professionnelles :
Secteur : Service public

Informations forums :
Inscription : février 2008
Messages : 16
Points : 6
Points : 6
Par défaut if avec une condition mais 2 valeurs possibles

Bonjour,

Je dois à partir d"une variable pouvant avoir plusieurs valeurs éxécuter une liste de commande si cette variable à 2 formes.

J'ai rechercher dans tutoriel et faq car cela me semble être de l'apprentissage mais je ne trouve pas.

Voici pour être clair le code

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If dempart = "MOAD BT DEMANDE VALIDATION ET EOTP" Or "MOAD BT DEMANDE ARBITRAGE" Then
    relancee.Label29.Visible = False
    relancee.dat_retinterv_arex.Visible = False
    relancee.Label25.Visible = False
    relancee.dat_rip.Visible = False
    relancee.Label30.Visible = False
    relancee.rip.Visible = False
    relancee.Label35.Visible = False
    relancee.Label36.Visible = False
    relancee.nombre_relance_rip.Visible = False
    relancee.Label42.Visible = False
    relancee.derndate_relance_rip.Visible = False
    relancee.Label31.Visible = False
    relancee.dat_inter_arex.Visible = False
    relancee.Opti3.Visible = False
    relancee.alertedte.Visible = False
Ce code met en forme un userform avant de l ouvrir.

Ce qui ne fonctionne pas c'est la première ligne avec l'utilisation de or.

Est ce que if est la solution.
J'ai regardé aussi select case mais je me retrouve à recopier 2 fois l'ensemble du code.

Le but est de ne pas avoir à le recopier 2 fois, car ceci je sais faire.

Est ce que if end if est la bonne condition et alors comment l'utiliser pour ce cas, ou y a t il une autre pour ce cas?

Merci pour votre aide
chrisaccess est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/11/2011, 10h52   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 920
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 920
Points : 7 237
Points : 7 237
Bonjour

Essais comme cela

Code :
If dempart = "MOAD BT DEMANDE VALIDATION ET EOTP" Or dempart  = "MOAD BT DEMANDE ARBITRAGE" Then
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/11/2011, 19h01   #3
Invité régulier
 
Homme CHRISTOPHE
Inscription : février 2008
Messages : 16
Détails du profil
Informations personnelles :
Nom : Homme CHRISTOPHE
Localisation : France

Informations professionnelles :
Secteur : Service public

Informations forums :
Inscription : février 2008
Messages : 16
Points : 6
Points : 6
Bonsoir,

J'étais sûr d'avoir essayer cette solution mais apparemment pas du tout ou mal écrite. En effet celà fonctionne, il va falloir que je révise

Merci pour ta grande aide.
chrisaccess est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h44.


 
 
 
 
Partenaires

Hébergement Web