AIde sur double action avec if en VBA

Bonjour

j arrive sur une difficulte avec if

je n arrive pas a executer une double action (affichage de pages) avec if

Code:

---

1 2 3

If TextBox1.Value = "BSN" Then Sheets("BSN 17").Visible = True and_ Sheets("BSN CAG").Visible = True

---

quelqu'un pour m aider

merci

Je pense que comme ceci ça fonctionne

Code:

---

1 2 3 4

If TextBox1.Value = "BSN" Then Sheets("BSN 17").Visible = True Sheets("BSN CAG").Visible = True end if

---

bonne journée

merci pour le coup de main
je suis trop nul

Bonjour,
Quand il s'agit de modifier la propriété booléenne d'un objet, il est préférable d'utiliser directement le résultat du test ce qui t'évite d'utiliser le Else pour masquer ensuite les feuilles si le test est faux.

Code:

---

1 2 3 4

With TextBox1 Sheets("BSN 17").Visible = .Value = "BSN" Sheets("BSN CAG").Visible = .Value = "BSN" End With

---

Quand il y a plusieurs tests identiques un flag est préférable

Code:

---

1 2 3 4

Dim Flag As Boolean Flag = TextBox1.Value = "BSN" Sheets("BSN 17").Visible = Flag Sheets("BSN CAG").Visible = Flag

---

et pour éviter les problèmes de casse et des caractères espacés avant et après inévitables lors d'un encodage manuel j'utilise les fonctions Trim et LCase

Code:

---

Flag = LCase(Trim(TextBox1.Value)) = "bsn"

---