EMAIL = "Umail" & l + 1 & ".text"
EMAIL = MAIL(l, 0)
EMAIL = "Umail" & l + 1 & ".text"
EMAIL = MAIL(l, 0)
MAIL(l, 0) = EMAIL
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim i As Integer For Each ctrl As Control In Me.Controls If TypeOf ctrl Is Label Then i = ctrl.TabIndex ctrl.Text = "EMAIL" & i End If Next
umail1.text = MAIL(0,0)
EMAIL = "Umail" & i + 1 & ".text"
Dim nom As String For Each ctrl As Control In Me.Controls If TypeOf ctrl Is Label Then nom = ctrl.Name MsgBox(nom) End If Next
Dim i As Integer For Each ctrl As Control In Me.Controls If TypeOf ctrl Is Label Then i = ctrl.TabIndex ctrl.Text = "MAIL(" & i - 1 & ", 0)" End If Next