PdePouldon
XLDnaute Nouveau
Bonjour,
Pour transférer des données dans une feuille après les avoir saisies dans un formulaire, j'utilise la procédure suivante :
Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 32
Cells(derlig, i) = Me.Controls("TextBox" & i)
Next i
End Sub
Le pb est que "TextBox"&i (zone de texte indexée) transfert du texte, y compris pour les nombres. Certes dans la feuille, je peux les convertir, mais n'y a-t-il pas un moyen de conserver le format nombre lors du transfert ?
Merci aux experts qui nous font profiter de leur savoir.
Pierre
Pour transférer des données dans une feuille après les avoir saisies dans un formulaire, j'utilise la procédure suivante :
Private Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 32
Cells(derlig, i) = Me.Controls("TextBox" & i)
Next i
End Sub
Le pb est que "TextBox"&i (zone de texte indexée) transfert du texte, y compris pour les nombres. Certes dans la feuille, je peux les convertir, mais n'y a-t-il pas un moyen de conserver le format nombre lors du transfert ?
Merci aux experts qui nous font profiter de leur savoir.
Pierre