nbval en vba

[nrdz83]

Bonjour a tous j'essaye de faire afficher dans un textbox la formule qui correspond à =nbval(A2:A2500) de ma feuille "Liste"
j'essaye d'utiliser ce code mais ça marche pas quelqu'un aurait il une idée ?
merci d'avance pour vos lumières amitiés 😎

With Application.WorksheetFunction
TextBox1 = .CountA(Range("A2:A2500"))
End With

😎

 

[RENAUDER]

Re : nbval en vba

Bonjour,
Essaies ceci

Private Sub UserForm_Activate()
    With Application.WorksheetFunction
        Me.TextBox1.Value = .CountA(Range("A2:A2500"))
    End With
End Sub

 

[nrdz83]

Re : nbval en vba

bonjour renauder pour le code ce code je le colle ou ? dans ma textbox ? un module ? dans la feuille? merci pour ta réponse amitiés 😎

 

[soenda]

Re : nbval en vba

Bonjour à tous

Double clique sur le bouton de ton USF

et colle le code dans la sub Button_click

A plus

 

[RENAUDER]

Re : nbval en vba

Bonjour,
Le code est dans le Userform
car comme tu vois c'est la procédure
Private Sub UserForm_Activate()
dans ce cas à l'ouverture du formulaire, tu as le résultat dans la TextBox
ou alors comme le dit soenda, tu l'associes à un bouton

Private Sub CommandButton1_Click()
    With Application.WorksheetFunction
        Me.TextBox1.Value = .CountA(Range("A2:A2500"))
    End With
End Sub

 

[Dull]

Re : nbval en vba

Salut M.bean, Renauder, le Forum

comme le nom du code l'Indique

[B]Private Sub UserForm_Activate()[/B]
    With Application.WorksheetFunction
        Me.TextBox1.Value = .CountA(Range("A2:A2500"))
    End With
[B]End Sub[/B]

Autrement dit à l'activation de ton UserForm

mais peut-être n'est-ce pas cela que tu recherche?

EDITION: Salut soenda

Bonne Journée

 

[soenda]

Re : nbval en vba

Bonjour Dull, le forum

Effectivement... Je vais faire une petite sieste 😉

A plus

 

[nrdz83]

Re : nbval en vba

merci à tous pour vos réponses j'ai donc ce code
Sub AfficheUserForm()
Load UserForm1
UserForm1.Show
With Application.WorksheetFunction
Me.TextBox1.Value = .CountA(Range("A2:A2500"))
End With
End Sub
et j'ai l'erreur en rouge pourtant j'ai bien vérifier mon textbox1 est bien orthographié 😕
merci

 

[Robert]

Re : nbval en vba

Bonjour le fil, bonjour le forum,

Remplace Me par UserForm1.

 

[JCGL]

Re : nbval en vba

Bonjour à tous,

Mister Bean :
Peux-tu arrêter de charger l'USF par Load...
Cela est implicite par le ...Show

Bien évidemment avec toute l'amitié que je te porte

A++
A+ à tous

Edition : Bonjour Robert ;-)

 

[Dull]

Re : nbval en vba

Re le Fil

Atouthazard... le

CountA(Range("A2:A2500")

est-ce-bien sur la feuille Active? 😱

Sinon essaye

.CountA.Sheets("TaFeuille").Range ("A2:A2500")

...Epitete...

JC 🙂, Robert 🙂,

Bonne Soirée (Ici 6.50 PM)

 

[nrdz83]

Re : nbval en vba

re bonjour merci jcgl pour cette remarque elles est tré sbénéfique en fait c'est un code que j'avais récupéré et toujours fait comme cela car ça marchait. mais bien vu.
Merci pour l'info robert effectivement ça fonctionne mais ...
Voila il me compte dans ma feuille accueil et je voudrais qu'il me comptabilise dans ma feuille Liste, je suppose que je doit rajouter sheets.(Live) ?
Mais j'ai essayé de le mettre à la place de CountA mais ça marche pas.
merci encore

Sub AfficheUserForm()
UserForm1.Show
With Application.WorksheetFunction
UserForm1.TextBox1.Value = .CountA(Range("A1:A2500"))
End With
End Sub

amitiés

 

[nrdz83]

Re : nbval en vba

merci dull je viens de mettre ton code
CountA.Sheets("TaFeuille").Range ("A2:A2500")

mais erreur à ce niveau merci

 

[Robert]

Re : nbval en vba

Bonjour le fil, bonjour le forum,

Non testé... Essaie :

Sub AfficheUserForm()[/COLOR]
[COLOR=black]UserForm1.Show[/COLOR]
[COLOR=black]With Application.WorksheetFunction[/COLOR]
[COLOR=black]UserForm1.TextBox1.Value = .CountA(Sheets("Liste"). Range("A1:A2500"))[/COLOR]
[COLOR=black]End With[/COLOR]
[COLOR=black]End Sub[/COLOR]

Salut JCGL ! tu m'as énervé avec ta remarque... J'ai voulu la faire puis je me suis abstenu et finalement il fallait le faire...

 

[JCGL]

Re : nbval en vba

Bonjour à tous,

N'apporte rien au fil...

Juste pour saluer l'ami Dull qui est bientôt à l'heure de la Charette...

A++ Dull 🙂 et m'envaism'enjeterunàtasantéquandl'heureseravenueenmétropole... Voirdeux... Arf
A+ à tous