Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
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
michdenis
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Yvan
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton
sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then
Label2.Caption = "OptionButton" & i.Name
Else
End If
Next i
End Sub
--
Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
michdenis
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 7568690E-FFB5-4730-B739-1C2D020DC1FE@microsoft.com...
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton
sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then
Label2.Caption = "OptionButton" & i.Name
Else
End If
Next i
End Sub
--
Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Yvan
Nickel, ça fonctionne. A quoi sert le Me. ??? -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Nickel, ça fonctionne. A quoi sert le Me. ???
--
Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 7568690E-FFB5-4730-B739-1C2D020DC1FE@microsoft.com...
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton
sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then
Label2.Caption = "OptionButton" & i.Name
Else
End If
Next i
End Sub
--
Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
michdenis
Bonjour Yvan,
| A quoi sert le Me
à rien ... car il n'est pas essentiel
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets, méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ... et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" a écrit dans le message de news: Nickel, ça fonctionne. . ??? -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Bonjour Yvan,
| A quoi sert le Me
à rien ... car il n'est pas essentiel
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets,
méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ...
et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: EBE39A34-340C-4D0C-8F98-D3BD0CDC5FB8@microsoft.com...
Nickel, ça fonctionne. . ???
--
Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 7568690E-FFB5-4730-B739-1C2D020DC1FE@microsoft.com...
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton
sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then
Label2.Caption = "OptionButton" & i.Name
Else
End If
Next i
End Sub
--
Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets, méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ... et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" a écrit dans le message de news: Nickel, ça fonctionne. . ??? -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Yvan
Merci pour toutes tes réponses et à bientôt. -- Merci pour vos réponses.
Bonjour Yvan,
| A quoi sert le Me
à rien ... car il n'est pas essentiel
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets, méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ... et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" a écrit dans le message de news: Nickel, ça fonctionne. . ??? -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
Merci pour toutes tes réponses et à bientôt.
--
Merci pour vos réponses.
Bonjour Yvan,
| A quoi sert le Me
à rien ... car il n'est pas essentiel
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets,
méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ...
et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: EBE39A34-340C-4D0C-8F98-D3BD0CDC5FB8@microsoft.com...
Nickel, ça fonctionne. . ???
--
Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 7568690E-FFB5-4730-B739-1C2D020DC1FE@microsoft.com...
Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton
sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then
Label2.Caption = "OptionButton" & i.Name
Else
End If
Next i
End Sub
--
Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton
For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
Bouton1.Caption = Bouton1.Name
Next i
Salutations!
"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message de news: 30273024-CEAF-4A51-A8CF-5D7B65363D56@microsoft.com...
Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la
bonne syntaxe :
For i = 1 to 4
Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i,
"OptionButton" & i, True)
Bouton1.Left = 40
Bouton1.Top = 8 + (20 * i)
Bouton1.Width = 400
Bouton1.Height = 20
UserForm3.OptionButtons(i).Caption = Bouton1.Name
Next i
--
Merci pour vos réponses.
Merci pour toutes tes réponses et à bientôt. -- Merci pour vos réponses.
Bonjour Yvan,
| A quoi sert le Me
à rien ... car il n'est pas essentiel
Seulement lorsque tu types le mot Me suivit d'un point, il te propose une liste déroulante des objets, méthodes ou propriétés du formulaire et ceci empêche les fautes d'orthographes en outre ... et c'est plus court que d'écrire Userform1 ....
Salutations!
"Yvan" a écrit dans le message de news: Nickel, ça fonctionne. . ??? -- Merci pour vos réponses.
Comme ceci... en supposant que le contrôle Controls("OptionButton" & i) existe vraiment...
"Yvan" a écrit dans le message de news: Merci. J'utilise ensuite un CommandButton pour récupérer le Bouton sélectionné, mais la syntaxe suivante ne fonctionne pas :
Private Sub CommandButton1_Click()
For i = 1 To a
If "OptionButton" & i.Value = True Then Label2.Caption = "OptionButton" & i.Name Else End If
Next i
End Sub
-- Merci pour vos réponses.
Bonjour Yvan,
Essaie ceci :
Dim Bouton1 As MSForms.OptionButton For i = 1 To 4
Set Bouton1 = UserForm1.Controls.Add("Forms.OptionButton.1", _ "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 Bouton1.Caption = Bouton1.Name Next i
Salutations!
"Yvan" a écrit dans le message de news: Bonjour,
Je souahite créer des boutons sur un Userform, mais je n'utilise pas la bonne syntaxe :
For i = 1 to 4 Set Bouton1 = UserForm3.Controls.Add("Forms.OptionButtons." & i, "OptionButton" & i, True) Bouton1.Left = 40 Bouton1.Top = 8 + (20 * i) Bouton1.Width = 400 Bouton1.Height = 20 UserForm3.OptionButtons(i).Caption = Bouton1.Name Next i -- Merci pour vos réponses.
