XL 2019 problème en if et end if

[chinel]

Bonjour, j'ai ceci mais cela ne fonctionne pas bien, besoin d'aide merci !

Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
ListBox1.Visible = True
end if
If ComboBox3 <> "" Then
ListBox1.Visible = True
end if
If ComboBox2.Value <> "" Then
ListBox1.Visible = True
end if
If ComboBox1.Value <> "" Then
ListBox1.Visible = True
end if
If TextBox2.Value <> "" Then
ListBox1.Visible = True
end if
If TextBox3.Value <> "" Then
ListBox1.Visible = True
End If
Label5.Visible = True
End Sub

 

[Hasco]

Bonjour,

S'il faut que TOUTES les valeurs soient différentes de "" alors :

Private Sub CommandButton1_Click()
ListBox1.Visible = Trim(TextBox1.Value) <> "" And Trim(TextBox2.Value) <> "" _
                   And Trim(Textbox3.Value) <> "" And Combobox1.Value <> "" _
                   And Combobox2.Value <> "" And combobox3.Value <> ""

Label5.Visible = True
End Sub

TRIM pour éviter les valeurs de textbox = " "

Depuis le temps vous pourriez utiliser le bouton "</>" de l'éditeur de discussion pour éditer vos codes !

 

[chinel]

Bonjour,

S'il faut que TOUTES les valeurs soient différentes de "" alors :

Private Sub CommandButton1_Click()
ListBox1.Visible = Trim(TextBox1.Value) <> "" And Trim(TextBox2.Value) <> "" _
                   And Trim(Textbox3.Value) <> "" And Combobox1.Value <> "" _
                   And Combobox2.Value <> "" And combobox3.Value <> ""

Label5.Visible = True
End Sub

TRIM pour éviter les valeurs de textbox = " "

Depuis le temps vous pourriez utiliser le bouton "</>" de l'éditeur de discussion pour éditer vos codes !

Merci et bonne soirée