J'ai 20 champs textes de Text1 à Text20
Je voudrais boucler pour récupérer leurs valeurs au lieu d'écrire les 20 lignes :
recup(0) = text1.Value
recup(1) = text2.Value
recup(2) = text3.Value
...
J'ai 20 champs textes de Text1 à Text20
Je voudrais boucler pour récupérer leurs valeurs au lieu d'écrire les 20 lignes :
recup(0) = text1.Value
recup(1) = text2.Value
recup(2) = text3.Value
...
Un truc du genre...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim i as Integer For i = 0 to 19 recup(i)=Controls("Text" & i+1).Value Next
Merci
Hum ... et si on veut rajouter des index après "controls", quelle serait la syntaxe ?
pour être plus précis .... collection de controles de la form = me.controls
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For Each Control in Me.controls Code... Next
puis dans le code tu fais un test sur le typeof ou le tag de tes controles, je m'en sert pour faire des fausses form en mode modal, c'est a dire je desactive tous les controles sauf ceux qui m'intéressent par niveau en leur attribuant une valeur dans le tag et je fais un test sur la valeur ...
Ma page Developpez - Mon Blog Developpez
Président du CCMPTP (Comité Contre le Mot "Problème" dans les Titres de Posts)
Deux règles du succès: 1) Ne communiquez jamais à quelqu'un tout votre savoir...
Votre post est résolu ? Alors n'oubliez pas le Tag
Venez sur le Chat de Développez !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager