La formule ne marche pas si je change les valeur avec une Usf

[J-c]

Bonsoir à tous

Sur la Feuil "Base", la valeur de la colonne H dépend de la valeur en colonne E (Age)

Si je change la valeur en E (Age) manuèlement la colone H s'adapte 🙂

Si je change la valeur en E (Age) avec L' UserForm, la colonne H ne change Pas 🙄
Avez vous une idée ?

Je joint un fichier en exemple,pour concrètiser ma question
Cdlt J-C

 

[CBernardT]

Re : La formule ne marche pas si je change les valeur avec une Usf

Bonjour

Changer le code pour convertir la valeur de string à double :

Le code devient :

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 5
Cells(Lig + 3, i).Value = Me.Controls("textbox" & i)
Next i
Cells(Lig + 3, 6).Value = CDbl(CheckBox1)
UserForm1.Hide
End Sub

Cordialement

Bernard

 

[J-c]

Re : La formule ne marche pas si je change les valeur avec une Usf

Bonsoir

Merci Bernard;pour cette réponse rapide, mais après avoir fait cette modif
je n'obtiend pas le résultat escompté.
Cdlt J-C

 

[vbacrumble]

Re : La formule ne marche pas si je change les valeur avec une Usf

Bonsoir

En modifiant ainsi

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 5
Select Case i
Case 2, 3, 4
Cells(Lig + 3, i).Value = Me.Controls("textbox" & i)
Case 5
Cells(Lig + 3, i).Value = CLng(Me.Controls("textbox" & i))
End Select
Next i
Cells(Lig + 3, 6).Value = CheckBox1.Value
UserForm1.Hide
End Sub

 

[J-c]

Re : La formule ne marche pas si je change les valeur avec une Usf

Bonsoir à tous

Merci vbacrumble
Ca marche seul chose,il ne faut pas laisser la case "Age" vide, si non il y a un beug sur cette ligne

Cells(Lig + 3, i).Value = CLng(Me.Controls("textbox" & i))

Encore Merci Cdlt J-C