Discussion :

[Mat08]

Bonjour, je suis face à un problème que je n'arrive pas à résoudre après plusieurs tentatives.

Soit le chemin suivant dans du code vba :

Code :

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

1
2
3
4
5
Private Sub Choisir_Click()

Forms![frmTest]![chpTest1] = Me.Ville

End Sub

Je voudrais simplement remplacer chpTest1 (souligné dans le code) par la valeur contenue dans un champ nommé chpTestTemp de mon formulaire.

Est-ce possible ?

Si oui, quelle syntaxe utiliser pour insérer une variable dans un chemin pointant vers un champ de formulaire ?

Merci d'avance pour vos réponses.

[ClaudeLELOUP]

Bonjour,

Code :

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

Forms![frmTest]![chpTest1] = Me.chpTestTemp

Ou bien je n'ai pas compris ta question.

Quoi qu'il en soit :

- à gauche du signe "=", la qualification du contrôle qui doit recevoir ;
- à droite, la qualification du contrôle qui contient la valeur à copier.

Le code que tu montres sert à mettre dans le formulaire "frmTest" (qui doit être ouvert !) ce qui se trouve dans le contrôle "Ville" de ton formulaire actif.

Celui que je montre, transfère dans le contrôle "chpTest1" de 'frmTest" ce qui se trouve dans "chpTestTemp" de ton formulaire.

[Mat08]

Bonjour, je n'ai peut-être pas été assez clair.

Le but ici est de remplacer une partie du chemin (la partie que j'ai souligné dans mon premier poste) par une variable (le champ chpTestTemp du formulaire).

Concrètement, au lieu d'avoir plusieurs lignes de code de ce type :

Code :

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

1
2
3
4
Forms![frmTest]![chpTest1] = Me.Ville
Forms![frmTest]![chpTest2] = Me.Ville
Forms![frmTest]![chpTest3] = Me.Ville
Forms![frmTest]![chpTest4] = Me.Ville

Je voudrais remplacer chpTest1/2/3/4 par une variable (chpTestTemp) qui justement aurait pour valeur chpTest1/2/3/4.

Ce code sera volontairement incorrect mais vous montrera l'idée :

Code :

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

1
2
3
4
5
Private Sub Choisir_Click()
 
Forms![frmTest]![Forms![frmSelectVille]![chpTestTemp]] = Me.Ville
 
End Sub

Ou encore autre exemple volontairement incorrect :

Code :

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

1
2
3
4
5
Private Sub Choisir_Click()
 
Forms![frmTest]![Me.chpTestTemp] = Me.Ville
 
End Sub

En espérant être assez clair et ne pas trop vous embrouiller.

Edit :
-on peut considérer qu'on a deux formulaires "frmTest" avec les champs "chpTest1" "chpTest2" "chpTest3" "chpTest4" et "frmSelectVille" avec les champs "chpTestTemp" et "Ville".

-le champ chpTestTemp contiendra les valeurs chpTest1/2/3/4.

[ClaudeLELOUP]

Ceci ?

Code :

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

1
2
3
4
Dim i As Integer
For i = 1 To 4
   Forms![frmTest]("destination" & i) = Me.ville
Next i

[Mat08]

Il y en a plus que ce que je demandais mais j'ai ma réponse. Je voulais simplement la syntaxe avec une variable dans le chemin du champ de formulaire.

Dans mon exemple cela donne :

Code :

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

1
2
3
4
5
Private Sub Choisir_Click()
 
Forms![frmTest](Me.chpTestTemp) = Me.Ville
 
End Sub

L'élément souligné est ce que je cherchais.

Merci beaucoup pour votre aide.