Discussion :

[Morrgaane]

Bonjour, je vous présente un peu mon jeu de données
j'ai 25 variables avec les 5 modalités (tres satisfaisante -- satisfaisant -- moyennement -- Pas du tout -- NR )
A l'aide d'une macro, j'aimerais savoir si vous saviez comment compter ce nombre de modalités pour chacune des variables (sachant que c'est une variable sur deux qui a ces modalités)
et de mettre le résultat sur une autre feuille excel ?

Résultats que j'aimerais avoir par exemple :
Variable 1 : tres satisfaisante =22
satisfaisant=12
moyennement=14
Pas du tout= 17
NR= 8

Variable 3 : tres satisfaisante =12
satisfaisant=22
moyennement=14
Pas du tout= 8
NR= 17

[joe.levrai]

Bonjour,

la méthode, car il y en a plusieurs, dépend de ton projet et du contexte d'utilisation.
Tu peux par exemple créer un tableau de 5 éléments (qui représentent tes variable1 à 5), chaque élément étant un tableau contenant lui-même 5 éléments (qui représentent les 5 évaluations possibles)

un exemple volontairement rallongé avec des variables pour bien comprendre

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
Option Base 1
 
Sub toto()
Dim TabloGlobal()
 
' facultatif, c'est pour un exemple détaillé
Dim Tablo1(5), Tablo2(5), Tablo3(5), Tablo4(5), Tablo5(5)
 
' pour remplir avec des nombres arbitraires
For i = 1 To 5
    Tablo1(i) = i
    Tablo2(i) = i * 10
    Tablo3(i) = i * 100
    Tablo4(i) = i * 1000
    Tablo5(i) = i * 10000
Next i
 
TabloGlobal = Array(Tablo1, Tablo2, Tablo3, Tablo4, Tablo5)
MsgBox TabloGlobal(1)(2) ' la deuxième note de ta variable 1
 
End Sub

on peut très bien également utiliser un tableau 2D où les colonnes sont tes 5 variables et les lignes tes 5 appréciations (ou l'inverse est possible !) :

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
Option Base 1
 
Sub toto2D()
Dim TabloGlobal(5, 5)
 
' pour remplir avec des nombres arbitraires
For i = 1 To 5 'boucle sur les variables
    For j = 1 To 5 'boucle sur les appréciations
        TabloGlobal(j, i) = i * j
    Next j
Next i
 
MsgBox TabloGlobal(2, 1) ' la deuxième appréciation de ta variable 1
 
End Sub

maintenant, on ne connait pas le contexte, comment sont récupérés les éléments, les notes, et ce que tu veux en faire ensuite.
donc difficile de proposer quelque chose qui s'approche de ton besoin réel, et difficile de savoir si les tableaux emboités c'est ce qu'il te faut