XL 2019 problème en if et end if

chinel · 27 Novembre 2022

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 · 27 Novembre 2022

Bonjour,

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

VB:

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 · 27 Novembre 2022

Hasco à dit:
Bonjour,

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

VB:

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

XL 2019 problème en if et end if

chinel

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

chinel

XLDnaute Impliqué

Discussions similaires