Formule dans TextBox

[volcom2689]

Bonjour,

J'aimerais rentrer cette formule sous VBA pour que le résultat apparaisse dans une TextBox :

=SOMME(SI(ESTVIDE(Oiseaux!F1663:Oiseaux!F2777);"0";1/NB.SI(Oiseaux!F1663:Oiseaux!F2777;Oiseaux!F1663:Oiseaux!F2777)))

Comment procéder ?

Merci d'avance.

 

[Modeste geedee]

Re : Formule dans TextBox

Bonsour®

sourire...
si le résultat est déjà dans une cellule, il suffit de nommer cette cellule
par ex : Observations

puis dans ton code VBA :

TextBox1.Value =Range("Observations")

 

[volcom2689]

Re : Formule dans TextBox

Le résultat n'est pas dans une cellule justement....

 

[Modeste geedee]

Re : Formule dans TextBox

Bonsour®

Le résultat n'est pas dans une cellule justement....

Sourire...

Textbox1.Value= Evaluate("(SUM(IF(ISBLANK(Oiseaux!F1663:Oiseaux!F2777),""0"",1/COUNTIF(Oiseaux!F1663:Oiseaux!F2777,Oiseaux!F1663:Oiseaux!F2777))))")

 

[volcom2689]

Re : Formule dans TextBox

Bonjour,

La formule marche à merveille mais le résultat apparaît dans la TextBox uniquement quand je clique dans celle-ci et appuie sur n'importe qu'elle touche de mon clavier (étrange ?). Quelle fonction modifier pour que le résultat s'affiche automatiquement à l'ouverture du UserForm ?

Merci de ton aide en tout cas !

 

[Pierrot93]

Re : Formule dans TextBox

Bonjour,

peut être placer cette instruction dans l'événement "initialize" de l'userform.

bonne journée
@+

 

[volcom2689]

Re : Formule dans TextBox

Bonjour Pierrot93,

Je suis assez novice en VBA. Peux-tu être plus précis stp car je ne trouve pas...

Merci

 

[Pierrot93]

Re : Formule dans TextBox

Re,

dans le module de l'usf :

Private Sub UserForm_Initialize()
'ton code
End Sub

 

[volcom2689]

Re : Formule dans TextBox

Merci beaucoup Pierrot93 ! Ca marche nickel !