Bonjour le forum,
je viens une fois de plus pour trouver de l'aide. En effet j'ai une feuille excel avec 4 séries de questions, 3 groupes différents qui y répondent et une pondération pour chaque question.
Regarde la pièce jointe VBA Test Partie 3.xls
Je vais vous donner un exemple car c'est pas évident à expliquer.
Pour la case 17:4 pour le groupe A correspondant au questionnaire 1.
A la colonne 5 il y a le groupe A Question 1 et pondération 1.
Donc le Groupe A est concerné par la question 1 du Questionnaire 1.
Donc il faut faire un compteur qui fasse compteur = compteur + pondération de la question * 1.
Et continuer sur toute la ligne:
Pour non je pense qu'il faut faire une pondération * -1, pour NA on mettra 0.
J'aimerai faire ça pour les 3 groupes bien sûr.
J'ai fait pour le moment:
Sub Macro1()
Dim cmp As Integer
Dim tabA(1, 3, 4, 7, 10)
Dim tabB(2, 5)
Dim tabC(6, 8, 9)
Set Plage1 = Range("E4:N4")
Set Plage2 = Range("E6:N6")
Set Plage3 = Range("E8:N8")
For Each Item In Plage1
If Item.Value = "Na" Then Next Item
End If
If Item.Value = "Non" Then
cmp = cmp + (-1 * Offset(0, -1).Value)
Next Item
End If
If Item.Value = "Oui" Then
cmp = cmp + 1 * Offset(0, -1).Value
Next Item
End If
End Sub
Merci de m'aider
je viens une fois de plus pour trouver de l'aide. En effet j'ai une feuille excel avec 4 séries de questions, 3 groupes différents qui y répondent et une pondération pour chaque question.
Regarde la pièce jointe VBA Test Partie 3.xls
Je vais vous donner un exemple car c'est pas évident à expliquer.
Pour la case 17:4 pour le groupe A correspondant au questionnaire 1.
A la colonne 5 il y a le groupe A Question 1 et pondération 1.
Donc le Groupe A est concerné par la question 1 du Questionnaire 1.
Donc il faut faire un compteur qui fasse compteur = compteur + pondération de la question * 1.
Et continuer sur toute la ligne:
Pour non je pense qu'il faut faire une pondération * -1, pour NA on mettra 0.
J'aimerai faire ça pour les 3 groupes bien sûr.
J'ai fait pour le moment:
Sub Macro1()
Dim cmp As Integer
Dim tabA(1, 3, 4, 7, 10)
Dim tabB(2, 5)
Dim tabC(6, 8, 9)
Set Plage1 = Range("E4:N4")
Set Plage2 = Range("E6:N6")
Set Plage3 = Range("E8:N8")
For Each Item In Plage1
If Item.Value = "Na" Then Next Item
End If
If Item.Value = "Non" Then
cmp = cmp + (-1 * Offset(0, -1).Value)
Next Item
End If
If Item.Value = "Oui" Then
cmp = cmp + 1 * Offset(0, -1).Value
Next Item
End If
End Sub
Merci de m'aider