J'ai plusieurs contr=F4les dans mon userform et j'aimerai
lors d'un click contr=F4ler uniquement les listbox, les
combobox et les textbox pour voir s'ils ont bien =E9t=E9
renseign=E9s.
Private Sub Add_Click()
Dim Ctrl As Control
'Tous les champs ListBox, ComboBox et Textbox ont-ils =E9t=E9
renseign=E9s?
For Each Ctrl In Me.Controls
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour,
Peut être :
Private Sub Add_Click() Dim ctrl As Control
For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then MsgBox "Textbox : " & ctrl.Name & "=" & ctrl.Text ElseIf TypeOf ctrl Is MSForms.ComboBox Then MsgBox "Combobox : " & ctrl.Name & "=" & ctrl.Text ElseIf TypeOf ctrl Is MSForms.ListBox Then MsgBox "Listbox : " & ctrl.Name & "=" & ctrl.List(ctrl.ListIndex) End If Next End Sub
Kévin wrote:
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai lors d'un click contrôler uniquement les listbox, les combobox et les textbox pour voir s'ils ont bien été renseignés.
Private Sub Add_Click() Dim Ctrl As Control 'Tous les champs ListBox, ComboBox et Textbox ont-ils été renseignés? For Each Ctrl In Me.Controls
'C'est ici que je bloque...
Next End Sub
Pouvez-vous m'aider?
Merci d'avance.
-- Cordialement,
Jacques.
Bonjour,
Peut être :
Private Sub Add_Click()
Dim ctrl As Control
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.TextBox Then
MsgBox "Textbox : " & ctrl.Name & "=" & ctrl.Text
ElseIf TypeOf ctrl Is MSForms.ComboBox Then
MsgBox "Combobox : " & ctrl.Name & "=" & ctrl.Text
ElseIf TypeOf ctrl Is MSForms.ListBox Then
MsgBox "Listbox : " & ctrl.Name & "=" & ctrl.List(ctrl.ListIndex)
End If
Next
End Sub
Kévin wrote:
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai
lors d'un click contrôler uniquement les listbox, les
combobox et les textbox pour voir s'ils ont bien été
renseignés.
Private Sub Add_Click()
Dim Ctrl As Control
'Tous les champs ListBox, ComboBox et Textbox ont-ils été
renseignés?
For Each Ctrl In Me.Controls
For Each ctrl In Controls If TypeOf ctrl Is MSForms.TextBox Then MsgBox "Textbox : " & ctrl.Name & "=" & ctrl.Text ElseIf TypeOf ctrl Is MSForms.ComboBox Then MsgBox "Combobox : " & ctrl.Name & "=" & ctrl.Text ElseIf TypeOf ctrl Is MSForms.ListBox Then MsgBox "Listbox : " & ctrl.Name & "=" & ctrl.List(ctrl.ListIndex) End If Next End Sub
Kévin wrote:
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai lors d'un click contrôler uniquement les listbox, les combobox et les textbox pour voir s'ils ont bien été renseignés.
Private Sub Add_Click() Dim Ctrl As Control 'Tous les champs ListBox, ComboBox et Textbox ont-ils été renseignés? For Each Ctrl In Me.Controls
'C'est ici que je bloque...
Next End Sub
Pouvez-vous m'aider?
Merci d'avance.
-- Cordialement,
Jacques.
anonymousA
bonjour,
Private Sub CommandButton1_Click()
For Each c In Me.Controls Select Case TypeName(c) Case "ListBox", "TextBox", "ComboBox" If Len(c.Value) <> 0 Then Else MsgBox c.Name End If End Select Next
End Sub
A+
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai lors d'un click contrôler uniquement les listbox, les combobox et les textbox pour voir s'ils ont bien été renseignés.
Private Sub Add_Click() Dim Ctrl As Control 'Tous les champs ListBox, ComboBox et Textbox ont-ils été renseignés? For Each Ctrl In Me.Controls
'C'est ici que je bloque...
Next End Sub
Pouvez-vous m'aider?
Merci d'avance.
bonjour,
Private Sub CommandButton1_Click()
For Each c In Me.Controls
Select Case TypeName(c)
Case "ListBox", "TextBox", "ComboBox"
If Len(c.Value) <> 0 Then
Else
MsgBox c.Name
End If
End Select
Next
End Sub
A+
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai
lors d'un click contrôler uniquement les listbox, les
combobox et les textbox pour voir s'ils ont bien été
renseignés.
Private Sub Add_Click()
Dim Ctrl As Control
'Tous les champs ListBox, ComboBox et Textbox ont-ils été
renseignés?
For Each Ctrl In Me.Controls
For Each c In Me.Controls Select Case TypeName(c) Case "ListBox", "TextBox", "ComboBox" If Len(c.Value) <> 0 Then Else MsgBox c.Name End If End Select Next
End Sub
A+
Bonjour,
J'ai plusieurs contrôles dans mon userform et j'aimerai lors d'un click contrôler uniquement les listbox, les combobox et les textbox pour voir s'ils ont bien été renseignés.
Private Sub Add_Click() Dim Ctrl As Control 'Tous les champs ListBox, ComboBox et Textbox ont-ils été renseignés? For Each Ctrl In Me.Controls