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 FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle "Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news: Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news: 42f9ac02@news.sncf.fr...
Bonjour
Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de
feuilles.
Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà :
Dim X
For X = 1 To Sheets.Count
Frame1.Controls.Item(X).Caption = Sheets(X).Name
Next X
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle "Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news: Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
FAFA603
Effectivement J'ai un UserForm1 C'est dans Frame1 que j'ajoute ces OptionButtons Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" a écrit dans le message de news:
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news:
Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
Effectivement
J'ai un UserForm1
C'est dans Frame1 que j'ajoute ces OptionButtons
Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:OUZ7RvZnFHA.3900@TK2MSFTNGP09.phx.gbl...
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une
feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou
contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le
formulaire ?
Salutations!
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news:
42f9ac02@news.sncf.fr...
Bonjour
Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de
feuilles.
Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà :
Dim X
For X = 1 To Sheets.Count
Frame1.Controls.Item(X).Caption = Sheets(X).Name
Next X
Effectivement J'ai un UserForm1 C'est dans Frame1 que j'ajoute ces OptionButtons Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" a écrit dans le message de news:
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news:
Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
michdenis
Voici une suggestion faite à partir des nom des feuilles d'un classeur standard : Feuil1, Feuil2 ...
Tu pourras t'amuser à trouver une ou des formules qui correspondent davantage à la disposition des boutons que tu voudrais avoir ....tout ceci déclencher par un bouton de commande.
'--------------------------------------- Private Sub CommandButton1_Click()
Dim C As Msforms.OptionButton Dim Hauteur As Double Dim Largeur As Double Dim H As Double Dim Nb As Integer Nb = Worksheets.Count
Hauteur = 20 Largeur = 50 H = 5
For Each Sh In Worksheets With Me.Frame1 .Height = (Hauteur - 6) * (Nb + 1) + 5 .Width = Largeur + 5 .Caption = "Ok" ' .Top = ?? 'L'emplacement dans ton formulaire ' .Left = ?? ' à déterminer Set C = .Controls.Add("Forms.OptionButton.1", Sh.Name, True) With C .Top = H .Caption = Sh.Name .Height = Hauteur .Left = 5 .Width = Largeur H = .Top + (Hauteur - 6) End With End With Next
End Sub '--------------------------------------
Salutations!
"FAFA603" a écrit dans le message de news: Effectivement J'ai un UserForm1 C'est dans Frame1 que j'ajoute ces OptionButtons Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" a écrit dans le message de news:
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news:
Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
Voici une suggestion faite à partir des nom des feuilles d'un classeur standard : Feuil1, Feuil2 ...
Tu pourras t'amuser à trouver une ou des formules qui correspondent davantage à la disposition des boutons que tu voudrais avoir
....tout ceci déclencher par un bouton de commande.
'---------------------------------------
Private Sub CommandButton1_Click()
Dim C As Msforms.OptionButton
Dim Hauteur As Double
Dim Largeur As Double
Dim H As Double
Dim Nb As Integer
Nb = Worksheets.Count
Hauteur = 20
Largeur = 50
H = 5
For Each Sh In Worksheets
With Me.Frame1
.Height = (Hauteur - 6) * (Nb + 1) + 5
.Width = Largeur + 5
.Caption = "Ok"
' .Top = ?? 'L'emplacement dans ton formulaire
' .Left = ?? ' à déterminer
Set C = .Controls.Add("Forms.OptionButton.1", Sh.Name, True)
With C
.Top = H
.Caption = Sh.Name
.Height = Hauteur
.Left = 5
.Width = Largeur
H = .Top + (Hauteur - 6)
End With
End With
Next
End Sub
'--------------------------------------
Salutations!
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news: 42f9e584@news.sncf.fr...
Effectivement
J'ai un UserForm1
C'est dans Frame1 que j'ajoute ces OptionButtons
Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:OUZ7RvZnFHA.3900@TK2MSFTNGP09.phx.gbl...
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une
feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou
contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le
formulaire ?
Salutations!
"FAFA603" <fab.lambert@sncf.fr> a écrit dans le message de news:
42f9ac02@news.sncf.fr...
Bonjour
Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de
feuilles.
Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà :
Dim X
For X = 1 To Sheets.Count
Frame1.Controls.Item(X).Caption = Sheets(X).Name
Next X
Voici une suggestion faite à partir des nom des feuilles d'un classeur standard : Feuil1, Feuil2 ...
Tu pourras t'amuser à trouver une ou des formules qui correspondent davantage à la disposition des boutons que tu voudrais avoir ....tout ceci déclencher par un bouton de commande.
'--------------------------------------- Private Sub CommandButton1_Click()
Dim C As Msforms.OptionButton Dim Hauteur As Double Dim Largeur As Double Dim H As Double Dim Nb As Integer Nb = Worksheets.Count
Hauteur = 20 Largeur = 50 H = 5
For Each Sh In Worksheets With Me.Frame1 .Height = (Hauteur - 6) * (Nb + 1) + 5 .Width = Largeur + 5 .Caption = "Ok" ' .Top = ?? 'L'emplacement dans ton formulaire ' .Left = ?? ' à déterminer Set C = .Controls.Add("Forms.OptionButton.1", Sh.Name, True) With C .Top = H .Caption = Sh.Name .Height = Hauteur .Left = 5 .Width = Largeur H = .Top + (Hauteur - 6) End With End With Next
End Sub '--------------------------------------
Salutations!
"FAFA603" a écrit dans le message de news: Effectivement J'ai un UserForm1 C'est dans Frame1 que j'ajoute ces OptionButtons Et de ce fet le control Frame est déjà present sur UserForm1
Par avance je te remercie
"michdenis" a écrit dans le message de news:
Bonjour FAFA603,
Tes boutons d'options, tu les ajoutes où ? Dans un formulaire ou dans Une feuille de calcul ? Si c'est dans une feuille, tes
contrôles doivent être issu de la barre des outils formulaire ou contrôles. La boîte d'outils contrôle ne possède pas de contrôle
"Frame".
Est-ce que le contrôle "Frame" est déjà présent dans la feuille où le formulaire ?
Salutations!
"FAFA603" a écrit dans le message de news:
Bonjour Je cherche le moyen d'ajouter autant d' OptionButtons que j'ai de feuilles. Et aussi le moyen de les només avec le nom des feuille du classeur
Voici ce que j'ai déjà : Dim X For X = 1 To Sheets.Count Frame1.Controls.Item(X).Caption = Sheets(X).Name Next X
