Dim Chose As Control For Each Chose In Me.Controls If Chose.Name = "Text1" Then modif Chose Next Chose
Private Sub modif(Truc As Object) Select Case Truc.Index Case 0 ' Traitement de Truc(0) Case 1 .... End Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question