Dans cette macro, j'initialise tous les textbox dans un userform ok ca
marche !!
mais comment rajouter dans l'instruction
initialiser les textbox et rajouter les ComboBox + les CommandButton
Private Sub CommandButton4_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
i = i + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
merci beaucoup à tous
Mike
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
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
Pounet95
Re, Tu poses des questions, c'est bien et le forum est fait pour cela. Par contre, il faudrait lire les réponses et y répondre afin que tous ceux qui contribuent sachent s'ils doivent continuer sur le problème ou pas. (fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair. Que signifie rajouter les combobox et les commandbutton ? Ils existent ou pas ? Leur nombre ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Bonsoir,
Dans cette macro, j'initialise tous les textbox dans un userform ok ca marche !! mais comment rajouter dans l'instruction
initialiser les textbox et rajouter les ComboBox + les CommandButton
Private Sub CommandButton4_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then i = i + 1 Ctrl.Value = "" End If Next Ctrl End Sub
merci beaucoup à tous
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Re,
Tu poses des questions, c'est bien et le forum est fait pour cela.
Par contre, il faudrait lire les réponses et y répondre afin que tous ceux
qui contribuent sachent s'ils doivent continuer sur le problème ou pas.
(fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair.
Que signifie rajouter les combobox et les commandbutton ?
Ils existent ou pas ? Leur nombre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" <gnimitz@msn.com> a écrit dans le message de news:
mn.53dc7d51e671297f.15284@msn.com...
Bonsoir,
Dans cette macro, j'initialise tous les textbox dans un userform ok ca
marche !!
mais comment rajouter dans l'instruction
initialiser les textbox et rajouter les ComboBox + les CommandButton
Private Sub CommandButton4_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
i = i + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
merci beaucoup à tous
Mike
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Re, Tu poses des questions, c'est bien et le forum est fait pour cela. Par contre, il faudrait lire les réponses et y répondre afin que tous ceux qui contribuent sachent s'ils doivent continuer sur le problème ou pas. (fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair. Que signifie rajouter les combobox et les commandbutton ? Ils existent ou pas ? Leur nombre ?
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Bonsoir,
Dans cette macro, j'initialise tous les textbox dans un userform ok ca marche !! mais comment rajouter dans l'instruction
initialiser les textbox et rajouter les ComboBox + les CommandButton
Private Sub CommandButton4_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then i = i + 1 Ctrl.Value = "" End If Next Ctrl End Sub
merci beaucoup à tous
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Michel Gaboly
Bonsoir,
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is MSForms.ComBoBox Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click() Dim c As Control, Types Types = Array("TextBox", "ComboBox", "CommandButton") For Each c In Controls If Not (IsError(Application.Match(TypeName(c), Types, 0))) Then Debug.Print c.Name & "zz" End If Next End Sub
Bonsoir,
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is MSForms.ComBoBox
Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click()
Dim c As Control, Types
Types = Array("TextBox", "ComboBox", "CommandButton")
For Each c In Controls
If Not (IsError(Application.Match(TypeName(c), Types, 0))) Then
Debug.Print c.Name & "zz"
End If
Next
End Sub
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is MSForms.ComBoBox Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click() Dim c As Control, Types Types = Array("TextBox", "ComboBox", "CommandButton") For Each c In Controls If Not (IsError(Application.Match(TypeName(c), Types, 0))) Then Debug.Print c.Name & "zz" End If Next End Sub
Michel Gaboly
Bonsoir Pounet,
D'accord avec toi quant à la lecture des réponses.
Sur un plan technique, peu importe qu'il y ait des Combo et/ou des CommandButton. Cela n'empeche pas de faire le test (cf mon post précédent) :
Re, Tu poses des questions, c'est bien et le forum est fait pour cela. Par contre, il faudrait lire les réponses et y répondre afin que tous ceux qui contribuent sachent s'ils doivent continuer sur le problème ou pas. (fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair. Que signifie rajouter les combobox et les commandbutton ? Ils existent ou pas ? Leur nombre ?
-- Cordialement,
Michel Gaboly www.gaboly.com
Bonsoir Pounet,
D'accord avec toi quant à la lecture des réponses.
Sur un plan technique, peu importe qu'il y ait des Combo et/ou des
CommandButton. Cela n'empeche pas de faire le test (cf mon post précédent) :
Re,
Tu poses des questions, c'est bien et le forum est fait pour cela.
Par contre, il faudrait lire les réponses et y répondre afin que tous ceux
qui contribuent sachent s'ils doivent continuer sur le problème ou pas.
(fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair.
Que signifie rajouter les combobox et les commandbutton ?
Ils existent ou pas ? Leur nombre ?
D'accord avec toi quant à la lecture des réponses.
Sur un plan technique, peu importe qu'il y ait des Combo et/ou des CommandButton. Cela n'empeche pas de faire le test (cf mon post précédent) :
Re, Tu poses des questions, c'est bien et le forum est fait pour cela. Par contre, il faudrait lire les réponses et y répondre afin que tous ceux qui contribuent sachent s'ils doivent continuer sur le problème ou pas. (fil de 11:57 )
Sinon, pour cette question, je crois que ce n'est pas très clair. Que signifie rajouter les combobox et les commandbutton ? Ils existent ou pas ? Leur nombre ?
-- Cordialement,
Michel Gaboly www.gaboly.com
Mike
Michel Gaboly a exprimé avec précision : Hello,
Ok je vais tester !, je suis désolé, mais il est vrai que je débute en VBA , et j'ai du mal à m'exprimer !!
Merci de votre patience
Mike
PS Je vois que mon message à quand même passé :)
Bonsoir,
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is MSForms.ComBoBox Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click() Dim c As Control, Types Types = Array("TextBox", "ComboBox", "CommandButton") For Each c In Controls If Not (IsError(Application.Match(TypeName(c), Types, 0))) Then Debug.Print c.Name & "zz" End If Next End Sub
Michel Gaboly a exprimé avec précision :
Hello,
Ok je vais tester !, je suis désolé, mais il est vrai que je débute en
VBA , et j'ai du mal à m'exprimer !!
Merci de votre patience
Mike
PS
Je vois que mon message à quand même passé :)
Bonsoir,
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is
MSForms.ComBoBox Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click()
Dim c As Control, Types
Types = Array("TextBox", "ComboBox", "CommandButton")
For Each c In Controls
If Not (IsError(Application.Match(TypeName(c), Types, 0)))
Then
Debug.Print c.Name & "zz"
End If
Next
End Sub
Ok je vais tester !, je suis désolé, mais il est vrai que je débute en VBA , et j'ai du mal à m'exprimer !!
Merci de votre patience
Mike
PS Je vois que mon message à quand même passé :)
Bonsoir,
If TypeOf Ctrl Is MSForms.TextBox OR TypeOf Ctrl Is MSForms.ComBoBox Or TypeOf Ctrl Is MSForms.CommandButton Then
sur une seule ligne.
Tu peux également utiliser la fonction TypeName :
Private Sub CommandButton1_Click() Dim c As Control, Types Types = Array("TextBox", "ComboBox", "CommandButton") For Each c In Controls If Not (IsError(Application.Match(TypeName(c), Types, 0))) Then Debug.Print c.Name & "zz" End If Next End Sub
