Probleme bilan d'un tableau

[robbie]

Bonjour à toutes et à tous,

Après plusieurs tentatives, je suis dans un flou artistique sans nom...
Je cherche à créer une macro qui ferait automatiquement un bilan en fonction du mois voulu...je m'explique :

Dans un tableau à plusieurs colonnes (critères définis) et à plusieurs lignes (données que remplissent les personnes), je cherche à faire un calcul automatique :

Date / Pays / note d'évaluation (0 ou 1 ou 2)

01/06/2008 / France (Paris) / 2
16/06/2008 / Espagne / 2
22/06/2008 / Pologne / 1
01/07/2008 / France (Strasbourg) / 0


Je cherche à faire en fonction du mois voulu, par exemple pour le mois de juin 2008, appliquer une formule du style le nombre de 2 sur le nombre total de note. Ici : 2 (2notes à 2) divisé par 4 (0+1+2+2)


Pour etre honnete, je ne men sors pas....

Merci d'avance à tous ceux qui voudront bien se pencher sur mon gros pbl...🙂

 

[suistrop]

Re : Probleme bilan d'un tableau

hello,

Je pense que pas mal de monde veut bien se pencher sur ton probleme mais avec un fichier c est quand meme beaucoup plus simple de te répondre !

 

[robbie]

Re : Probleme bilan d'un tableau

Oui tu as raison...Le pbl c que auj, je n'ai pas le fichier, je ne l'ai pas à dispo...
tu peux considerer que l'exemple correspondrait bien à ce quoi je cherche

Merci d'avance

 

[suistrop]

Re : Probleme bilan d'un tableau

Sub stan()
mois = 6
For i = 2 To Range("A65536").End(xlUp).Row
toto = Cells(i, 1)
    If Month(Cells(i, 1)) = mois Then
        cpt = cpt + 1
            If Cells(i, 3) = 2 Then
                nb_2 = nb_2 + 1
            End If
    End If
Next i
Cells(7, 5) = "Pour le mois " & mois & " il y a " & nb_2 & " pays noté 2 pour " & cpt & " notes"
End Sub

 

[robbie]

Re : Probleme bilan d'un tableau

Merci Suistrop pour aide

J'ai trouvé hier une solution alternative en attendant mais ta macro va bien me servir pour la suite afin de faire évoluer le fichier.

Merci encore

A+