Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Appeler une fonction perso

Appeler une fonction perso

22 réponses
Avatar
C15
Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour dénombrer
les celluels ayant des valeurs uniques (la plage des cellules concernées
s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
AV
Pour info, dans les fonctions personnalisées (2ième proposition), le
fonction NbValUniques n'apparait pas


Hum....hum....T'es sur de l'avoir mise dans un module ordinaire ?

AV

Avatar
jps
moi j ai le sentiment, C15 (c'était pas une voiture?), que tu n'as pas
installé la Function dans un module standard car si ç'avait été le cas, tu
devrais la trouver dans les fonctions personnalisées
jps

"C15" <Mé a écrit dans le message de
news:41a9f7a1$0$10780$
Bonsoir Clément,

Désolé mais aucune de tes méthodes ne marche.
Pour info, dans les fonctions personnalisées (2ième proposition), le
fonction NbValUniques n'apparait pas

Merci encore

A+

C15

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Le zouave doit être trop con pour aller voir lui-même dans Perso.xls,
Essaie avec:

=Perso.xls!NbValUniques(gammes0)

ou insère ta fonction en passant par le bouton "Insérer une fonction",
puis en choisissant dans les fonction personnalisées.


"C15" <Mé a écrit dans le message de
news:41a9f034$0$10778$
Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%
Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la
feuille,


dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes
la


plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:
Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour
dénombrer


les celluels ayant des valeurs uniques (la plage des cellules
concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15

















Avatar
jps
ben oui, flo, c'est excel le zouave et le con....comment peux-tu laisser
transpirer qu'il ait pu s'agir de quelqu'un dans la bouche de clément que
je n'embaucherai jamais comme viticulteur : il met trop d'eau dans son
vin...
jps

"Misange" a écrit dans le message de
news:
c'est qui le zouave ? c'est qui le con ?
J'imagine que tu penses à excel en disant ça mais c'est assez ambigu
comme formulation...
Par ailleurs, pourquoi voudrais tu que cette fonction soit dans le
perso.xls s'il ne l'y a pas mise ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:45:
Bonjour,

Le zouave doit être trop con pour aller voir lui-même dans Perso.xls,
Essaie avec:

=Perso.xls!NbValUniques(gammes0)

ou insère ta fonction en passant par le bouton "Insérer une fonction",
puis en choisissant dans les fonction personnalisées.


"C15" <Mé a écrit dans le message de
news:41a9f034$0$10778$

Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%

Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la



feuille,

dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes



la

plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:

Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour



dénombrer

les celluels ayant des valeurs uniques (la plage des cellules



concernées

s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15















Avatar
Misange
ben si c'est 99% d'eau et 1% de beaujolais alors peut être oserai-je le
gouter cette année ce machin framboisiné ! (jusque là j'y ai échappé et
je compte bien que ça continue...)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 17:17:
ben oui, flo, c'est excel le zouave et le con....comment peux-tu laisser
transpirer qu'il ait pu s'agir de quelqu'un dans la bouche de clément que
je n'embaucherai jamais comme viticulteur : il met trop d'eau dans son
vin...
jps

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

c'est qui le zouave ? c'est qui le con ?
J'imagine que tu penses à excel en disant ça mais c'est assez ambigu
comme formulation...
Par ailleurs, pourquoi voudrais tu que cette fonction soit dans le
perso.xls s'il ne l'y a pas mise ?

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:45:

Bonjour,

Le zouave doit être trop con pour aller voir lui-même dans Perso.xls,
Essaie avec:

=Perso.xls!NbValUniques(gammes0)

ou insère ta fonction en passant par le bouton "Insérer une fonction",
puis en choisissant dans les fonction personnalisées.


"C15" <Mé a écrit dans le message de
news:41a9f034$0$10778$


Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%


Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la



feuille,


dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes



la


plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:


Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour



dénombrer


les celluels ayant des valeurs uniques (la plage des cellules



concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15

















Avatar
C15
Rebonsoir petite Misange,

La fonction exacte sur le site s'écrit ainsi :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Comment la modifier pour l'appliquer à la plage gamme0 ?
Moi j'ai remplacé laPlage par gamme0

Rassures-toi j'ai appliqué rigoureusemeent ce que tu disais.
ALT+F11
puis copier/coller
puis dans une cellule =NbValUniques(xxx:yyy)
puis Enter

A+

C15

"Misange" a écrit dans le message de
news:
Tu n'as pas suivi ce que je t'ai dit... Je ne t'ai pas parlé de
(gammes0) si ? Ben non ! tu écris :
=nbvaeursuniques(
tu prends ton mulot
tu sélectionnes ta plage de valeurs
tu fermes la parenthèse
tu cliques sur enter et là ton résultat apparait comme par magie.

Reviens si t'as pas compris mais essaie d'abord de faire exactement
comme ça !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:35:
Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%

Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la feuille,
dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes la
plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:

Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour



dénombrer

les celluels ayant des valeurs uniques (la plage des cellules



concernées

s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15













Avatar
Misange
Si tu veux nommer ta plage fais le en l'appellant gamme0 mais ne modifie
surtout rien dans la fonction ! Et surtout pas le nom des paramètres
qu'elle attend
dans ta feuille tu fais nbvaleursuniques(gamme0)

for each cell in laplage... Si tu changes dans les paramètres de la
fonction laplage par truc, ça ne fonctionne plus du tout !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 17:59:
Rebonsoir petite Misange,

La fonction exacte sur le site s'écrit ainsi :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Comment la modifier pour l'appliquer à la plage gamme0 ?
Moi j'ai remplacé laPlage par gamme0

Rassures-toi j'ai appliqué rigoureusemeent ce que tu disais.
ALT+F11
puis copier/coller
puis dans une cellule =NbValUniques(xxx:yyy)
puis Enter

A+

C15

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

Tu n'as pas suivi ce que je t'ai dit... Je ne t'ai pas parlé de
(gammes0) si ? Ben non ! tu écris :
=nbvaeursuniques(
tu prends ton mulot
tu sélectionnes ta plage de valeurs
tu fermes la parenthèse
tu cliques sur enter et là ton résultat apparait comme par magie.

Reviens si t'as pas compris mais essaie d'abord de faire exactement
comme ça !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:35:

Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%


Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la feuille,
dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes la
plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:


Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour



dénombrer


les celluels ayant des valeurs uniques (la plage des cellules



concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15

















Avatar
Misange
petit complément:
une fonction doit pouvoir marcher avec plus d'une valeur !
prend la fonction basique ci dessous:

function surface(longueur,largeur)
surface=longueur*largeur
end function

depuis ta feuille tu vas l'appeller par =surface (3;2)
mais tu peux aussi nommer la cellule contenant la longueur L et celle
contenant la largeur l et appeller ta fonction par =surface(L,l)
Si tu devais chaque fois que tu changes le nom des cellules contenant
tes valeurs adapter ta fonction (genre function surface(L,l)
1) ce ne serait pas très pratique
2) ça restreindrait sérieusement son usage !


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 18:10:
Si tu veux nommer ta plage fais le en l'appellant gamme0 mais ne modifie
surtout rien dans la fonction ! Et surtout pas le nom des paramètres
qu'elle attend
dans ta feuille tu fais nbvaleursuniques(gamme0)

for each cell in laplage... Si tu changes dans les paramètres de la
fonction laplage par truc, ça ne fonctionne plus du tout !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 17:59:

Rebonsoir petite Misange,

La fonction exacte sur le site s'écrit ainsi :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Comment la modifier pour l'appliquer à la plage gamme0 ?
Moi j'ai remplacé laPlage par gamme0

Rassures-toi j'ai appliqué rigoureusemeent ce que tu disais.
ALT+F11
puis copier/coller
puis dans une cellule =NbValUniques(xxx:yyy)
puis Enter

A+

C15

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

Tu n'as pas suivi ce que je t'ai dit... Je ne t'ai pas parlé de
(gammes0) si ? Ben non ! tu écris :
=nbvaeursuniques(
tu prends ton mulot
tu sélectionnes ta plage de valeurs
tu fermes la parenthèse
tu cliques sur enter et là ton résultat apparait comme par magie.

Reviens si t'as pas compris mais essaie d'abord de faire exactement
comme ça !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:35:

Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%


Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la feuille,
dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes la
plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:


Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour




dénombrer


les celluels ayant des valeurs uniques (la plage des cellules




concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15



















Avatar
C15
Rebonsoir à tous (suite et fin)

Merci de votre aide.
J'ai trouvé la faille :
J'ouvrais un fichier existant, faisait Alt+F11 et collait le code.
Il ne se collait donc pas dans un module général (perso.xls)

J'ai donc ouvert Excel, fait Alt+F11 et tout le reste...
et cela marche !

18 posts pour en arriver là, j'ai honte ;-(((

Merci encore à tous ceux et celles qui se sont dépensés pour répondre à une
question sans fondement.
Au foot, j'aurai mérité au moins un carton jaune.

A+

C15


"Misange" a écrit dans le message de
news:%
petit complément:
une fonction doit pouvoir marcher avec plus d'une valeur !
prend la fonction basique ci dessous:

function surface(longueur,largeur)
surface=longueur*largeur
end function

depuis ta feuille tu vas l'appeller par =surface (3;2)
mais tu peux aussi nommer la cellule contenant la longueur L et celle
contenant la largeur l et appeller ta fonction par =surface(L,l)
Si tu devais chaque fois que tu changes le nom des cellules contenant
tes valeurs adapter ta fonction (genre function surface(L,l)
1) ce ne serait pas très pratique
2) ça restreindrait sérieusement son usage !


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 18:10:
Si tu veux nommer ta plage fais le en l'appellant gamme0 mais ne modifie
surtout rien dans la fonction ! Et surtout pas le nom des paramètres
qu'elle attend
dans ta feuille tu fais nbvaleursuniques(gamme0)

for each cell in laplage... Si tu changes dans les paramètres de la
fonction laplage par truc, ça ne fonctionne plus du tout !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 17:59:

Rebonsoir petite Misange,

La fonction exacte sur le site s'écrit ainsi :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Comment la modifier pour l'appliquer à la plage gamme0 ?
Moi j'ai remplacé laPlage par gamme0

Rassures-toi j'ai appliqué rigoureusemeent ce que tu disais.
ALT+F11
puis copier/coller
puis dans une cellule =NbValUniques(xxx:yyy)
puis Enter

A+

C15

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

Tu n'as pas suivi ce que je t'ai dit... Je ne t'ai pas parlé de
(gammes0) si ? Ben non ! tu écris :
=nbvaeursuniques(
tu prends ton mulot
tu sélectionnes ta plage de valeurs
tu fermes la parenthèse
tu cliques sur enter et là ton résultat apparait comme par magie.

Reviens si t'as pas compris mais essaie d'abord de faire exactement
comme ça !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:35:

Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%


Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la
feuille,






dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes la
plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:


Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour




dénombrer


les celluels ayant des valeurs uniques (la plage des cellules




concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15





















Avatar
jps
jaune, C15? rouge carmin, tu veux dire....et sais-tu pourquoi?
eh bien, je vais te le dire : tu as pu constater que mon conseil était bon,
donc tu aurais dû avoir au moins une ligne me remerciant spécialement et
nominativement bien sûr ; pour les autres, tu peux faire des remerciements
collégiaux ou mieux, ne rien dire du tout afin que l'exergue soit pour moi
seul...
jps

"C15" <Mé a écrit dans le message de
news:41aa12f5$0$10782$
Rebonsoir à tous (suite et fin)

Merci de votre aide.
J'ai trouvé la faille :
J'ouvrais un fichier existant, faisait Alt+F11 et collait le code.
Il ne se collait donc pas dans un module général (perso.xls)

J'ai donc ouvert Excel, fait Alt+F11 et tout le reste...
et cela marche !

18 posts pour en arriver là, j'ai honte ;-(((

Merci encore à tous ceux et celles qui se sont dépensés pour répondre à
une

question sans fondement.
Au foot, j'aurai mérité au moins un carton jaune.

A+

C15


"Misange" a écrit dans le message de
news:%
petit complément:
une fonction doit pouvoir marcher avec plus d'une valeur !
prend la fonction basique ci dessous:

function surface(longueur,largeur)
surface=longueur*largeur
end function

depuis ta feuille tu vas l'appeller par =surface (3;2)
mais tu peux aussi nommer la cellule contenant la longueur L et celle
contenant la largeur l et appeller ta fonction par =surface(L,l)
Si tu devais chaque fois que tu changes le nom des cellules contenant
tes valeurs adapter ta fonction (genre function surface(L,l)
1) ce ne serait pas très pratique
2) ça restreindrait sérieusement son usage !


Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 18:10:
Si tu veux nommer ta plage fais le en l'appellant gamme0 mais ne
modifie



surtout rien dans la fonction ! Et surtout pas le nom des paramètres
qu'elle attend
dans ta feuille tu fais nbvaleursuniques(gamme0)

for each cell in laplage... Si tu changes dans les paramètres de la
fonction laplage par truc, ça ne fonctionne plus du tout !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 17:59:

Rebonsoir petite Misange,

La fonction exacte sur le site s'écrit ainsi :

Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Comment la modifier pour l'appliquer à la plage gamme0 ?
Moi j'ai remplacé laPlage par gamme0

Rassures-toi j'ai appliqué rigoureusemeent ce que tu disais.
ALT+F11
puis copier/coller
puis dans une cellule =NbValUniques(xxx:yyy)
puis Enter

A+

C15

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

Tu n'as pas suivi ce que je t'ai dit... Je ne t'ai pas parlé de
(gammes0) si ? Ben non ! tu écris :
=nbvaeursuniques(
tu prends ton mulot
tu sélectionnes ta plage de valeurs
tu fermes la parenthèse
tu cliques sur enter et là ton résultat apparait comme par magie.

Reviens si t'as pas compris mais essaie d'abord de faire exactement
comme ça !

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 16:35:

Bonsoir misange,

C'est bieN ce que j'avais fait :
dans une cellule, j'ai mis =NbValUniques(gammes0)

et Monsieur Excel me répond #NOM?

Qu'est c" qui ne lui convient pas ?

Merci de ton aide

A+

c15

"Misange" a écrit dans le message de
news:%


Bonjour,
Tu ouvres l'éditeur VBA (alt+F11), tu insères un nouveau module
(standard) dans le classeur et tu copies la fonction. Dans la
feuille,






dans une cellule, tu écris=nbvalvaluniques( et là tu sélectionnes
la







plage à regarder. Tu fermes ta parenthèse et tu fais enter.
OK ?
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:40:


Bonjour à tous et toutes,

Sur Excelabo.net j'ai trouvé et adapté la fonction suivante pour




dénombrer


les celluels ayant des valeurs uniques (la plage des cellules




concernées


s'appelle gamme0 :

Function NbValUniques(gammes0 As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In gammes0
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function

Question bête : comment exécuter cette fonction ?

Merci de votre aide

A+

C15

























Avatar
Clément Marcotte
Bonjour,

c'est qui le zouave ? c'est qui le con ?


Rien à craindre, c'est Excel.

1 2 3