Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Fonction Visual basic

Fonction Visual basic

5 réponses
Avatar
Flac
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut Flac,

Essaie ceci :
Sub Compte()
c = WorksheetFunction.CountA(Columns(2))
MsgBox c
End Sub
et cela :
Sub Compte()
c = WorksheetFunction.Count(Columns(2))
MsgBox c
End Sub

Serge


"Flac" a écrit dans le message de news: %
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance



Avatar
JB
Bonjour,

x = Application.CountA([B:B])

JB

On 6 sep, 17:34, "Flac" wrote:
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance


Avatar
garnote
L'équivalent VBA de NBVAL est WorksheetFunction.CountA
Un petit truc pour obtenir les équivalents VBA :
Supposons que la formule =NBVAL(B:B) est entrée en A1
de la Feuil1. Fais un clic droit sur l'onglet de la feuille et clique sur Insérer...
Double-clique sur Macro intl MS Excel 4.0.
Copie la formule de A1 (Feuil1) et colle-là dans A1 (Feuille Macro).
Sélectionne une autre cellule de la feuille Macro.
Tu verras alors apparaître la traduction VBA en A1 (Feuille Macro).

Serge


"garnote" a écrit dans le message de news: %
Salut Flac,

Essaie ceci :
Sub Compte()
c = WorksheetFunction.CountA(Columns(2))
MsgBox c
End Sub
et cela :
Sub Compte()
c = WorksheetFunction.Count(Columns(2))
MsgBox c
End Sub

Serge


"Flac" a écrit dans le message de news: %
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance







Avatar
Flac
Merci garnote
On en apprend à tous les jours.

Flac



"garnote" a écrit dans le message de news:


L'équivalent VBA de NBVAL est WorksheetFunction.CountA
Un petit truc pour obtenir les équivalents VBA :
Supposons que la formule =NBVAL(B:B) est entrée en A1
de la Feuil1. Fais un clic droit sur l'onglet de la feuille et clique sur
Insérer...
Double-clique sur Macro intl MS Excel 4.0.
Copie la formule de A1 (Feuil1) et colle-là dans A1 (Feuille Macro).
Sélectionne une autre cellule de la feuille Macro.
Tu verras alors apparaître la traduction VBA en A1 (Feuille Macro).

Serge


"garnote" a écrit dans le message de news:
%
Salut Flac,

Essaie ceci :
Sub Compte()
c = WorksheetFunction.CountA(Columns(2))
MsgBox c
End Sub
et cela :
Sub Compte()
c = WorksheetFunction.Count(Columns(2))
MsgBox c
End Sub

Serge


"Flac" a écrit dans le message de news:
%
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance











Avatar
garnote
J'ai piraté ;-) ce truc sur Excelabo (Michel Gaboly)

Serge


"Flac" a écrit dans le message de news:
Merci garnote
On en apprend à tous les jours.

Flac



"garnote" a écrit dans le message de news:

L'équivalent VBA de NBVAL est WorksheetFunction.CountA
Un petit truc pour obtenir les équivalents VBA :
Supposons que la formule =NBVAL(B:B) est entrée en A1
de la Feuil1. Fais un clic droit sur l'onglet de la feuille et clique sur Insérer...
Double-clique sur Macro intl MS Excel 4.0.
Copie la formule de A1 (Feuil1) et colle-là dans A1 (Feuille Macro).
Sélectionne une autre cellule de la feuille Macro.
Tu verras alors apparaître la traduction VBA en A1 (Feuille Macro).

Serge


"garnote" a écrit dans le message de news: %
Salut Flac,

Essaie ceci :
Sub Compte()
c = WorksheetFunction.CountA(Columns(2))
MsgBox c
End Sub
et cela :
Sub Compte()
c = WorksheetFunction.Count(Columns(2))
MsgBox c
End Sub

Serge


"Flac" a écrit dans le message de news: %
Bonjour à tous,
Excel 2000.
Je voudrais récupérer dans une procédure le nombre de
valeurs dans la colonne B de la feuille active
=nbval(B:B)
Comment écrire ça dans une procédure?

Merci d'avance