Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Créer TextBox dans SStab

Créer TextBox dans SStab

8 réponses
Avatar
John Fuss
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une textBox
mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John
Signaler un problème avec ce contenu

8 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
John Fuss
Finalement j'ai trouvé, je posterai le code tout à l'heure quand je l'aurai
fini.

"John Fuss" a écrit dans le message de
news:ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une textBox
mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John




Avatar
John Fuss
Dim pg As Page

mp_files.Pages.Clear
For i = 1 To val(GetProjectFileFromBdR(projet, 1, eNbrFichier))
Set pg = mp_files.Pages.Add(GetProjectFileFromBdR(projet, i,
eNomFichier), GetProjectFileFromBdR(projet, i, eNomFichier))
With pg.Controls.Add("Forms.Label.1", "lbl_rep" & i, True)
.Caption = "Répertoire :"
.Height = 9.75
.Left = 6
.Top = 10.1
.Width = 44.25
End With
With pg.Controls.Add("Forms.TextBox.1", "t_path" & i, True)
.Text = GetProjectFileFromBdR(projet, i, eDetailFichier)
.Height = 15.75
.Left = 54
.Top = 7.1
.Width = 282
End With
Next

Voilà en gros avec mp_files.controls("t_path" & mp_files.Value+1).text pour
ecrire ou recup le text des TextBox

John

"John Fuss" a écrit dans le message de
news:ckl8nm$ojg$
Finalement j'ai trouvé, je posterai le code tout à l'heure quand je
l'aurai

fini.

"John Fuss" a écrit dans le message de
news:ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John








Avatar
papou
Bonjour John
Sinon une petite variante permettant d'ajouter dynamiquement un nombre de
pages sur un contrôle Multipage déjà présent dans un Userform (Nombre de
pages créé en fonction d'un nombre de valeurs présentes sur une plage de
cellules) et d'ajouter également une zone de texte sur chaque page
nouvellement créée.
A toutes fins utiles.

Private Sub UserForm_Initialize()
Dim NbPgInit As Long
Dim Page As Page
Dim ZnTxt As Control
Dim Nbval As Long, x As Long
Nbval = Feuil1.Range("C65536").End(xlUp).Row
NbPgInit = MultiPage1.Pages.Count
For i = 1 To Nbval - NbPgInit
MultiPage1.Pages.Add
Next i
For x = (NbPgInit + 1) To MultiPage1.Pages.Count
Set Page = MultiPage1.Pages(x - 1)
Set ZnTxt = Page.Controls.Add("Forms.TextBox.1", "Textbox" & x)
ZnTxt.Top = 18
ZnTxt.Left = 60
Next x
End Sub


Cordialement
Pascal

"John Fuss" a écrit dans le message de
news:cklc76$q14$
Dim pg As Page

mp_files.Pages.Clear
For i = 1 To val(GetProjectFileFromBdR(projet, 1, eNbrFichier))
Set pg = mp_files.Pages.Add(GetProjectFileFromBdR(projet, i,
eNomFichier), GetProjectFileFromBdR(projet, i, eNomFichier))
With pg.Controls.Add("Forms.Label.1", "lbl_rep" & i, True)
.Caption = "Répertoire :"
.Height = 9.75
.Left = 6
.Top = 10.1
.Width = 44.25
End With
With pg.Controls.Add("Forms.TextBox.1", "t_path" & i, True)
.Text = GetProjectFileFromBdR(projet, i, eDetailFichier)
.Height = 15.75
.Left = 54
.Top = 7.1
.Width = 282
End With
Next

Voilà en gros avec mp_files.controls("t_path" & mp_files.Value+1).text
pour

ecrire ou recup le text des TextBox

John

"John Fuss" a écrit dans le message de
news:ckl8nm$ojg$
Finalement j'ai trouvé, je posterai le code tout à l'heure quand je
l'aurai

fini.

"John Fuss" a écrit dans le message de
news:ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John












