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

2 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
C15
Bonsoir,

Dans un édifice, il y a une pierre importante qu'on appelle clé de voute,
certes capitale, mais qui n'a aucune raison d'être si elle est toute
seule...

Merci encore à TOUS.

A+

C15


"jps" a écrit dans le message de
news:
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
jps
:-))))))
en effet....
jps (envoûté mais pas voûté)

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

Dans un édifice, il y a une pierre importante qu'on appelle clé de voute,
certes capitale, mais qui n'a aucune raison d'être si elle est toute
seule...

Merci encore à TOUS.

A+

C15


"jps" a écrit dans le message de
news:
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
































1 2 3