VBA : Simplifier la mise à jour de la 'value' des contrôles

[Besnard68]

Bonjour le Forum,


Je souhaite mettre à jour des valeurs de contrôles, suivant un même 'rituel' (à l'aide d'une boucle par exemple).

Je m'explique :

Par exemple : La valeur de activecell.offset(0,1).value vers TextBox1.Value,
La valeur de activecell.offset(0,2).value vers TextBox2.Value,
La valeur de activecell.offset(0,3).value vers TextBox3.Value,
...
La valeur de activecell.offset(0,N).value vers TextBoxN.Value.

Si, avec ActiveCell.Offset, il est possible de gérer la variable N, comment puis-je faire pour le contrôle TextBox ?


Merci pour votre aide.

 

[Chloulou]

Re : VBA : Simplifier la mise à jour de la 'value' des contrôles

salut ,
pour boucler sur tes controles tu peux utiliser la syntaxe suivante, à vérifier mais je crois bien:

Controls('textbox' & i).value

ca donnerait:

for i =1 to N
   Activecell.offset(0,i).value = Controls('textbox' & i).Value
Next i

 

[Besnard68]

Re : VBA : Simplifier la mise à jour de la 'value' des contrôles

Salut Chloulou,

C'est parfaitement juste ( le ' est à remplacer par " ).

Merci pour ton aide précieuse.
Je vais pouvoir vraiment alléger mes procédures maintenant.


Bonne journée.

 

[Excel_lent]

Re : VBA : Simplifier la mise à jour de la 'value' des contrôles

Salut à tous et aux autres,

J'avais compris dans l'autre sens : initialiser les Textbox.
Le fichier joint va dans ce sens.