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

job75

XLDnaute Barbatruc

• 16 Janvier 2018

• #2

Bonjour kingfadhel,

Il suffit de faire le tri manuellement comme indiqué :

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

Cliquez pour agrandir...

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

Code:

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

Edit : ou mieux :

Code:

=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+

 

Pièces jointes

• AT_kingfadhel par formules(1).xlsx

  21.9 KB · Affichages: 18

Dernière édition: 16 Janvier 2018

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 16 Janvier 2018

• #3

Bonjour à tous,

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

JHA

 

Pièces jointes

• AT_kingfadhel.xlsx

  16.8 KB · Affichages: 30

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2018

• #4

Re,

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

Code:

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

la colonne G étant maintenant une colonne auxiliaire.

Fichier (2).

A+

 

Pièces jointes

• AT_kingfadhel par formules(2).xlsx

  22.2 KB · Affichages: 26

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 16 Janvier 2018

• #5

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é.

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 16 Janvier 2018

• #6

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

 

Pièces jointes

• AT_kingfadhel_macors.xlsm

  25.6 KB · Affichages: 29

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 16 Janvier 2018

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 16 Janvier 2018

• #8

Re,
Le fichier complet

 

Pièces jointes

• AT_kingfadhel_macors.xlsm

  28 KB · Affichages: 22

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #9

Bonsoir le fil, le forum

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

VB:

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

 

Dernière édition: 16 Janvier 2018

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 16 Janvier 2018

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2018

• #11

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2018

• #12

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+

 

Dernière édition: 16 Janvier 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2018

• #13

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+

 

Dernière édition: 16 Janvier 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Janvier 2018

• #14

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.

 

Pièces jointes

• AT_kingfadhel par formules(3).xlsx

  21.7 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2018

• #15

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 :

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.

 

Pièces jointes

• AT_kingfadhel VBA(1).xlsm

  30.3 KB · Affichages: 22

Dernière édition: 17 Janvier 2018

Vote positif 0 Vote négatif