Discussion :

[docjo]

Bonjour

Je souhaite compter le nombre de fois où une personne apparait dans une plage d'un planning. Chaque feuille représente 1 semaine.
En fonction du nom de la cellule de la colonne A, je veux qu'il me recherche et me compte cette occurrence pour le placer à côté dans la colonne B

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim x, anest_decompte, feuille As Integer
 
For anest_decompte = 2 To 4
     For feuille = 5 To Sheets.Count
             x = Application.CountIf(Sheets(feuille).Range("C2:G5"), Sheets("Décompte").Range("A" & anest_decompte).Value)
 
     Sheets("Décompte").Range("B" & anest_decompte).Value = x
Next
Next
End Sub

Ce code fait planter excel. Je cherche depuis plusieurs heures mais ne trouve pas la source de mon erreur.

Merci par avance pour votre aide

[mercatog]

à mettre dans l'évènement Change de la Feuille "Décompte"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet
Dim Compt As Integer
If Target.Column = 1 And Target.Count = 1 Then
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> ActiveSheet.Name Then Compt = Compt + Application.CountIf(Sh.Range("A1:X100"), Target.Value) 'Adapte à la plage du planning où sera fait le comptage
    Next Sh
    Application.EnableEvents = False
    Target.Offset(0, 1) = Compt
    Application.EnableEvents = True
End If
End Sub

[docjo]

Respect ! J'essaye de comprendre ce code mais j'y arrive difficilement.
Je l'ai adapté à ma situation mais je ne crois pas que ce soit ce que je veux car il ne se passe rien quand je change le planning.
J'ai du mal m'expliquer:

j'ai 4 feuilles initiales qui me servent à faire des listes, des stat, etc... et sur la 3ième que j'ai appelé "décompte" je souhaite compter le nombre de fois où une personne apparait dans une plage d'un planning. Chaque feuille à partir de la 5ième représente 1 semaine.
Dans la premiere colonne de la feuille "décompte" j'ai la liste des personne qui peuvent apparaitre. En fonction du nom de la cellule de la colonne A, je veux qu'il me recherche et me compte cette occurrence dans toutes les feuilles le nombre de fois où ils apparaissent (toujours dans la même plage de cellules) pour le placer à côté dans la colonne B. Cela revient à faire un TCD sur plusieurs pages (j'ai déjà vu cela) mais c'est plus "souple" avec le code.

Merci encore de prendre du temps pour m'aider.

[docjo]

aprés avoir longuement analysé ce code, je ne vois pas où on spécifie dans quelle feuille doit s'afficher les résultats. Par ailleurs le code est placé dans worksheet ?

[AlainTech]

C'est là que ça se passe:

Code :

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

    Target.Offset(0, 1) = Compt

En fin de boucle on écrit la valeur de la variable compt dans la cellule juste à droite de la cellule modifiée.

[docjo]

Comme pour un autre de mes post, cela ne fonctionne pas parce que le changement est déclenché par des listes de validation. Et en fait, cela ne déclenche pas le code (il parait que c'est un bug connu). J'ai essayé par un tableau croisé dynamique car mes data sont placées de façon identiques sur chaque feuille. Mais comme les noms des feuilles changent, il faut que je trouve le bon code. J'ai fais une proposition dans un autre post (http://www.developpez.net/forums/d98...que-dynamique/)