Bonjour à tous,
Depuis un USF je transfère des valeurs dans une feuille Excel par le truchement du petit code suivant:
Private Sub TextBox4_AfterUpdate()
Dim x, xx$
Application.EnableEvents = False
x = Split(TextBox4.Value)
xx = x(0) & "° " & x(1) & "’ " & x(2) & "” " & UCase(x(3))
TextBox4 = xx
TextBox5 = Convertir(TextBox4.Text)
End Sub
Le problème est que la cellule recevant les valeurs de la TextBox5 les affiche en alphanumérique quand j'espérait du numérique.
Qui peut m'aider?
Par avance merci.
Depuis un USF je transfère des valeurs dans une feuille Excel par le truchement du petit code suivant:
Code:
Dim x, xx$
Application.EnableEvents = False
x = Split(TextBox4.Value)
xx = x(0) & "° " & x(1) & "’ " & x(2) & "” " & UCase(x(3))
TextBox4 = xx
TextBox5 = Convertir(TextBox4.Text)
End Sub
Code:
Le problème est que la cellule recevant les valeurs de la TextBox5 les affiche en alphanumérique quand j'espérait du numérique.
Qui peut m'aider?
Par avance merci.