Discussion :

[Romain_dbs]

Bonjour à tous,

Je fais appel à vous car je bloque depuis quelques jours sur une requête. Je voudrais calculés le nombre de jours qu'un achat a été réalisé consécutivement. Pour cela, j'ai recodé la variable Achat en 0/1. ce que je souhaiterais c'est faire la somme de tous les 1 tant qu'il n'y a pas de 0 apparaissant. Je voudrais grouper cela par acteur. Je ne sais pas si cela a été clair ou pas. Ainsi, je vous propose un fichier Excel avec mon fichier de base et les résultats souhaités pour que vous puissiez mieux comprendre.
exemple.xlsx

Merci d'avance pour votre retour.
Cordialement.

[Menhir]

Une solution simple est de créer une nouvelle colonne comptant incrémentant un compteur tant que la colonne Achat est à 1 et revenant à 0 sinon.
Par exemple, si "Achat" est en colonne A et commence à la ligne 1, mettre en B2 =SI(A2=1;B1+1;0) et copier B2 dans les lignes du dessous.
Il suffit ensuite d'une fonction MAX() pour connaitre la taille de la suite la plus longue.

[Romain_dbs]

Bonjour,

merci pour votre retour. Mais comment puis-je faire pour que cela se groupe par acteur ? Et pour afficher la date dans les tableaux de mes résultats souhaités ?

[Menhir]

Il suffit de faire une colonne par acteur et de rajouter une condition dans la colonne du SI.

[Romain_dbs]

Je suis désolée, je ne vois pas très bien ce que vous voulez dire. Pourriez-vous me fournir un exemple de formule via un fichier Excel si cela ne vous dérange pas ?

[BENNASR]

Bonjour
j'ai lu sur le net que des nouvelles fonctions telle que MIN.SI.ENS et MAX.SI.ENS disponible avec Excel 2016 / Office 365 je crois que ces fonctions réponds en partie à tes besoins..
Pour ton cas j'ai essayer de bricolé un code
à tester avec prudence sur une copie de ton fichier...je suis qu'un autodidacte qui supporte aucune responsabilité en cas de perte des données
code plein de bricolage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub test()
Application.ScreenUpdating = False
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Feuil2")
Set F2 = Sheets("RESULTAT")
  F2.Cells.ClearContents
Dim unique As New Collection
Dim i As Integer
On Error Resume Next
For Each cel In F1.Range("A2:A" & [A65000].End(xlUp).Row)
If F1.Cells(cel.Row, 2) <> 0 Then
    unique.Add cel.Value, CStr(cel.Value)
    End If
Next cel
 F2.Cells(1, 1).Resize(1, 4) = Array("Acteur", "periode Debut", "Periode Fin", "Nombre de validation")
ligne = 2
On Error GoTo 0
For i = 1 To unique.Count
F2.Cells(ligne, 1) = unique(i)
ligne = ligne + 1
Next i
 
Dim derlig As Long
Dim lngNumLigne As Long
derlig = F2.Cells(Rows.Count, 1).End(xlUp).Row
For L = 2 To derlig
F2.Cells(L, 4) = WorksheetFunction.CountIfs(F1.Columns("A"), F2.Cells(L, 1), F1.Columns("C"), 1)
Next L
For J = 2 To derlig
F1.Range("A1:C" & derlig).AutoFilter Field:=1, Criteria1:=F2.Cells(J, 1)
 Dim Lig As Long
Lig = F1.Range("A2:A" & derlig).SpecialCells(xlCellTypeVisible).Row
F2.Cells(J, 2) = F1.Cells(Lig, 2)
For Each cell In F1.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
    lngNumLigne = cell.Row
Next cell
F2.Cells(J, 3) = F1.Cells(lngNumLigne, 2)
F1.ShowAllData
Next J
Application.ScreenUpdating = True
End Sub