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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Arthur.clb

XLDnaute Nouveau
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.

VB:
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
 

Pièces jointes

Bonjour,

Cells tout seul renvoie toutes les cellules de la feuille.
Enlevez le Cells.value pour ne laisser que le 24:
VB:
 WorksheetFunction.CountIf(Sheets("Retard_transporteur") _
            .Range("B2:B350"),24)

Qui comptera le nombre de cellule = 24

Bon après-midi
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
235
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour