Discussion :

[borocam]

Bonjour,

Tout est dans le titre...je cherche le code VBA pour compter le nombre de valeurs identiques dans un tableau word !

Merci pour l'aide

[Sepia]

Salut borocam,

C'est possible de base il suffit de récupérer le contenu de chaque cellule avec une énumération sur la table

Code :

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

1
2
3
4
 
    For Each aCell In ActiveDocument.Tables(1).Rows(1).Cells
        msgBox ActiveDocument.Range(Start:=aCell.Range.Start, End:=aCell.Range.End - 1).Text
    Next aCell

Après il suffit de stocker la valeur de chaque cellule pour comparer mais le problème est de savoir ce que tu veux faire du résultat ==> remplacer la cellule en doublon avec la valeur du nombre d'occurrences, la valeur de la cellule ayant le doublons, mettre le résultat dans un autre tableau qui affiche le nombre d'occurrences de chaque valeur dans une liste ou dans chaque cellule du tableau copie du tableau initial ?

Précise un peu ce que tu veux sur un exemple pour que l'on puisse t'aider de façon plus précise.

@+

[Heureux-oli]

Salut,

Peut-être une piste là : http://www.developpez.net/forums/d53...mots-document/

[borocam]

Merci pour les réponses,

En fait j'aimerais compter dans ma table word le nombre de valeur "A", de valeur "B" et de valeur "C".

Et j'aimerais reporter les résultats dans le même document word mais dans le corps de mon texte (au travers de bookmarks ou autres)

[Sepia]

Salut Borocam,

Il suffit de définir un tableau à 2 dimensions dans le code de la macro pour stocker la valeur de chaque cellule et le nombre d'occurrences de cette valeur.
Puis tu commences par parcourir ton tableau dans Word, si ta valeur n'est pas présente, tu l'ajoutes des valeurs de ton tableau avec le nombre 1 (=1ere occurrence), sinon tu incrémentes le nombre d'occurrences

Une fois ton parcours terminé, tu te positionnes sur ton signet, tu sors le résultat en effectuant à nouveau un parcours de ton tableau et dans lequel pour chaque ligne, tu écris "Valeur = " (la valeur du tableau Word initial) et "Nb d'occurrences = " (le nombre d'occurrences trouvées), suivi d'un retour chariot .

Code :

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

1
2
3
4
    Selection.GoTo What:=wdGoToBookmark, Name:=<monSignet>
    For aI = LBound(maTableResultat, 1) To UBound(maTableResultat, 1)
        Selection.TypeText "Valeur = " + maTableResultat(aI, 1) + " *** Nb = " + Trim(Str$(maTableResultat(aI, 2))): Selection.TypeParagraph
    Next

@+