Discussion :

[Alex_42]

Bonjour,

est-il possible de parcourir une sélection de zone de texte d'un formulaire portant le même nom à la différence du dernier caractère ? :
zdt_cc1 , zdt_cc2, zdt_cc3 , ....

j'ai essayé cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 3
    Me.zdt_cc& i = i 'juste pour l'exemple, je veux afficher d'autre chose que 'i' dans mes zone de texte issu d'un tableau créé auparavant
Next i

mais ca ne fonctionne pas

d'avance merci

[ClaudeLELOUP]

Bonjour,

Par exemple comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Dim ctl As Control
  For Each ctl In Me.Controls
    If ctl.Name Like "zdt_cc*" Then
       'ce que tu veux faire
    End If
  Next ctl

N.B. Tu dois ajouter la bibliothèque Microsoft DAO x.x Object Library 175 » à ton projet.

[Didier L]

Bonsoir,

Une autre solution consiste aussi a utiliser la collection controls avec le nom des controls.
ce qui évite le If de ClaudeLELOUP et qui reflète plus ce que tu voulais faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 3
    Me.controls("zdt_cc" & i) = i 'juste pour l'exemple, je veux afficher d'autre chose que 'i' dans mes zone de texte issu d'un tableau créé auparavant
Next i