Concatener nom d'une zone de texte et une var

Ericococo -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un soucis pour concaténer le nom de ma zone de texte avec une variable.

JE m'explique, dans mon formulaire j'ai une zone de liste modifiable dont les valeur sont 1, 2, etc... et un bouton pour valider le choix. En fonction du numero choisit cela affiche des zones de textes (nommée N_Console1,N_Console2...).
Sur l'évènement "On click" du bouton de validation j'ai mis le code suivant:

Dim V As Integer
Dim I As Integer

V = ListeModifiable.Value
I = 1

While I <> V + 1
N_Console & I.Visible = True
Wend

Mais ceci ne fonctionne pas j'ai beau mettre des "&" mais rien n'y fait.
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonsoir

    essaies (non testé et de mémoire):

    ActiveSheet.Shapes("N_controle" & I).Visible = True

    au passage: évite les lettres seules dans le noms de tes variables, ca facilitera la maintenance

    Michel
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonsoir

    essaies (non testé et de mémoire):

    ActiveSheet.Shapes("N_controle" & I).Visible = True

    au passage: évite les lettres seules dans le noms de tes variables, ca facilitera la maintenance

    Michel
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonsoir,
    En VBA il n'est pas possible d'agir sur un contrôl avec son nom dans une variable.
    Si tu en a beuacoup tu peu travailler avec une collection d'objet..voir
    http://www.commentcamarche.net/faq/sujet 10397 vba et les collections d objets
    Ou alors, les créer par macro, mais cela implique de tout gérer, les emplacement, les dimentions.. etc..
    A+
    0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    erreur de message, excuses
    0