Discussion :

[Tournament]

Bonjour,

Pour un formulaire de saisie, avec un bouton "Validation"
j'ai ce code qui fonctionne bien : la textbox5 me renvoie bien les données dans la colonne E de mon tableau excel mais au format texte
Donc impossible de faire la somme des valeurs de la colonne en question.
J ai essayé avec .Val mais çà ne marche pas

Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
 
For Each Ctrl In UserForm1.Controls
 
r = Val(Ctrl.Tag)
 
If r > 0 Then Feuil1.Cells(derligne, r) = Ctrl
 
Next
 
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
 
End With
 
End Sub

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If r > 0 Then Feuil1.Cells(derligne, r) =val(replace(Ctrl,",","."))

http://www.developpez.net/forums/d15...e/#post8290464

[Tournament]

Merci pour votre réponse rapide
çà fonctionne effectivement pour cette colonne E mais problème, les autres textbox me renvoie 0 dans les autres cellules du tableau

[Invité]

regardes le lien que je t'ai donné!http://www.developpez.net/forums/d15...e/#post8290464

[Tournament]

C parfait !
Merci