Erreur Formule VBA...

[alain.raphael]

Salut à Tous,

Je cherche mon erreur dans cette formule et je ne trouve pas.....

Private Sub UserForm_INITIALIZE_Click()
TextBox13 = Range((Val("N16") / 365))
End Sub

Lors de l'initialisation d'un formulaire.....je voudrais que la TextBox13 possède la valeur de N16/365

😕

 

[Pierrot93]

Re : Erreur Formule VBA...

Bonjour,

modifie peut être comme ceci :

TextBox13 = Val(Range("N16") / 365)

bonne journée
@+

 

[job75]

Re : Erreur Formule VBA...

Bonjour alain.raphael, Pierrot,

Et il faut choisir, c'est soit Private Sub UserForm_Initialize() soit Private Sub UserForm_Click() 🙄

A+

 

[alain.raphael]

Re : Erreur Formule VBA...

C'est beaucoup mieux MERCI !!!!!

J'ai mis cela mais il m'arrondi -> 3,00 au lieu de 3,79

Private Sub UserForm_Initialize()
TextBox13 = Format(Val(Range("N16") / 365), "0.00")
End Sub

Des idées ?

 

[alain.raphael]

Re : Erreur Formule VBA...

Merci Job...Déjà je partais mal....😎

 

[alain.raphael]

Re : Erreur Formule VBA...

J'ai essayé cela...mais toujours pareil.... pas de virgule dans la TextBox..🙁

TextBox13 = Round(Val(Range("N16") / 365), 2)

C'est donc la division qui me donne malheureusement un chiffre rond je pense....

 

[job75]

Re : Erreur Formule VBA...

Re,

Si vous voulez absolument utiliser Val il faut d'abord remplacer la virgule par le point :

TextBox13 = Format(Val(Replace([N16], ",", ".")) / 365, "0.00")

A+

 

[alain.raphael]

Re : Erreur Formule VBA...

Un grand merci..🙂

 

[alain.raphael]

Re : Erreur Formule VBA...

Dans le même genre.....

Range("R13").Select
ActiveCell.FormulaR1C1 = _
"=IF(R225C[-10]="" Bla bla "","""","!U13)"

Je voudrais que R13 prenne (si non écrit Bla bla) la valeur de la cellule U13...mais impossible...😱

 

[Pierrot93]

Re : Erreur Formule VBA...

Re,
bonjour Job🙂

utilise l'enregistreur de macro, tu auras le code tout fait...

 

[alain.raphael]

Re : Erreur Formule VBA...

A y est !!!

Merci !!

Range("R13").Select
ActiveCell.FormulaR1C1 = _
"=IF(R225C[-10]="" Bla Bla"","""",R13C[3])"
😉