controle tag

[kiki4]

Bonjour à tous, voici mon problème:

J'ai une textbox1 et un commandbutton1, j'aimerai pouvoir gérer l'insertion des données par le controle tag dans les proprietes dans ma feuil1 appelé "bd"...

il m'indique une erreue d'éxécution1004...




Private Sub CommandButton1_Click()

Dim ctrl As Control
Dim r As Integer

For Each ctrl In Me.Controls
r = Val(ctrl.Tag)
If r > 0 Then ctrl = Feuil1.Cells(bd, r)

Next

End Sub


merci d'avance.

 

[Staple1600]

Re : controle tag

Bonjour kiki4, le fil

Si j'ai bien compris la donne

Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim r As Integer
For Each ctrl In Me.Controls
r = Val(ctrl.Tag)
If r > 0 Then ctrl = Sheets("bd").Cells(r, 1)
Next
End Sub

Testé dans les conditions suivantes
Une feuille nommée bd
Sur la feuille bd: A1=abc , A2=efg et A3 =hij
Un userform contenant 3 textboxs avec les tag suivants : 1,2 et 3 et un commandbutton
Avec le code ci-dessus
Les textbox prennent bien les valeurs de A1,A2 et A3 lorsqu'on clique sur le commandbutton

 

[kiki4]

Re : controle tag

Bonjour Staple, désolé pour le temps de réponse mais je travaillé. Ton code fonctionne très bien mais pas dans le sens que je souhaiterai, je m'explique,

dans ton code, lorsque l'on clique sur cmd1 il fait un relevé de la valeur du ctrl tag, or ce que je voudrai ca serai de remplacer ce code:


Private Sub CommandButton1_Click()
Dim Derlgn As Integer
With Worksheets("bd")
Derlgn = .Range("A65536").End(xlUp).Row + 1
.Cells(Derlgn, 1) = Me.TextBox1.Value
Me.TextBox1.Value = ""
.Cells(Derlgn, 2) = Me.TextBox2.Value
Me.TextBox2.Value = ""
.Cells(Derlgn, 3) = Me.TextBox3.Value
Me.TextBox3.Value = ""
.Cells(Derlgn, 4) = Me.TextBox4.Value
Me.TextBox4.Value = ""
.Cells(Derlgn, 5) = Me.TextBox5.Value
Me.TextBox5.Value = ""
End With
End Sub

'je voudrai éviter d'écrire a chaque fois: ' .Cells(Derlgn, 5) = Me.TextBox5.Value
' Me.TextBox5.Value = ""



par celui la :


Private Sub CommandButton1_Click()

Dim ctrl As Control
Dim r As Integer

For Each ctrl In Me.Controls
r = Val(ctrl.Tag)
If r > 0 Then ctrl = Feuil1.Cells(bd, r)

Next

End Sub


Merci d'avance, et encore désolé pour le temps de réponse.