moi j'aurais fait ça
Dim nomtextbox As String = "TextBox"
For i As Integer = 0 To Controls.Count - 1
If Controls(i).GetType Is GetType(TextBox) Then
If CType(Controls(i), TextBox).Name.Length > nomtextbox.Length Then
If CType(Controls(i), TextBox).Name.Substring(0, nomtextbox.Length) = nomtextbox Then
CType(Controls(i), TextBox).Text = "aaa"
End If
End If
End If
Next
HvB a.k.a BaTo ^^x
[ Lien ] ^^'
[ Lien ]