Erreur Formule VBA...

Pierrot93

XLDnaute Barbatruc

• 28 Août 2015

• #2

Re : Erreur Formule VBA...

Bonjour,

modifie peut être comme ceci :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2015

• #3

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+

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #4

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 ?

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #5

Re : Erreur Formule VBA...

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

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #6

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....

 

Dernière édition: 28 Août 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2015

• #7

Re : Erreur Formule VBA...

Re,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #8

Re : Erreur Formule VBA...

Un grand merci..🙂

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #9

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...😱

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Août 2015

• #10

Re : Erreur Formule VBA...

Re,
bonjour Job🙂

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

 

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 28 Août 2015

• #11

Re : Erreur Formule VBA...

A y est !!!

Merci !!

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

 

Dernière édition: 28 Août 2015

Vote positif 0 Vote négatif