XL 2010 Problème de valeurs en texte

Cougar · 1 Juillet 2016

Bonsoir,

À l'aide d'un USF, j'ajoute des valeurs des les cellules. Le tout va bien.

Avec un 2e USF pour corriger ou ajouter des valeurs, les valeurs non modifiées se remettent en mode texte ? Comment faire qu'elles restent en nombre ?

Voir fichier joint.

Merci

Bebere · 1 Juillet 2016

Re : Problème de valeurs en texte

bonjour à tous
tu peux employer,cdbl(nbre avec décimal,val(nbre entier)
Cougar tu peux écrire ton code plus simplement
pas testé

If coche1 Then
For i = 1 To 20
' si textbox vide ajoute devant la ligne suivante If Me("TextBox" & i)<>"" then
ActiveCell.Offset(i + 3, m - 1).Value = CDbl(Me("TextBox" & i)): Me("TextBox" & i) = ""
Next i
Me.Controls("OptionButton" & m) = false
Else
MsgBox "Pour quel voyage ?"
Exit Sub
End If

XL 2010 Problème de valeurs en texte

Cougar

XLDnaute Impliqué

Pièces jointes

Bebere

XLDnaute Barbatruc

Discussions similaires