Déterminer le nombre d'élément dans une cellule

[J-Charles]

Bonjour à tous,

Aujourd'hui, je fais encore appel à vous tous pour un petit problème. Dans un tableau assez simple, j'ai une colonne dans laquelle je rentre des références (nombre au format texte). J'ai créé une macro qui me permet de compter ces références au fure et à mesure de leur saisie et pour ça, j'utilise la fonction =SOUS.TOTAL(3;plage).
Tout fonctionne, sauf qu'il m'arrive de rentrer dans certaines cellules plusieurs références (séparées par un espace), mais dans ce cas elles ne sont totalisées que comme une seule.
Existe t'il une possibilité de compter le nombre total de référence dans une colonne en tenant compte qu'il peut y en avoir plusieurs par cellules.
J'utilise Windows XP et Excel 2002.
Je vous remercie d'avance pour votre aide et pour le temps passé à aider des néophytes comme moi.

 

[job75]

Re : Déterminer le nombre d'élément dans une cellule

Bonjour,

Puisque vos références sont des nombres, voici une fonction "Compte" en VBA qui supprime les chiffres de l'argument texte et compte les espaces qui restent :

Function Compte(texte)
texte = Application.Trim(texte) 'supprime les espaces superflus
For i = 0 To 9
texte = Replace(texte, i, "")
Next
Compte = Len(texte) + 1
End Function

Le code est à copier dans un module. Vous pouvez utiliser la fonction soit dans la feuille de calcul, soit dans une macro.

A+

Edit 1 : salut Tibo

Edit 2 : hum hum, suis mauvais ce matin, il y a bien sûr plus simple pour compter les espaces :

Function Compte(texte)
texte = Application.Trim(texte) 'supprime les espaces superflus
Compte = Len(texte) - Len(Replace(texte, " ", "")) - (texte <> "")
End Function

 

[Tibo]

Re : Déterminer le nombre d'élément dans une cellule

Bonjour,

Un essai avec ce que j'ai compris :

=SOMMEPROD((NBCAR(A1:A10&" ")-NBCAR(SUBSTITUE(A1:A10;" ";"")))*(A1:A10<>""))

Plage de cellules à adapter


Si pas ça, reviens avec plus de précisions

@+

Edit : Bing ! Salut Job

@+

 

[J-Charles]

Re : Déterminer le nombre d'élément dans une cellule

Grand merci à JOB75 et Tibo pour la vélocité de leur réponse.
J'ai retenu la formule de TIBO car c'est justement une formule et qu'elle remplacera la mienne.
Sans vouloir abuser de votre temps, j'ai un autre petit souci. En effet grace à la formule de Tibo, je peux déterminer le nombre de références dans une même cellule à la seule condition qu'elles soient séparées par un seul espace. Les personnes qui travaillent sur mon fichier saisissent ces références à l'aide d'un userform, dans lequel un message leur explique de laisser un seul espace entre chaque référence mais il y en a toujours un qui ne fait pas ce qu'on lui demande et qui en met 2 ou 3 ... Je sais qu'il est possible de limiter le nombre de caractères à saisir dans un userform, mais je ne vois pas comment imposer un seul espace entre 2 références lors de leur saise dans le formulaire.
Quelqu'un a-t-il une idée ou peut-être n'est-ce pas envisageable?
Merci à tous

 

[Tibo]

Re : Déterminer le nombre d'élément dans une cellule

re,

à essayer, pour gérer les multi espaces :

=SOMMEPROD((NBCAR(SUPPRESPACE(A1:A10)&" ")-NBCAR(SUBSTITUE(A1:A10;" ";"")))
*(A1:A10<>""))

Pas testé, donc pas garanti

@+

 

[J-Charles]

Re : Déterminer le nombre d'élément dans une cellule

Re-salut TIBO,

J'ai testé et je te garantie que ta formule fonctionne avec plusieurs espaces entre chaque référence.
Un grand merci