XL 2016 Transfère de données d'une feuille à une autres avec condition

[Arthur.clb]

Bonjour le forum,
Je suis face à un petit problème, je vais essayer d'être clair dans mes explications. J'ai à réaliser un tableau qui compte les litiges en fonction de chaque mois et de chaque transporteur. Pour ce faire j'ai à ma disposition un classeur avec 2 feuille, mon but est donc de faire une fonction qui compte par mois; le nombre de case en colonne B qui comporte un numéro spécifique (code transporteur). Une fois le comptage fait je voudrai, en fonction du transporteur, qu'il me reporte le résultat du comptage dans la colonne du transporteur et dans la ligne du mois. Je vous joins mon fichier et ma macro (elle est écrite pour le premier transporteur),
J'espère avoir été claire et vous remercie d'avance.

Sub MAJ_valeur()
Dim mois As Integer
Dim mois_litige As Integer

For i = 5 To 16
    For n = 2 To 350
    With Sheets("Retard_litige")
        mois = Month(.Cells(i, 1))
        mois_litige = Month(Sheets("Retard_transporteur").Cells(n, 1))
        If mois = mois_litige Then
            Cells(i + mois - 1, 3) = WorksheetFunction.CountIf(Sheets("Retard_transporteur") _
            .Range("B2:B350"), cell.Value = 24)
        End If
    End With
    Next n
Next i
End Sub

 

[Arthur.clb]

Bonjour, c'était une erreur bête, j'avais juste oublié le s pour cells.value. Cependant lorsque je veux exécuter le programme, un message d'erreur s'affiche en me disant "mémoire insuffisante"

 

[Hasco]

Bonjour,

Cells tout seul renvoie toutes les cellules de la feuille.
Enlevez le Cells.value pour ne laisser que le 24:

 WorksheetFunction.CountIf(Sheets("Retard_transporteur") _
            .Range("B2:B350"),24)

Qui comptera le nombre de cellule = 24

Bon après-midi

 

[pierrejean]

Bonjour Arthur

Un essai