Prob fonction NB.SI
DragonBurn
Messages postés
25
Date d'inscription
lundi 4 avril 2005
Statut
Membre
Dernière intervention
19 juin 2007
-
30 mai 2005 à 14:32
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 30 mai 2005 à 15:39
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 30 mai 2005 à 15:39
A voir également:
- Prob fonction NB.SI
- Sub ou fonction non définie ✓ - Forum Visual Basic 6
- Problème avec ... Erreur de compilation: Procédure Sub ou Function non définie ✓ - Forum Visual Basic 6
- Fonction pow en c ✓ - Forum C
- Procedure Sub ou fonction non définie... - Forum Visual Basic
- Fonction puissance recursive - Conseils pratiques -PHP
1 réponse
cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
12
30 mai 2005 à 15:39
30 mai 2005 à 15:39
Voici un exemple pour appliquer la fonction NB.SI() sur un classeur Excel depuis VB :
Dim iCpt As Integer
Dim oXlApp As Object
Dim oXlWbk As Object
Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")
'Compter le nombre de cellules contenant le mot "Paris" dans la colonne A de la feuille "Feuil1"
iCpt = oXlApp.WorksheetFunction.CountIf(oXlWbk.Worksheets("Feuil1").Range("A:A"), "Paris")
MsgBox iCpt
oXlWbk.Close
oXlApp.Quit
Set oXlWbk = Nothing
Set oXlApp = Nothing
wape
Dim iCpt As Integer
Dim oXlApp As Object
Dim oXlWbk As Object
Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")
'Compter le nombre de cellules contenant le mot "Paris" dans la colonne A de la feuille "Feuil1"
iCpt = oXlApp.WorksheetFunction.CountIf(oXlWbk.Worksheets("Feuil1").Range("A:A"), "Paris")
MsgBox iCpt
oXlWbk.Close
oXlApp.Quit
Set oXlWbk = Nothing
Set oXlApp = Nothing
wape
