VBA - Appel de variables via des boucles
Résolu/Fermé
Adri
-
Modifié par Adri le 4/08/2010 à 10:37
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 4 août 2010 à 11:54
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 4 août 2010 à 11:54
A voir également:
- VBA - Appel de variables via des boucles
- Appel anonyme - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
- Renvoi d'appel ooredoo - Forum telephonie fixe
- Votre appel ne peut aboutir - Forum Mobile
- Double appel - Guide
3 réponses
Après plusieurs heures de recherche on pose une question... mais une fois la question posée on tombe sur un site internet contenant la réponse^^
il suffit de remplacer dans mon code
NomTemporaire = Controls("NomAssocie" & i & "Text").Value
En espérant que cela serve à d'autres personnes
il suffit de remplacer dans mon code
NomTemporaire = Controls("NomAssocie" & i & "Text").Value
En espérant que cela serve à d'autres personnes
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
4 août 2010 à 11:24
4 août 2010 à 11:24
Salut,
Tout dépends de ce que contiennent tes textbox. Voici un exemple avec une chaine de caractères (String)
Tout dépends de ce que contiennent tes textbox. Voici un exemple avec une chaine de caractères (String)
Dim i As Integer Dim NomTemporaire, Valeur As String 'initialisation des variables' i = 1 Do While i <= nbAssociesText.Value NomTemporaire = "NomAssocie" & i & "Text" Valeur = NomTemporaire.Value Call RemplacerUnUniqueMot(NomDeBase, Valeur) i = i + 1 Loop
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
4 août 2010 à 11:30
4 août 2010 à 11:30
bonjour pijaku
Faut tester d'abord !!
A+
Faut tester d'abord !!
A+
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
4 août 2010 à 11:54
4 août 2010 à 11:54
Bonjour Lermitte222,
Oui c'est vrai et je m'en excuse auprès du créateur de ce sujet. Je dois dire que je suis toujours en train de tester car chez moi, ni ma proposition, ni celle d'Adri ne semble vouloir fonctionner... Pour ce qui est de la mienne, ok je sais pourquoi, quand à l'autre... Donc je teste encore.
A+
Oui c'est vrai et je m'en excuse auprès du créateur de ce sujet. Je dois dire que je suis toujours en train de tester car chez moi, ni ma proposition, ni celle d'Adri ne semble vouloir fonctionner... Pour ce qui est de la mienne, ok je sais pourquoi, quand à l'autre... Donc je teste encore.
A+
Voici la solution que j'ai trouvé Pijaku :
-------------------------ALGO-------------------------------------------
'définition des variables'
Dim i As Integer
Dim NomTemporaire As String
'initialisation des variables'
i = 1
Do While i <= nbAssociesText.Value
NomTemporaire = Controls("NomAssocie" & i & "Text").Value
Call RemplacerUnUniqueMot(NomDeBase, NomTemporaire)
i = i + 1
Loop
------------------------------------------------------------------------------
De cette façon NomTemporaire = NomAssocie1Text.value puis à NomAssocie2Text.value puis à....
Donc lorsque j'utilise ma variable NomTemporaire j'ai bien accès au contenu de mes TextBox
-------------------------ALGO-------------------------------------------
'définition des variables'
Dim i As Integer
Dim NomTemporaire As String
'initialisation des variables'
i = 1
Do While i <= nbAssociesText.Value
NomTemporaire = Controls("NomAssocie" & i & "Text").Value
Call RemplacerUnUniqueMot(NomDeBase, NomTemporaire)
i = i + 1
Loop
------------------------------------------------------------------------------
De cette façon NomTemporaire = NomAssocie1Text.value puis à NomAssocie2Text.value puis à....
Donc lorsque j'utilise ma variable NomTemporaire j'ai bien accès au contenu de mes TextBox