Avatar
Claude Trouet
Bonjour,
J'utilise XL2000 sous XP PRO et je n'ai pas ce contrôle.
Est-il fourni avec les versions suivantes d'Excel ou bien est-ce un contrôle
téléchargeable quelque part
gratuitement ou non ?
Merci de votre réponse
CT

"John Fuss" a écrit dans le message de news:
ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une textBox
mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John




Avatar
John Fuss
Merci papou

John
"papou" a écrit dans le message de
news:
Bonjour John
Sinon une petite variante permettant d'ajouter dynamiquement un nombre de
pages sur un contrôle Multipage déjà présent dans un Userform (Nombre de
pages créé en fonction d'un nombre de valeurs présentes sur une plage de
cellules) et d'ajouter également une zone de texte sur chaque page
nouvellement créée.
A toutes fins utiles.

Private Sub UserForm_Initialize()
Dim NbPgInit As Long
Dim Page As Page
Dim ZnTxt As Control
Dim Nbval As Long, x As Long
Nbval = Feuil1.Range("C65536").End(xlUp).Row
NbPgInit = MultiPage1.Pages.Count
For i = 1 To Nbval - NbPgInit
MultiPage1.Pages.Add
Next i
For x = (NbPgInit + 1) To MultiPage1.Pages.Count
Set Page = MultiPage1.Pages(x - 1)
Set ZnTxt = Page.Controls.Add("Forms.TextBox.1", "Textbox" & x)
ZnTxt.Top = 18
ZnTxt.Left = 60
Next x
End Sub


Cordialement
Pascal

"John Fuss" a écrit dans le message de
news:cklc76$q14$
Dim pg As Page

mp_files.Pages.Clear
For i = 1 To val(GetProjectFileFromBdR(projet, 1, eNbrFichier))
Set pg = mp_files.Pages.Add(GetProjectFileFromBdR(projet, i,
eNomFichier), GetProjectFileFromBdR(projet, i, eNomFichier))
With pg.Controls.Add("Forms.Label.1", "lbl_rep" & i, True)
.Caption = "Répertoire :"
.Height = 9.75
.Left = 6
.Top = 10.1
.Width = 44.25
End With
With pg.Controls.Add("Forms.TextBox.1", "t_path" & i, True)
.Text = GetProjectFileFromBdR(projet, i, eDetailFichier)
.Height = 15.75
.Left = 54
.Top = 7.1
.Width = 282
End With
Next

Voilà en gros avec mp_files.controls("t_path" & mp_files.Value+1).text
pour

ecrire ou recup le text des TextBox

John

"John Fuss" a écrit dans le message de
news:ckl8nm$ojg$
Finalement j'ai trouvé, je posterai le code tout à l'heure quand je
l'aurai

fini.

"John Fuss" a écrit dans le message de
news:ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John
















Avatar
John Fuss
Sur un clic droit sur la Boite à outils, Contrôles supplémentaires et moi
j'ai un 'Microsoft Forms 2.0 MultiPage'

Voilà

J'en sais pas plus.

John

"Claude Trouet" a écrit dans le message de
news:
Bonjour,
J'utilise XL2000 sous XP PRO et je n'ai pas ce contrôle.
Est-il fourni avec les versions suivantes d'Excel ou bien est-ce un
contrôle

téléchargeable quelque part
gratuitement ou non ?
Merci de votre réponse
CT

"John Fuss" a écrit dans le message de news:
ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John








Avatar
Claude Trouet
Merci,
J'ai déplacé mon message original et j'ai eu la répnse au problème.
A la différence qu'il n'est pas nommé de la même façon
CT

"John Fuss" a écrit dans le message de news:
cklkg7$toh$
Sur un clic droit sur la Boite à outils, Contrôles supplémentaires et moi
j'ai un 'Microsoft Forms 2.0 MultiPage'

Voilà

J'en sais pas plus.

John

"Claude Trouet" a écrit dans le message
de
news:
Bonjour,
J'utilise XL2000 sous XP PRO et je n'ai pas ce contrôle.
Est-il fourni avec les versions suivantes d'Excel ou bien est-ce un
contrôle

