Calculer le nombre de boites pour chaque journée

  • Initiateur de la discussion Initiateur de la discussion othal
  • Date de début Date de début

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 !

othal

XLDnaute Nouveau
Bonsoir,

J'ai un fichier contenant trois colonnes, la 1ère contien les dates, la 2ème les numéro de boites et la 3ème les numéros de dossiers.
je sauhaite Calculer le nombre de boites pour chaque journée

Exp:
pour le 10/01/2010 les boites sont numérotés de 15 à 19 j'aimerais que le resultat sera 05 c 'est à dire ( 15 à 19)

pour le 11/01/2010 les boites sont numérotés de 20 à 22 j'aimerais que le resultat sera 03 .. etc
ci-joint un fichier exemple

Merci d'avance de votre aide
 

Pièces jointes

Re : Calculer le nombre de boites pour chaque journée

Bonjour othal
Bonjour Hasco

Une solution par macro
A tester

Code:
Sub travdem()
Dim cellule As Range
Dim nomfeuille1 As String
Dim date1 As Date
Dim data1 As String
Dim i As Long
Dim adresse1 As String
Dim nb As Long
' pour boucler sur la colonne 1

nomfeuille1 = "Feuil1"

With Sheets(ActiveSheet.Name)
For Each cellule In .Range("a4:a" & .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1)
    If date1 = cellule.Value Then
        Select Case CStr(cellule.Offset(0, 1))
        
            Case data1
            
            Case Else
                nb = nb + 1
                data1 = cellule.Offset(0, 1)
        End Select
    Else
        date1 = cellule.Value
        If adresse1 <> "" Then .Range(adresse1) = nb
        adresse1 = cellule.Offset(0, 3).Address
        data1 = cellule.Offset(0, 1)
        nb = 1
    End If
Next cellule
End With
End Sub

JP
 
- 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

Retour