VBA - Appel de variables via des boucles
Résolu
Adri
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
A voir également:
- VBA - Appel de variables via des boucles
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Appel privé - Guide
- Double appel - Guide
- Signal d'appel - Forum iPhone
- Je peux appeler mais pas recevoir d'appel sur mon portable - Forum Téléphones & tablettes Android
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
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
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