Bonjour à tous,
Quelqu'un pourrait-il me dire où est l'erreur?
Les contrôles sont des Textbox dont les Tag sont en ordre croissant. Je cherche à mettre dans un tableau, au rang indiqué par le Tag, la valeur du Textbox correspondant convertie (ici en Single). Cela fonctionne sans le CSng (donc, en restant en texte), mais avec la conversion cela m'indique une erreur "Incompatibilité de type"...
Merci d'avance.
Cordialement
Quelqu'un pourrait-il me dire où est l'erreur?
Code:
Private Sub BoutonValider_Click()
Dim Ctrl As Control
Dim T(1, 23)
For Each Ctrl In Me.Controls
If Ctrl.Tag <> "" Then
T(1, CLng(Ctrl.Tag)) = CSng(Ctrl.Value)
End If
Next Ctrl
Les contrôles sont des Textbox dont les Tag sont en ordre croissant. Je cherche à mettre dans un tableau, au rang indiqué par le Tag, la valeur du Textbox correspondant convertie (ici en Single). Cela fonctionne sans le CSng (donc, en restant en texte), mais avec la conversion cela m'indique une erreur "Incompatibilité de type"...
Merci d'avance.
Cordialement