Microsoft 365 Fonction VBA utilisant Countif sur un tableau structuré

Villard17

XLDnaute Nouveau
Bonjour
J'essaie de créer une fonction personnalisée qui utilise Countif sur un tableau structuré, mais je n'arrive pas à trouver la bonne syntaxe
J'ai d'abord écrit
VB:
Function Occupation(Colonne As Range , Nom as String)
       Occupation = Application.WorksheetFunction.CountIf(Colonne, Nom)
End Function

je veux l'appliquer à une colonne d'un tableau structuré Tableau1 une cellule A1 contenant le nom "DUPONT"
=Occupation(Tableau1[Nom];A1)
Le résultat est #VALEUR

Dans une macro, le code suivant fonctionne mais je n'arrive pas à le mettre dans une Function !
VB:
[CODE]Sub Macrotest()
Range("G29").Select
Colonne = "Tableau1[Nom]"
 ActiveCell.Value = Application.WorksheetFunction.CountIf(Range(Colonne), "DUPONT")
End Sub
[/CODE]


Merci pour votre aide
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonsoir à tous,

Sans parler de l’intérêt que je ne vois pas trop non plus, une fonction pour le F U N.

NBSI(UneCellTablo, NomOuNumCol, Valeur) où :
  1. UneCellTablo est une référence à une cellule du tableau structuré (n'importe laquelle)
  2. NomOuNumCol est soit le nom de la colonne (en-tête) soit son numéro
  3. Valeur est la valeur dont on compte les occurrences
Le code est dans module1 :
VB:
Function NBSI(UneCellTablo As Range, NomOuNumCol, Valeur)
   On Error Resume Next
   NBSI = CVErr(xlErrRef)
   NBSI = Application.CountIf(UneCellTablo.ListObject.ListColumns(NomOuNumCol).Range, Valeur)
End Function

On peut utiliser la fonction soit dans une feuille excel soit en VBA.
 

Pièces jointes

  • Villard17- fonction NBSI- v1.xlsm
    22.5 KB · Affichages: 11

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter