Discussion :

[sat3367]

Bonjour

j arrive sur une difficulte avec if

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Je pense que comme ceci ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bonne journée

[sat3367]

merci pour le coup de main
je suis trop nul

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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