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

😎

 

[soenda]

Re : nbval en vba

Bonjour le fil

ou bien

UserForm1.TextBox1.Value = .CountA(Range("Liste!A1:A2500"))

A plus

 

[Dull]

Re : nbval en vba

Re le Fil

N'apporte rien au fil...

Pas sur 😀

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

AmiJC...Heu... mamontreavance 😱
et on dit à l'heure du Charette... ou du Demi-quart qui comme son nom l'indique... 🙄
Bonne soirée à vous 😀

 

[nrdz83]

Re : nbval en vba

Impeccable merci a tous pour vos lumières ça fonctionne au top et a toi jcgl pour la remarque, mes amitiés à tous et bon dimanche 🙄

 

[JCGL]

Re : nbval en vba

Bonjour à tous,

La Charette : cela voulait être un message subliminal pour ne pas tomber sous le coup de la LOI.

Evidemment c'est du Charette...

Et hop, j'en prendrais trois... mais c'est de ta faute Dull arf arf

A++
A+ à tous

 

[JCGL]

Re : nbval en vba

Bonjour à tous,

Ah ben Robert, une assiette de violet et un verre de Picpoul en la Halle de Sète... Sur ton compte... La prochaine fois que je descends à Fabrègues...

A++
A+ à tous

 

[Robert]

Re : nbval en vba

JCGL comme disent les sétois : tu n'as que de la gueule !
Ça fait plusieurs fois que tu le dis mais faut croire que tu ne vas plus à Fabrègues depuis la création de XLD. C'est quand tu veux !!!

 

[nrdz83]

Re : nbval en vba

rebonsoir à tous a ce code je dois ajouter .Range sheets(Liste ) pour qu'a l'ouverture de la feuille j'aille me ranger en A1 ?

Private Sub CommandButton3_Click()
' afficheliste Macro
With Sheets("Liste")
.Visible = True
End With
End Sub

merci

 

[Robert]

Re : nbval en vba

bonjour le fil, bonjour le forum,

Si j'ai bien compris...

[COLOR=black]Private Sub CommandButton3_Click()[/COLOR]
[COLOR=black]' afficheliste Macro[/COLOR]
[COLOR=black]With Sheets("Liste")[/COLOR]
[COLOR=black].Visible = True[/COLOR]
[COLOR=#0000ff].Range("A1").Select[/COLOR]
[COLOR=black]End With[/COLOR]
[COLOR=black]End Sub[/COLOR]

 

[nrdz83]

Re : nbval en vba

merci robert

j'ai ça qui se met en erreur
.Range("A1").Select

😕

 

[Robert]

Re : nbval en vba

Bonsoir le fil, bonsoir le forum,

Oui je pense que l'onglet n'est pas actif...
Rajoute :

Private Sub CommandButton3_Click()
[COLOR=black]' afficheliste Macro[/COLOR]
[COLOR=black]With Sheets("Liste")[/COLOR]
[COLOR=black].Visible = True[/COLOR]
[COLOR=blue].Select[/COLOR]
[COLOR=black].Range("A1").Select[/COLOR]
[COLOR=black]End With[/COLOR]
[COLOR=black]End Sub[/COLOR]

 

[nrdz83]

Re : nbval en vba

le top tout ça a cause de .select
chapeau bas et bonne soirée à tous