Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Une variable dans une userform

Une variable dans une userform

3 réponses
Avatar
Guillaume
Bonjour

Je voudrait savoir si il est possible de mettre un variable d'incrementation
sur une macro qui creer une textbox.

Voici le code

Private Sub CommandButton1_Click()
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name

Set Text1 = OLAP.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub

comment ajouter la variable X sur

Set BoutonX = OLAP.Controls.Add

Quand on ecrit comme ca ca marche pas...

Merci par avance

Guillaume
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
papou
Bonjour guillaume
Pas sûr de bien comprendre mais :
Dim NbCtrAjoute As Long
NbCtrAjoute = 0
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
NbCtrAjoute = NbCtrAjoute + 1
Etc...

Cordialement
Pascal


"Guillaume" a écrit dans le message de
news:%23lpJPMt%
Bonjour

Je voudrait savoir si il est possible de mettre un variable
d'incrementation

sur une macro qui creer une textbox.

Voici le code

Private Sub CommandButton1_Click()
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name

Set Text1 = OLAP.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub

comment ajouter la variable X sur

Set BoutonX = OLAP.Controls.Add

Quand on ecrit comme ca ca marche pas...

Merci par avance

Guillaume




Avatar
Guillaume
bonjour

En Fait je voudrait que sur la userform se créer automatiquement un nombre
de testbox en fonction du chiffre qu'aura renseigner l'utilisateur. Si il
dit choisi de nombre 17, je voudrait créer 17 textbox sur la userform.

Mais je c'est pas faire...

Merci


"papou" <DésoléPasDeMail> a écrit dans le message de news:
e1$C8ct#
Bonjour guillaume
Pas sûr de bien comprendre mais :
Dim NbCtrAjoute As Long
NbCtrAjoute = 0
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
NbCtrAjoute = NbCtrAjoute + 1
Etc...

Cordialement
Pascal


"Guillaume" a écrit dans le message de
news:%23lpJPMt%
Bonjour

Je voudrait savoir si il est possible de mettre un variable
d'incrementation

sur une macro qui creer une textbox.

Voici le code

Private Sub CommandButton1_Click()
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1",
True)


Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name

Set Text1 = OLAP.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub

comment ajouter la variable X sur

Set BoutonX = OLAP.Controls.Add

Quand on ecrit comme ca ca marche pas...

Merci par avance

Guillaume








Avatar
Frédéric Sigonneau
Bonsoir,

Pour démarrer, et en supposant que ton projet comporte un userform nommé
UserForm1, ce bout de code permet de créer sur cet userform un nombre variable
de textbox, choisi à l'aide d'une inputbox :

'================(dans un module standard)
Sub CreeTextBox()
Dim Nb, USF, txtBox
Dim Haut, Gauche

Nb = InputBox("Nombre de TextBox à ajouter :", , 4)
If Nb = "" Then Exit Sub
Set USF = ActiveWorkbook.VBProject.VBComponents("Userform1")
Haut = 10: Gauche = 10
For i = 1 To Nb
Set txtBox = USF.Designer.Controls.Add("Forms.TextBox.1")
txtBox.Top = Haut
txtBox.Left = Gauche
txtBox.Text = txtBox.Name
Haut = Haut + txtBox.Height
Next
USF.Properties("Width") = txtBox.Width + 20
USF.Properties("Height") = (txtBox.Height * Nb) + 50
VBA.UserForms.Add(USF.Name).Show
End Sub
'========================================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Guillaume a écrit:
bonjour

En Fait je voudrait que sur la userform se créer automatiquement un nombre
de testbox en fonction du chiffre qu'aura renseigner l'utilisateur. Si il
dit choisi de nombre 17, je voudrait créer 17 textbox sur la userform.

Mais je c'est pas faire...

Merci


"papou" <DésoléPasDeMail> a écrit dans le message de news:
e1$C8ct#

Bonjour guillaume
Pas sûr de bien comprendre mais :
Dim NbCtrAjoute As Long
NbCtrAjoute = 0
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1", True)
NbCtrAjoute = NbCtrAjoute + 1
Etc...

Cordialement
Pascal


"Guillaume" a écrit dans le message de
news:%23lpJPMt%

Bonjour

Je voudrait savoir si il est possible de mettre un variable


d'incrementation

sur une macro qui creer une textbox.

Voici le code

Private Sub CommandButton1_Click()
Set Bouton1 = OLAP.Controls.Add("Forms.CommandButton.1", "Bouton1",


True)


Bouton1.Left = 18
Bouton1.Top = 150
Bouton1.Width = 175
Bouton1.Height = 20
Bouton1.Caption = "je suis : " & Bouton1.Name

Set Text1 = OLAP.Controls.Add("Forms.TextBox.1", "Text1", True)
Text1.Left = 18
Text1.Top = 200
Text1.Width = 175
Text1.Height = 20
Text1.Text = "je suis : " & Text1.Name
End Sub

comment ajouter la variable X sur

Set BoutonX = OLAP.Controls.Add

Quand on ecrit comme ca ca marche pas...

Merci par avance

Guillaume