controle tag

Re : controle tag

Bonjour kiki4, le fil

Si j'ai bien compris la donne
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

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.