OVH Cloud OVH Cloud

TextBox et indexation

3 réponses
Avatar
Rod
bonjour,

je suis actuellement en train de developper un fichier
Excel, avec du code VBA.
J'ai opte pour un affichage dans un userform.
J'ai N pages toutes de memes caracteriqtiques.
Je reserve x textboxs pour chaque page.
Je veux reecrire dans toutes mes textboxs, j'ai
prealabrement renomme mes textboxs pour avoir des indexs
simples.

je pense faire quelque chose du genre:

For i = 1 to N
Userform1.TextBox(Z).Text = fonction a appeler

Next i

Je souhaite simplement savoir la syntaxe de l'index du
Textbox car je pense qu'en l'ecrivant tel que
precedemment, VBA va le prendre comme un tableau.

Merci de vos reponses qui vont m'adier profondement.

3 réponses

Avatar
Denis Michon
Bonjour Rod,


Une façon de faire :


Dim Nom As String, i as integer, N as integer

For i = 1 To N
Nom = "TextBox" & i
UserForm1.Controls(Nom).Text = fonction a appeler
Next i


Salutations!




"Rod" a écrit dans le message de news:0add01c39fb6$fe6a00d0$
bonjour,

je suis actuellement en train de developper un fichier
Excel, avec du code VBA.
J'ai opte pour un affichage dans un userform.
J'ai N pages toutes de memes caracteriqtiques.
Je reserve x textboxs pour chaque page.
Je veux reecrire dans toutes mes textboxs, j'ai
prealabrement renomme mes textboxs pour avoir des indexs
simples.

je pense faire quelque chose du genre:

For i = 1 to N
Userform1.TextBox(Z).Text = fonction a appeler

Next i

Je souhaite simplement savoir la syntaxe de l'index du
Textbox car je pense qu'en l'ecrivant tel que
precedemment, VBA va le prendre comme un tableau.

Merci de vos reponses qui vont m'adier profondement.
Avatar
Merci a toi ca fonctionne superbement!!

Sinon saurais tu comment recuperer le parametre de page
active dans le useform.
j'avoue que j'ai commence le VB y'a 4 jours mais je
connais plus d'autres languages alors ca aide.
;)

-----Message d'origine-----
Bonjour Rod,


Une façon de faire :


Dim Nom As String, i as integer, N as integer

For i = 1 To N
Nom = "TextBox" & i
UserForm1.Controls(Nom).Text = fonction a appeler
Next i


Salutations!




"Rod" a écrit dans le message de
news:0add01c39fb6$fe6a00d0$

bonjour,

je suis actuellement en train de developper un fichier
Excel, avec du code VBA.
J'ai opte pour un affichage dans un userform.
J'ai N pages toutes de memes caracteriqtiques.
Je reserve x textboxs pour chaque page.
Je veux reecrire dans toutes mes textboxs, j'ai
prealabrement renomme mes textboxs pour avoir des indexs
simples.

je pense faire quelque chose du genre:

For i = 1 to N
Userform1.TextBox(Z).Text = fonction a appeler

Next i

Je souhaite simplement savoir la syntaxe de l'index du
Textbox car je pense qu'en l'ecrivant tel que
precedemment, VBA va le prendre comme un tableau.

Merci de vos reponses qui vont m'adier profondement.


.



Avatar
Denis Michon
Bonjour

Tu dois savoir que la première page a la valeur 0 ainsi de suite...

Retourne le numéro de la page active

MsgBox Me.MultiPage1.Value

Pour le nom de l'onglet de la page active :

MsgBox Me.MultiPage1.Pages(Me.MultiPage1.Value).Caption


Salutations!



a écrit dans le message de news:0a8b01c39fc0$a26d5fc0$
Merci a toi ca fonctionne superbement!!

Sinon saurais tu comment recuperer le parametre de page
active dans le useform.
j'avoue que j'ai commence le VB y'a 4 jours mais je
connais plus d'autres languages alors ca aide.
;)

-----Message d'origine-----
Bonjour Rod,


Une façon de faire :


Dim Nom As String, i as integer, N as integer

For i = 1 To N
Nom = "TextBox" & i
UserForm1.Controls(Nom).Text = fonction a appeler
Next i


Salutations!




"Rod" a écrit dans le message de
news:0add01c39fb6$fe6a00d0$

bonjour,

je suis actuellement en train de developper un fichier
Excel, avec du code VBA.
J'ai opte pour un affichage dans un userform.
J'ai N pages toutes de memes caracteriqtiques.
Je reserve x textboxs pour chaque page.
Je veux reecrire dans toutes mes textboxs, j'ai
prealabrement renomme mes textboxs pour avoir des indexs
simples.

je pense faire quelque chose du genre:

For i = 1 to N
Userform1.TextBox(Z).Text = fonction a appeler

Next i

Je souhaite simplement savoir la syntaxe de l'index du
Textbox car je pense qu'en l'ecrivant tel que
precedemment, VBA va le prendre comme un tableau.

Merci de vos reponses qui vont m'adier profondement.


.