XL 2016 [Résolu] Sommation de nombre de jours sous conditions

[kingfadhel]

Bonjour, les XLdnautes,
Je voudrais faire la somme du nombre de jours sous conditions
1- Le même matricule, un ou plusieurs (CODE, DATE DEBUT, DATE FIN)
2- Suppression des lignes inutiles.

Plus de détails dans la pièce jointe.

 

[job75]

Bonjour kingfadhel,

Il suffit de faire le tri manuellement comme indiqué :

1- Tri par "MATRICULE" puis "CODE" puis "DEBUT"

Formule en G2 pour la colonne "Cumul" du tableau :

=SI(C2<>"SUITE AT";F2;F2+G1)

Edit : ou mieux :

=F2+N(G1)*(B2=55)

Enfin créer une MFC en colonne G pour n'afficher que le dernier cumul.

Fichier joint.

PS : les dates des lignes 14 et 15 sont incorrectes, il faut les intervertir.

A+

 

[JHA]

Bonjour à tous,

Un début de réponse par formules. Il y a 2 colonnes masquées dans le tableau.

JHA

 

[job75]

Re,

Pour pouvoir traiter les résultats ajouter la colonne H avec cette formule en H2 :

=SI(B3=55;"";G2)

la colonne G étant maintenant une colonne auxiliaire.

Fichier (2).

A+

 

[kingfadhel]

Bonsoir à tous,
Je vous remercie @job75 & @JHA
Je suis de l'opinion de @JHA , mais une petite chose, ma base comprend plus de 2500 enregistrements, y' a t'il une macro qui peut résoudre l'affaire???
Merci encore une fois pour le temps consacré.

 

[kingfadhel]

Re,
Une solution avec macros, qui peut mieux l'améliorer???

 

[kingfadhel]

Re,
une petite rectification du code pour éviter un bug

Sub Date_fin()
For i = [a2].End(xlDown).Row To 2 Step -1
    x = i
    lig = Cells(i, 2).End(xlUp).Row
    Cells(lig, 5) = Cells(x, 5)
    i = lig
Next
End Sub
Sub vide()
For i = [a2].End(xlDown).Row To 2 Step -1
If Cells(i, 2) = "" Then
Rows(i).Delete Shift:=xlUp
End If
Next
End Sub

 

[kingfadhel]

Re,
Le fichier complet

 

[Staple1600]

Bonsoir le fil, le forum

@kingfadhel
Est-ce que le résultat est le même avec cette macro qu'avec la tienne?

Sub videII()
Columns("B:B").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[kingfadhel]

Re,
@Staple1600 , toujours efficace avec le moindre code, Merci.

 

[Staple1600]

Re

Le résultat est bien le même ou pas?
Au cas ou tu voudrais supprimer les lignes entières il faut modifier ainsi

Sub videIII()
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlUp
End Sub

 

[job75]

Re, salut JM,

Je n'avais pas fait attention ni testé mais l'ordre du tri que vous indiquez kingfadhel ne permet pas d'obtenir la configuration de votre fichier.

A+

 

[job75]

Re,

Et puis dites-donc vos dates ne sont pas des dates mais des textes !!!

Après les avoir convertis en vraies dates on pourra faire le tri sur MATRICULE puis sur DEBUT.

A+

 

[job75]

Re,

Après remise en ordre ce fichier (3) tient beaucoup mieux la route.

J'ai introduit des DECALER dans les formules pour qu'on puisse supprimer ou insérer des lignes.

Bonne nuit.

 

[job75]

Bonjour kingfadhel, JHA, JM, le forum,

Si l'on tient à supprimer les "SUITE AT" voyez la feuille "Résultat" du fichier joint et ce code :

Private Sub Worksheet_Activate()
Dim a As Range
Application.ScreenUpdating = False
With Feuil1.[A1].CurrentRegion 'à adapter
  If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
  .Sort .Columns(2), xlAscending, .Columns(5), , xlAscending, Header:=xlYes 'tri
  .EntireColumn.Copy [A1]
End With
Application.Calculation = xlCalculationManual 'évite le recalcul des formules volatiles
With [A1].CurrentRegion
  .Value = .Value 'supprime les formules
  On Error Resume Next 'si aucune SpecialCell
  For Each a In .Columns(9).SpecialCells(xlCellTypeBlanks).Areas
    a(1, -2) = a(a.Count + 1, -2)
    a(1) = a(a.Count + 1): a(a.Count + 1) = ""
  Next
  .Columns(9).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  .Columns(7).Resize(, 2).EntireColumn.Delete
End With
Application.Calculation = xlCalculationAutomatic
With UsedRange: End With 'actualise les barres de défilement
End Sub

Bonne journée.