Bonjour Clem 64400,

Au lieu d'une formule complexe je te conseillerais de simplifier le problème.

Ta formule colonne F pourrait-être simplement ceci:

=E2-A2

au lieu de ceci:

=E2-A2&" jours"

Et le format de cellule quelque chose comme ceci:

# ##0" jour(s)"

Ainsi, tu as visuellement à l'écran exactement la même chose, mais tu conserves des données numériques et tu peux très facilement faire ta moyenne.

Très bonne journée,

mth

Bonsoir Jango5,

A priori la fonction est mal écrite, regarde sa structure dans l'aide Excel:

=NB.SI.ENS(plage_critères1; critère1; [plage_critères2; critères2]…)

A vue de nez j'enlèverais la fonction ET(), je séparerais les plages de critères et les critères par des points virgule, ça pourrait donner quelque chose de ce genre:

=NB.SI.ENS((B$2:B3);0;B3;"<>0";B3;"<>"&"";(C$2:C3);0;C3;"<>"&0;C3;"<>"&"")

mais bon, non testé de mon coté évidemment, vois si tu peux en faire quelque chose mais vois surtout l'aide Excel de la fonction, il y a des exemples assez clairs qui pourront t'aider.

Bien à toi,

mth

re bonjour Clem :)

Si tu as une formule dans ta cellule, même si elle renvoie "", c'est un petit rien, mais même trois fois rien cela fait toujours un petit quelque chose et suffit pour qu'Excel considère que cette cellule n'est pas vide.

Tu dois pouvoir ajouter dans la formule de ta mise en forme conditionnelle une condition sur la colonne I ou une autre colonne, si tu bloques postes un extrait de fichier de quelques lignes pour que l'on puisse t'aider sur un cas concret car là sans données c'est un peu la boule de cristal

Très bonne soirée,

mth

Bonsoir Clem 64400,

Tu peux faire une petite macro évènementielle dans ta feuille qui placera la formule à chaque fois que tu saisis une date dans la première colonne, par exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And IsDate(Target) = True Then
    Target.Offset(0, 1).FormulaR1C1 = _
        "=IF(RC[-1]<>0,(YEAR(RC[-1])&"" - ""&SUMPRODUCT((YEAR(R2C[-1]:RC[-1])=YEAR(RC[-1]))*1)),"""")"
End If

End Sub

Bien à toi,

mth

Bonsoir bawrll, bonsoir à tous,

Il n'est pas normal que les filtres disparaissent tout seul, mais il serait plus facile que tu joignes un extrait de fichier anonymisé avec le code de ta macro afin que les uns et les autres puissent t'aider efficacement.

Très bonne soirée,

mth

Bonsoir Clem-64400, bonsoir à tous,

On doit pouvoir faire plus joli mais vois si le fichier joint peut t'aider, j'ai appliqué cette formule en B2 et tirée vers le bas:

=SI(A2<>0;(ANNEE(A2)&" - "&SOMMEPROD((ANNEE(A$2:A2)=ANNEE(A2))*1));"")

Bien à toi,

mth

Bonjour Barwll, bonjour le forum

Je te conseille d'utiliser des noms génériques pour tes données sources.

Par exemple lorsque je travaille sur un comparatif de l'année 2013 versus 2012, mes champs ne se nomment pas 2013 ou 2012, mais A et A-1.

Peut-être peux-tu trouver des noms génériques qui correspondent à tes données? Ainsi tu n'auras jamais à refaire un TCD.

Bien à toi,

mth

Bonsoir Zizou, bonsoir à tous,

Il me semble que l'on peut simplement insérer un champ calculé, il y a un exemple ici.

Très bonne soirée,

mth

Bonjour edemers99, bonjour à tous,

La chaîne de caractères "C$" existe-t-elle bien en cellule D2? Y a t-il bien une valeur numérique dans cette cellule? si tel n'est pas le cas la formule renverra une erreur, il faudrait en savoir plus sur la chaîne contenue en D2

En cas de blocage n'hésite pas à joindre un exemple de fichier pour que l'on voie ce qui se passe.

Très bonne soirée,

mth

re bonjour Mickaël,

J'ai fait une bêtise dans le premier fichier, vraiment désolée, voici en PJ la correction (il s'agit de la formule colonne F qui n'allait pas du tout):

Option Explicit
Sub Macro1()
Dim Dlig As Long

With Sheets("Feuil1")
    'test pour éviter de traiter plusieurs fois les données
    If .Cells(1, 6) = "Données traitées" Then Exit Sub
    'calcul de la dernière ligne
    Dlig = .Cells(Rows.Count, 1).End(xlUp).Row
    'tri des données
    With .Sort.SortFields
        .Clear
        .Add Key:=Range("A2:A" & Dlig), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Add Key:=Range("B2:B" & Dlig), _
             SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Feuil1").Sort
            .SetRange Range("A1:E" & Dlig)
             .Header = xlYes
             .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
    'formule de test colonne F(même numéro, appel > 32 secondes)
    .Range("F2").FormulaR1C1 = _
        "=IF(RC[-3]<>R[-1]C[-3],""ok"",IF(RC[-4]-R[-1]C[-4]>0.00037037037037037,""ok"",NA()))"
        .Range("F2").Copy .Range("F2:F" & Dlig)
     ' élimination des erreurs
    .Range("F3:F" & Dlig).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
    'Efface la colonne F
    .Columns("F:F").ClearContents
    'indicateur données traitées
    .Cells(1, 6) = "Données traitées"
   
End With

End Sub

Si tu n'es pas fan de VBA tu feras aussi bien avec l'interface Excel:

En cellule F2 tu écris cette formule puis tu la copie vers le bas  jusqu'à la dernière ligne remplie de ton fichier:

=SI(C2<>C1;"ok";SI(B2-B1>0.037;"ok";NA()))

Tu auras donc colonne F soit le libellé "ok", soit l'erreur #N/A

Sélectionne ta colonne F

Dans la menu "Accueil" clique sur "Rechercher et Sélectionner "au bout à droite et choisis "Sélectionner les cellules"

Là tu coches la case "Formules" et tu ne laisses que la case "Erreurs" cochée

Dans ta colonne F seules les cellules #N/A sont maintenant sélectionnées.

En faisant un clic droit sur une de ces cellules au hasard (attention de ne pas tout désélectionner) tu choisis "Supprimer" et tu coches "Ligne entière"

Une fois que tu as validé, toutes les lignes indésirables ont été supprimées.

C'est plus long à dire qu'à faire, c'est une petite manip qui te servira à bien des occasions.

En espérant que cela puisse t'aider,

Bonne soirée,

mth