téléchargeable quelque part
gratuitement ou non ?
Merci de votre réponse
CT

"John Fuss" a écrit dans le message de news:
ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John












Avatar
papou
Ok c'est avec plaisir
Par contre je viens de constater qu'une erreur s'est glissée
(malencontreusement mais sans se faire mal bien sûr !) dans le code, je
recommande donc la modification suivante :
Private Sub UserForm_Initialize()
Dim NbPgInit As Long
Dim LaPage As Page
Dim ZnTxt As Control
Dim Nbval As Long, x As Long
Nbval = Feuil1.Range("C65536").End(xlUp).Row
NbPgInit = MultiPage1.Pages.Count
For i = 1 To Nbval - NbPgInit
MultiPage1.Pages.Add
Next i
For x = (NbPgInit + 1) To MultiPage1.Pages.Count
Set LaPage = MultiPage1.Pages(x - 1)
Set ZnTxt = LaPage.Controls.Add("Forms.TextBox.1", "Textbox" & x)
ZnTxt.Top = 18
ZnTxt.Left = 60
Next x
End Sub

Cordialement
Pascal

"John Fuss" a écrit dans le message de
news:cklkan$tmn$
Merci papou

John
"papou" a écrit dans le message de
news:
Bonjour John
Sinon une petite variante permettant d'ajouter dynamiquement un nombre
de


pages sur un contrôle Multipage déjà présent dans un Userform (Nombre de
pages créé en fonction d'un nombre de valeurs présentes sur une plage de
cellules) et d'ajouter également une zone de texte sur chaque page
nouvellement créée.
A toutes fins utiles.

Private Sub UserForm_Initialize()
Dim NbPgInit As Long
Dim Page As Page
Dim ZnTxt As Control
Dim Nbval As Long, x As Long
Nbval = Feuil1.Range("C65536").End(xlUp).Row
NbPgInit = MultiPage1.Pages.Count
For i = 1 To Nbval - NbPgInit
MultiPage1.Pages.Add
Next i
For x = (NbPgInit + 1) To MultiPage1.Pages.Count
Set Page = MultiPage1.Pages(x - 1)
Set ZnTxt = Page.Controls.Add("Forms.TextBox.1", "Textbox" & x)
ZnTxt.Top = 18
ZnTxt.Left = 60
Next x
End Sub


Cordialement
Pascal

"John Fuss" a écrit dans le message de
news:cklc76$q14$
Dim pg As Page

mp_files.Pages.Clear
For i = 1 To val(GetProjectFileFromBdR(projet, 1,
eNbrFichier))



Set pg = mp_files.Pages.Add(GetProjectFileFromBdR(projet,
i,



eNomFichier), GetProjectFileFromBdR(projet, i, eNomFichier))
With pg.Controls.Add("Forms.Label.1", "lbl_rep" & i, True)
.Caption = "Répertoire :"
.Height = 9.75
.Left = 6
.Top = 10.1
.Width = 44.25
End With
With pg.Controls.Add("Forms.TextBox.1", "t_path" & i,
True)



.Text = GetProjectFileFromBdR(projet, i,
eDetailFichier)



.Height = 15.75
.Left = 54
.Top = 7.1
.Width = 282
End With
Next

Voilà en gros avec mp_files.controls("t_path" & mp_files.Value+1).text
pour

ecrire ou recup le text des TextBox

John

"John Fuss" a écrit dans le message de
news:ckl8nm$ojg$
Finalement j'ai trouvé, je posterai le code tout à l'heure quand je
l'aurai

fini.

"John Fuss" a écrit dans le message de
news:ckl74l$o02$
Bonjour à tous,

je voudrai créer dans mes pages d'un control SStab (MultiPage) une
textBox


mais je créé les pages au fur et à mesure de mes besoins.

Comme créer mes TextBox en dynamique dans mes Pages ?

Merci d'avance.

John