Discussion :

[Seikyo67]

Bonjour,
Je rencontre actuellement quelques problèmes avec Excel et j'aurai voulu savoir si certains avaient rencontré ces mêmes problèmes par le passé. Je n'ai rien trouvé sur le forum en tout cas qui permettait de répondre à ma question

J'ai effectué un sondage en ligne et les réponses me sont revenues sous forme de tableur. Je souhaite maintenant compter le nombre de personnes ayant donné les mêmes réponses (questions a choix multiple donc un choix de réponses fini). Lorsqu'il n'y a qu'une réponse par cellule, je n'ai pas de problème, mais il arrive que des personnes aient donné plusieurs réponses à la même question. sur le tableur, cela apparaît comme une suite de réponses séparées par une virgule. Or, la méthode de comptage que j'ai utilisé ne permet pas de reconnaître une partie de cellule mais une cellule entière.
Je me demandais donc si quelqu'un savait comment remédier à ce problème

Merci d'avance
Cordialement
Seikyo67

[(WOLF)]

Bonjour, peut-être compter un mot ou une suite de mots étant unique à chacune des réponses possibles

[Seikyo67]

Bonjour, peut-être compter un mot ou une suite de mots étant unique à chacune des réponses possibles

Bonjour, et merci pour la réponse
Oui c'est exactement ce que je souhaite faire, mais mon problème réside plutôt dans la commande EXCEL à appeler. Jusqu'ici, je n'arrive qu'a compter la cellule entière, mais pas un mot parmi d'autres dans une cellule

[(WOLF)]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(A1:A8;"*faire*")

Va compter le nombre de cellule contenant "faire" dans une suite de mot

[Igloobel]

Bonjour, et merci pour la réponse
Oui c'est exactement ce que je souhaite faire, mais mon problème réside plutôt dans la commande EXCEL à appeler. Jusqu'ici, je n'arrive qu'a compter la cellule entière, mais pas un mot parmi d'autres dans une cellule

J'ai cherché vainement une fonction qui cherche un mot et j'ai seulement vu la fonction TROUVE qui renvoi la première position du premier mot et c'est tout !
par contre rien pour compter le nombre de mot ou un séparateur Etc ... donc voici une petite macro que tu adapteras qui compte les espaces donc les mots

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub NB_Mots()
    Dim Cpt_Mots As Long
    Dim Posit As Long
 
    Cpt_Mots = 0
 
    Cells(1, 1).Value = "Voici mon test de comptage de mots" ' 7 mots
 
    If Len(Trim(Cells(1, 1).Value)) <> 0 Then
        Posit = 1
        Cpt_Mots = 1
        Do
            If Mid(Trim(Cells(1, 1).Value), Posit, 1) = " " Then
                Cpt_Mots = Cpt_Mots + 1
                If Mid(Trim(Cells(1, 1).Value), Posit + 1, 1) = " " Then
                    Cpt_Mots = Cpt_Mots - 1
                End If
            End If
        Loop While Posit < Len(Trim(Cells(1, 1).Value))
    End If
End Sub

tu dis

A+

[Marc-L]

Bonjour, bonjour !

Il y a bien plus simple pour compter le nombre de mots d'un texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Demo1()
    Const TXT = "Voici mon test de comptage de mots"
 
    MsgBox UBound(Split(TXT)) + 1
End Sub

Je me demande même si ce n'est pas déjà dans la FAQ ou un tutoriel !


Mais cela peut être piégeux avec plusieurs espaces consécutifs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Demo2()
    Const T = "Voici   mon   test   de   comptage   de   mots"
 
    MsgBox UBound(Split(T)) + 1 & vbLf & vbLf & UBound(Split(Application.Trim(T))) + 1
End Sub

__________________________________________________________________________________________________
Tous unis, tous Charlie

[casefayere]

J'ajouterai, vu cette remarque

cela apparaît comme une suite de réponses séparées par une virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Const TXT = "Voici,mon,test,de,comptage,de,mots"
MsgBox UBound(Split(TXT,",")) + 1

[Marc-L]

[Igloobel]

Bonour à tous

C'est vrai Marc-L et casefayere vous avez raison mais je ne connais pas "Split"

[casefayere]

Bonjour Igloobel

je ne connais pas "Split"

Pris dans l'aide

Description

Renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes.

Syntaxe

Split(expression[, delimiter[, limit[, compare]]])

essayes cette procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub lesplit()
Dim x As Integer
Dim txt As String
txt = "Voici,mon,test,de,comptage,de,mots"
For x = 0 To UBound(Split(txt, ","))
  MsgBox Split(txt, ",")(x)
Next
End Sub

[Seikyo67]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(A1:A8;"*faire*")

Va compter le nombre de cellule contenant "faire" dans une suite de mot

Merci à tous pour vos réponses. J'ai utilisé celle la car c'était la plus rapide a faire pour la personne qui m'avait posé la question