Condition If ..Then multiple

[ixelo]

Bonjour à tous

Je me heurte à ce problème , que vous saurez forcément résoudre .

Dans un userform , j'ai 22 Checkbox ,ils ne doivent pas être tous actifs en même temps , leur activité dépend de plusieurs conditions (dans un TextBox).

J' ai 7 conditions d'affichage et donc 154 lignes de code du genre :
If TextBox1.Value = "conditio1" Then CheckBox1.Locked = True
If TextBox1.Value = "conditio1" Then CheckBox2.Locked = True

cela jusqu'à 22 ChekBox et Condition7.
Comment faire pour combiner plusieurs conditions dans un IF..Then pour réduire le nb de lignes.
Du genre (j'ai essayé mais cela ne marche pas)
If TextBox1.Value = "conditio1" or "conditio2" Then CheckBox1.Locked = true

Merci d'avance

 

[PascalXLD]

Re : Condition If ..Then multiple

Bonjour

If TextBox1 = "conditio1" or TextBox1 = "conditio2" Then CheckBox1.Locked = true

Bonne journée

 

[Gorfael]

Re : Condition If ..Then multiple

Bonjour

If TextBox1 = "conditio1" or TextBox1 = "conditio2" Then CheckBox1.Locked = true

Bonne journée

Salut
ou

CheckBox1.Locked = (TextBox1 = "conditio1") or (TextBox1 = "conditio2")

A+

PS Excel m'étonne toujours

 

[ixelo]

Re : Condition If ..Then multiple

Bonjour et merci pour vos reponses

Vous voyant si tant tellement pleins de trucs et astuces, je vais abuser un peu.

Y a t il une syntaxe pour bloquer plusieurs de mes checkBox avec plusieurs conditions?? Du genre:

CheckBox1.Locked And CheckBox2.Locked = (TextBox1 = "conditio1") or (TextBox1 = "conditio2")

Merci d'avance

 

[PascalXLD]

Re : Condition If ..Then multiple

Re

dans ce cas là je pense qu'il faut passer par

If TextBox1 = "conditio1" or TextBox1 = "conditio2" Then CheckBox1.Locked = true : CheckBox2.Locked = true

Bon courage et tien nous au courant c'est notre seul "salaire"

 

[ixelo]

Re : Condition If ..Then multiple

re Bonjour

Une vrai merveille , cela fonctionne impécable.

Allez , j'abuse encore ....
En fin de de traitement , je dois remettre mes CheckBox à l'état initial, sinon cela met le bazar dans le traitement suivant.

Existe t il une commande qui ferait cela toute seule du genre:

' de ChecKBox1 à CheckBox 22 locked = false '

J' ai essayé plusieurs trucs sans grand résultat.

Encore merci

 

[PascalXLD]

Re : Condition If ..Then multiple

Re

essaies

for x = 1 to 22
controls("Checkbox" & x).locked=false
next

 

[ixelo]

Re : Condition If ..Then multiple

Bonjour à tous

Bonjour Pascal

Merci pour ton aide .

Cela m' a évité pas mal d' heures de manip , et d'énervement confondus.


A bientot