Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

NBVAL sur une palge variable

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

La braise

XLDnaute Occasionnel
Bonjour à tous,

Une petite question (toute bête) qui me bloque dans ma macro :

Je souhaite écrire en vba la formule suivante : =NBVAL("a5:a" & nblignes)

J'ai essayé :
ActiveCell.FormulaR1C1 = "=COUNTA(range("a5:a" & nblignes)"
mais ça ne marche pas...

Si quelqu'un a une idée je suis on ne peut plus preneur. 🙂

Question subsidiaire :
Je souhaite associer ce résultat à une variable.
Pour cela je sélectionne une cellule, fait le calcul dedans, affecte le résultat à une variable et vide la cellule.
A mon avis c'est pas le plus rapide... 😕

Je cherche un truc du genre :
mavariable = Application.WorksheetFunction.counta(range("a5:a" & nblignes)

d'avance merci pour votre aide à tous.
 
Trier par date Trier par votes
Re : NBVAL sur une palge variable

Salut La Braise,
voici un exemple qui pourrait remplir ta demande. Je t'ai commenté les lignes. En le faisant de cette façon, tout ce fait dans VBA. Pas besoin de remplir une cellule, de faire le calcul, et de la vider par la suite. La variable NombreValeurs le fait implicitement mais directement dans VBA.

Code: 
Sub test()

Dim PremiereLigne As Long, DerniereLigne As Long, NombreValeurs As Long

Application.ScreenUpdating = False

PremiereLigne = 5 'Détermine ta première ligne. Dans ton exemple, c'est la ligne 5 donc j'ai repris la même ligne
DerniereLigne = Cells(65536, 1).End(xlUp).Row 'Trouve la dernière ligne utilisée dans la colonne A
'DerniereLigne = Cells(5, 1).End(xlDown).Row    Une autre variante pour la même chose
NombreValeurs = DerniereLigne - PremiereLigne + 1 'Fait le calcul pour savoir le nombre de valeurs

End Sub

Bonne continuité,

Étienne
 
Vote positif 0 Vote négatif
Re : NBVAL sur une palge variable

Merci pour ta réponse mais cela ne fait pas un calcul de NBVAL.

Ce dont j'ai besoin c'est de connaitre :
NBVAL(palge variable)
la plage étant range("A5:a" & dernière ligne)

PS : je sais obtenir la dernière ligne.

Si quelqu'un a une idée...
 
Vote positif 0 Vote négatif
Re : NBVAL sur une palge variable

j'ai trouvé pour la formule :

ActiveCell.FormulaR1C1 = "=COUNTa(R[3]C:R" & nblignes - 1 & "C)"

et ça marche ! 🙂


Néanmoins est ce que quelqu'un sait transformer cette formule pour obtenir :

variable = "=COUNTa(R[3]C:R" & nblignes - 1 & "C)"

du genre mavariable = Application.WorksheetFunction.counta ...


D'avance merci pour votre aide.
 
Vote positif 0 Vote négatif
Re : NBVAL sur une palge variable

Re,
si je comprends bien, ce que tu cherches à obtenir est le nombre de valeur comprise dans ta plage. Si on prend comme première hypothèse qu'il ne peut y avoir qu'une seule valeur par cellule, alors la cellule A5 représente la première valeur, A6 la 2e valeur, A7 la 3e valeur, etc...
NBVAL calcule le nombre de valeurs dans une plage.

Donc, si tu calcules le nombre de ligne entre le début de ta plage et la fin de ta plage, tu arrives à déterminer le nombre de valeurs comprises dans la plage.

Si tu veux avoir dans une cellule le résultat, tu n'as qu'à faire quelque chose comme ceci :

Code: 
Activecell.Value = NombreValeurs

Alors, si tu fais ceci :

Code: 
Sub test()

Dim PremiereLigne As Long, DerniereLigne As Long, NombreValeurs As Long

Application.ScreenUpdating = False

PremiereLigne = 5 
DerniereLigne = Cells(65536, 1).End(xlUp).Row
NombreValeurs = DerniereLigne - PremiereLigne + 1 
Activecell.Value = NombreValeurs
End Sub

Tu peux également ajouter ce code dans un événement attribué à la feuille en particulier et ainsi créer une macro événementielle qui va calculer automatiquement le nombre de valeurs. Du genre

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

Le principe du worksheet function est de reproduire une fonction Excel qui est déjà programmée. Plutot que d'utiliser une fonction déjà toute faite, on peut la modifier par VBA de manière à remplir le besoin le plus efficacement possible et le plus rapidement possible, tout en enlevant du calcul inutile dans Excel.

Cordialement,

Étienne
 
Vote positif 0 Vote négatif
Re : NBVAL sur une palge variable

Re La braise, le forum,

Avec la formule WorksheetFunction, je procéderais comme ceci :

Code: 
DerniereLigne = Cells(65536, 1).End(xlUp).Row
NombreValeurs = Application.WorksheetFunction.CountA(Range("A5:A" & DerniereLigne))

Bonne fin de journée !

Étienne
 
Vote positif 0 Vote négatif
Re : NBVAL sur une palge variable

Bonsoir tdenfert

tdenfert à dit:
Pourquoi ne pas compter toute la colonne $a:$a et retrancher nbval de a1 à a4
Cliquez pour agrandir...
Pour éviter des calculs inutiles (et pour la concision)

Et s'il s'agit de dénombrer toutes les valeurs de la colonne "A" sauf les 4 premières, on peut aussi écrire :
Code: 
X = WorksheetFunction.CountA([A1].Resize([A65536].End(xlUp).Row - 4))

A plus
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
Y
  • Résolu(e)
XL 2013 Surligner une ligne si curseur sur la ligne et dans une zone définie
Réponses
2
Affichages
508
Yvan1
Y
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
255
Paulle
P
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
967
Phil69970
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
665
Gégé-45550
EXCEL :: Cases à cocher - Connaître les détails d'un regroupement issu d'un GROUPER.PAR
Réponses
0
Affichages
362
oguruma
  • Question Question
Microsoft 365 Passer un paramètre à la fonction NBVAL
Réponses
2
Affichages
921
Gégé-45550
A
  • Résolu(e)
XL 2016 Macros sur nom de fichier variable
Réponses
5
Affichages
641
oguruma
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
573
Romain77144
R
E
  • Résolu(e)
Microsoft 365 Variable sans guillemets
Réponses
11
Affichages
739
etpisculrien
E
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
632
Usine à gaz
N
  • Question Question
XL 2016 Chercher une valeur à partir d'une variable
Réponses
2
Affichages
401
ninos06
N
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
917
fanch55
M
  • Résolu(e)
XL 2013 Gestion clic bouton UserForm
2
Réponses
23
Affichages
2 K
M.Ben
M
M
  • Question Question
Microsoft 365 Génération image en lien hypertexte lié à une variable via une boucle
Réponses
0
Affichages
908
Maad84
M
M
  • Résolu(e)
XL 2019 insérer dans une cellule une formule avec pour variable une plage de donnée (VBA)
Réponses
5
Affichages
799
mikado08
M
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
1 K
sylvanu
B
  • Résolu(e)
Microsoft 365 Variable qui perd sa valeur dans une procédure
Réponses
13
Affichages
851
bioteau
B
H
  • Question Question
Microsoft 365 Associer une variable à une cellule
Réponses
3
Affichages
1 K
hemg68
H
  • Résolu(e)
XL 2019 Variables dans formule
Réponses
2
Affichages
548
JeromeR63
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…