Discussion :

[ROSELIONE]

Bonjour,
]e suis en plein phase d'apprentissage du langage VBA EXCEL, pour cela je sollicite votre aide pour la résolution d'un problème que j'ai rencontré en établissant un petit programme sur la propriété TAG du control TextBox:

Voila j'ai inséré dans une UserForm1, deux TextBox et un CommanButton1,ou j'ai mis dans les propriétés Tag des deux TextBox, les coordonnées des cellules ou doivent aller les informations saisies au niveau des TextBox: Exemple

tableau des propriétés:
[TEXTBOX1] => [Tag]: ("Feuil1!D5")

et j'ai inséré le programme suivant dans le module correspondant à l'évènement CommandButtonCLIK:

Code vba :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim ct As Conrol
For Each ct In Controls
If Left(ct.Name,7)="TextBox" Then Range (ct.Tag).Value =Ct.Text
Next Ct
 
End Sub

Mais quand j'exécute le programme de userform,quand je clique sur le bouton Command Button1? la valeur que j'ai saisi dans TextBox1 n'est pas renvoyée dans la cellule D5 de la feuille1.
A cet effet je voudrai savoir quel est le problème, est ce que l'emploi de Range n'est pas conforme ou bien un problème de déclaration des variables.
Dans l'attente d'une réponse à mes questions, je vous remercie d'avance pour solutionner mon problème.

[galopin01]

bonjour,
Dans le tableau des propriétés D5 suffira...

EDIT :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Dim Ws As Worksheet
 
Private Sub UserForm_Initialize()
   Set Ws = Worksheets("Feuil1")
End Sub
 
Private Sub CommandButton1_Click()
Dim ct As Control
   With Ws
      For Each ct In Controls
         If Left(ct.Name, 7) = "TextBox" Then .Range(ct.Tag).Value = ct.Text
      Next ct
   End With
End Sub

A+

[pijaku]

Bonjour,

Si la cellule "liée" au TextBox est toujours la même, il conviendrait peut-être d'utiliser la propriété ControlSource.
Et ainsi, dans les propriétés de la TextBox concernée, indiquée, dans le champ ControlSource : Feuil1!D5

Le résultat est que, lors du chargement de l'UserForm, le TextBox va afficher la valeur présente en D5, et, lors de chaque modification du TextBox, la cellule D5 sera modifiée...

[ROSELIONE]

MERCI beaucoup FRANCK ça marche.

[ROSELIONE]

bonjour,
Dans le tableau des propriétés D5 suffira...

EDIT :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Dim Ws As Worksheet
 
Private Sub UserForm_Initialize()
   Set Ws = Worksheets("Feuil1")
End Sub
 
Private Sub CommandButton1_Click()
Dim ct As Control
   With Ws
      For Each ct In Controls
         If Left(ct.Name, 7) = "TextBox" Then .Range(ct.Tag).Value = ct.Text
      Next ct
   End With
End Sub

A+

[ROSELIONE]

Merci ça marche mais en supprimant le point que vous avez mis devant range:Instruct 14(....Then .Range(ct.Tag)