nuage de mots à partir de texte

nuage de mots à partir de texte - VB/VBA/VBS - Programmation

Marsh Posté le 17-02-2014 à 09:37:29    

Salut à tous  ;)  
 
Le contexte, c'est que j'ai plusieurs évaluation effectuées par des notants : je dispose donc d'une note, et de deux champs, points positifs et points négatifs écrits chacun dans une cellule. J'aurais voulu faire ce qui suit sous Excel, est-ce possible ?
 
J'aimerais tout d'abord connaître les statistiques de ces champs (points positifs et négatifs) par mot : exemple = "machin" apparaît tant de fois, "truc" apparait tant de fois...
Ensuite je veux en faire un nuage de mots, avec la taille de police qui diffère selon la fréquence. Un qui sera vert pour les points positifs, et rouge pour les négatifs.
 
Merci
Cindy

Reply

Marsh Posté le 17-02-2014 à 09:37:29   

Reply

Marsh Posté le 18-02-2014 à 11:14:04    

Bonjour,
 
Pour les statistiques tu peux utiliser la classe de collection  "Dictionary".
 
Code à glisser par exemple dans:  
 

Code :
  1. Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  3. 'Désactivation du menu contextuel'
  4. Cancel = True
  6. 'Stockage de la plage de cellules'
  7. Targets = Sh.UsedRange.Address
  9. 'Appel de procédure'
  10. Call listing(Target, Targets)
  12. End Sub


Code à gilsser dans un module:
 

Code :
  1. Public Sub listing(Target As Range, ByVal Targets As String)
  3. 'Création du dictionnaire'
  4. Set dict = CreateObject("Scripting.dictionary" )
  6. 'Itération sur la collection range et stockage dans le dictionnaire'
  7. For Each Target In Range(Targets)
  8.     If Not IsEmpty(Target) Then
  9.         If Not dict.Exists(Target.Value) Then
  10.             'Création de la clé et stockage de l'Item'
  11.             dict.Add Target.Value, 1
  12.         Else
  13.             'Incrémentation de l'Item'
  14.             dict.Item(Target.Value) = dict.Item(Target.Value) + 1
  15.         End If
  16.     End If
  17. Next
  19. 'Déclaration des variables'
  20. iKey = dict.keys
  21. iItem = dict.items
  23. 'Itération sur la collection du dictionnaire'
  24. For i = 0 To dict.Count - 1
  25.    result = result & "Key= " & iKey(i) & ", Item= " & iItem(i) & vbLf
  26. Next
  28. 'Affichage du résultat'
  29. MsgBox result
  31. End Sub


Pour la deuxième étape, je n'ai pas compris!


Message édité par mmarle le 19-02-2014 à 10:29:08
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed