Code pour récupérer valeur sur textbox

[jean paul]

Bonsoir à tous
Dans une feuille j'ai A2=NBVAL(A4:A28) B2==NB.SI(B3:B28;"x") D2=B2/A2

Je récupère ces valeurs dans un Userform
Private Sub UserForm_Initialize()
TextBox1.Value = Worksheets("feuil1").Range("A2")
TextBox2.Value = Worksheets("feuil1").Range("b2")
TextBox3.Value = Worksheets("feuil1").Range("d2")
TextBox3 = Format(TextBox3, "0.00%")
End Sub
Est il possible de recuperer ces valeurs sans passer par les formules en A2 B2 et D2 via un code direct dans user form

merci de vos réponses
jean paul

 

[Guest]

Re : Code pour récupérer valeur sur textbox

Bonjour,

With Worksheets("feuil1") 
TextBox1=application.countA(.Range("A4:A28"))
TextBox2=application.countIF(.Range("B3:B28"),"x")
TextBox3=.Range("B2")/.Range("A2") 
End With

A+

 

[youky(BJ)]

Re : Code pour récupérer valeur sur textbox

Bonsoir jean paul,
Pour ma part je te dit comment je procède la plupart du temps
j'écris la formule ex:en B1 ensuite en fenetre de deboquage je mets . . . .
?[B1].formula
ce qui te réponds
COUNTA(A4:A28)

tu lui mets Application.COUNTA(A4:A28)
pareil pour l'autre formule. . . .
je n'ai pas ouvert le fichier...
Bruno

 

[jean paul]

Re : Code pour récupérer valeur sur textbox

Merci à tous les 2
Pour le code de la Textbox 3 j'ai mis ceci parce que je n'ai plus de valeur en A2 B2
TextBox3 = TextBox2.Value / TextBox1.Value B

Bonne soirée à tous