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
Joël GARBE
Bonjour,

Assitant Fonction > Catégorie Personnalisée...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"C15" <Mé a écrit dans le message de news:
41a9e357$0$10781$
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
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
?? :-)
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 28/11/2004 15:49:
Bonjour,

Assitant Fonction > Catégorie Personnalisée...



Avatar
C15
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,

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
Daniel.M
Bonjour C15,

Le nom gammes0 n'est pas défini (sur ta feuille).

Pour le plaisir, essaie avec A2:A100 ' ou tout autre plage valide

=NbValUniques(A2:A100)

Salutations,

Daniel M.

"C15" <Mé wrote in message
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
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
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
C15
Bonsoir Daniel,

Tout faux, j'avais bien défini ma plage gamme0 dans ma feuille ;-)

A+

C15
"Daniel.M" a écrit dans le message de
news:
Bonjour C15,

Le nom gammes0 n'est pas défini (sur ta feuille).

Pour le plaisir, essaie avec A2:A100 ' ou tout autre plage valide

=NbValUniques(A2:A100)

Salutations,

Daniel M.

"C15" <Mé wrote in message
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
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













1 2 3