NBVAL sans formules

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 24 Février 2009

• #2

Re : NBVAL sans formules

Bonjour,

Si valeurs numériques:

=NB() donne le nb de valeurs numériques

JB

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 24 Février 2009

• #3

Re : NBVAL sans formules

Bonjour BOISGONTIER et le forum

Je te remercie pour ta réponse mais j' ai essaye et cela ne marche pas, le pb c' est que dans mes cellules j' ai du texte et des chiffres et des formules.
Aladin

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 24 Février 2009

• #4

Re : NBVAL sans formules

Code:

Function remplies(champ As Range)
  temp = champ
  For Each c In temp
   If c <> 0 And c <> "" Then n = n + 1
  Next
  remplies = n
End Function

Sub essai()
  x = remplies([C3:C10])
  MsgBox x
End Sub

JB

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 24 Février 2009

• #5

Re : NBVAL sans formules

Bonjour

Chez-moi ca fonctionne même si il y a formule

With Application.WorksheetFunction
TextBox1.Value = Application.CountA(Sheets("TMP").Range("A35:A135"))
End With

A+

EDIT en fait non car il compte les formules même avec résultat 0 comme valeur
Temjeh

 

Dernière édition: 24 Février 2009

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 24 Février 2009

• #6

Re : NBVAL sans formules

Bonjour Temjeh, Boigontier et le forum
Temjeh, oui c' est exact ca fonctionne mais compte aussi les lignes à frormules sans donnés dans les cellules.
Boisgontier je vais teste ta solution et cous tiens informé
Aladin

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Février 2009

• #7

Re : NBVAL sans formules

Bonjour

En fait il faut déduire ce que renvoient les formules : est-ce 0 ou des chaînes vides...

Les fonctions de comptage comptent ce qui n'est pas vide.

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 24 Février 2009

• #8

Re : NBVAL sans formules

Bonjour Chris et le forum

Mes formules me renvoie des chaines de caracteres, ce qui implique qu' il compte aussi les formules dans son calcul
Aladin

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 25 Février 2009

• #9

Re : NBVAL sans formules

Bonjour le forum
En remplacement du nbval j' ai teste cette solution quii fonctionne
=SOMMEPROD(--(A2:A135<>"")). Comment faire pour le passe en parametre dans une macro, voici ce qui a ét fait pour le nbval
Private Sub UserForm_Activate()
With Application.WorksheetFunction
UserForm1.TextBox1.Value .CountA(Sheets("TMP").Range("A35:A135"))
Merci d' avance pour les réponses
Aladin

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Février 2009

• #10

Re : NBVAL sans formules

Bonjour,

x = Evaluate("Sumproduct(--(A2:A135<>""""))")

JB

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 25 Février 2009

• #11

Re : NBVAL sans formules

Bonjoir Boigontier et le forum
merci pour ta reponse, mais comment je vais l' insrer dans mon code ci dessous

Private Sub UserForm_Activate()
With Application.WorksheetFunction
UserForm1.TextBox1.Value .CountA(Sheets("TMP").Range("A35:A135"))

With Application.WorksheetFunction
UserForm1.TextBox2.Value .

Pour le textbox2 le sommeprod sur le feuille DIM A2:a135

Cordialement
Aladin

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Février 2009

• #12

Re : NBVAL sans formules

UserForm1.TextBox1.Value = Evaluate("Sumproduct(--(tmp!A2:A135<>""""))")

JB

 

Vote positif 0 Vote négatif

A

Aladin

XLDnaute Occasionnel

• 26 Février 2009

• #13

Re : NBVAL sans formules

Bonjour Boisgontier et le forum
J' ai applique la modif donné et tout fonctionne corecctement
Merci à tous et bonne continuation
Aladin

 

Vote positif 0 Vote négatif