Bonjour,

Ta formule comporte des erreurs de syntaxe, il y a des imbrications de guillemets ("") qui ne sont pas autorisées, du moins pas sous cette forme. Voila comment il faudrait l'ecrire
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-6]=R[-1]C[-6],RC[-2]=" & Chr(34) & "OUV" & Chr(34) & _
",R[-1]C[-2]=" & Chr(34) & "­OUV" & Chr(34) & ",RC[-1]<>" & Chr(34) & "M " & Chr(34) & _
",R[-1]C[-1]<>" & Chr(34) & "M " & Chr(34) & ");TEXT(RC[-7]-R[-1]C[-7]," & Chr(34) & _
"h:mm:ss.00" & Chr(34) & ");" & Chr(34) & Chr(34) & ";)"

Dans la version française d' Excel la fonction IF s'ecrit SI et la fonction AND s'ecrit ET
ActiveCell.FormulaR1C1 = _
"=SI(ET(RC[-6]=R[-1]C[-6],RC[-2]=" & Chr(34) & "OUV" & Chr(34) & _
",R[-1]C[-2]=" & Chr(34) & "­OUV" & Chr(34) & ",RC[-1]<>" & Chr(34) & "M " & Chr(34) & _
",R[-1]C[-1]<>" & Chr(34) & "M " & Chr(34) & ");TEXT(RC[-7]-R[-1]C[-7]," & Chr(34) & _
"h:mm:ss.00" & Chr(34) & ");" & Chr(34) & Chr(34) & ";)"

Salut.

RE,
La fonction Chr() prend en argument le code ASCII du caractère et retourne le caractère

Chr(34) c'est le caractère "

On ne peut pas imbriquer des guillemets pour définir une chaine qui contient des guillemets, il faut passer par chr(34)
Je me suis peut etre trompé en écrivant
essaie ç en anglais ou en français suivant ton système

ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-6]=R[-1]C[-6],RC[-2]=" & Chr(34) & "OUV" & Chr(34) & _
",R[-1]C[-2]=" & Chr(34) & "­OUV" & Chr(34) & ",RC[-1]<>" & Chr(34) & "M " & Chr(34) & _
",R[-1]C[-1]<>" & Chr(34) & "M " & Chr(34) & ");TEXT(RC[-7]-R[-1]C[-7]," & Chr(34) & _
"h:mm:ss.00" & Chr(34) & ");" & Chr(34) & Chr(34) & ")"

ActiveCell.FormulaR1C1 = _
"=SI(ET(RC[-6]=R[-1]C[-6],RC[-2]=" & Chr(34) & "OUV" & Chr(34) & _
",R[-1]C[-2]=" & Chr(34) & "­OUV" & Chr(34) & ",RC[-1]<>" & Chr(34) & "M " & Chr(34) & _
",R[-1]C[-1]<>" & Chr(34) & "M " & Chr(34) & ");TEXT(RC[-7]-R[-1]C[-7]," & Chr(34) & _
"h:mm:ss.00" & Chr(34) & ");" & Chr(34) & Chr(34) & ")"

Voila ce ça donne:

=SI(ET(RC[-6]=R[-1]C[-6],RC[-2]="OUV",R[-1]C[-2]="­OUV",RC[-1]<>"M ",R[-1]C[-1]<>"M ");TEXT(RC[-7]-R[-1]C[-7],"h:mm:ss.00");"")

Dis moi si c'est la bonne formule

A+

Je viens de rentrer la formule dans une cellule et Excel me dit qu'il y a une erreur.

Le plus simple c'est que tu m'ecrive la formule telle qu'elle est ecrite dans une cellule de ton tableau et je te mettrai le code VB qui va bien.

A+.

Bonjour,

voila comment il faut entrer la formule par le biais de la macro

ActiveCell.FormulaR1C1 = "=SI(ET(B17=B16;F17=" & Chr(34) & "OUV" & Chr(34) & _
           ";F16=" & Chr(34) & "OUV" & Chr(34) & ";G17<>" & Chr(34) & "M " & _
            Chr(34) & ";G16<>" & Chr(34) & "M " & Chr(34) & ");TEXTE(A17-A16;" & _
            Chr(34) & "h:mm:ss.00" & Chr(34) & ");" & Chr(34) & Chr(34) & ")"

Après avoir tâtonné au niveau de la syntaxe, enfin voici quelque chose qui marche

ActiveCell.Value = "=IF(AND(B17=B16,F17=" & Chr(34) & "OUV" & Chr(34) & _
",F16=" & Chr(34) & "OUV" & Chr(34) & ",G17<>" & Chr(34) & "M " & _
Chr(34) & ",G16<>" & Chr(34) & "M " & Chr(34) & "),TEXT(A17-A16," & _
Chr(34) & "h:mm:ss.00" & Chr(34) & ")," & Chr(34) & Chr(34) & ")"

Qu'est ce tu appelles des filtres après le résultat?

Si je colle la nouvelle formule j'ai une erreur 1004 "la methode FormulaR1C1 de l'objet range a échoué!

Par contre je me suis sans doute mal fait comprendre. Il n'y a pas a priori d'erreur sur la syntaxe de la macro car c'est EXCEL qui l'a généré lui même (j' ai fais un copier/coller de ma formule du tableau EXCEL dans VBA). Lorsque je lance la macro elle se déroule sans pb est me donne un résultat de calcul (dans l'exemple ci dessous le résultat est 0:00:13:,0)

36 2007-01-01 18:14:11.54 BELLAC NOUIC DISJ OUV
37 2007-01-01 18:14:11.83 BELLAC NOUIC DISJ FER
53 2007-01-01 18:14:12.66 BELLAC NOUIC DISJ OUV
54 2007-01-01 18:14:25.12 BELLAC BLOND DISJ OUV 0:00:13.00

Si maintenant avec la fonction EXCEL (données -filtre automatique) je sélectionne une valeur des colonnes et que je relance la macro c'est là qu'elle se met à "boucler". Je suppose que c'est parce que à ce moment, il y a des lignes masquées par le filtre. Dans mon exemple on passe des n°36 37 à 53 54 alors que la formule fait la soustraction de deux lignes qui se suivent.

Est ce que c'est compréhensible?

A+
Merci

J'ai reproduit le tableau tel que tu me donné
J'ai collé la formule en colonne H
La formule contient une erreur:
=SI(ET(B17=B16;F17="OUV";F16="OUV";G17<>"M ";G16<>"M ");TEXTE(A17-A16;"h:mm:ss.00");"")

c'est plutot:
=SI(ET(A17=A16;F17="OUV";F16="OUV";G17<>"M ";G16<>"M ");TEXTE(B17-B16;"h:mm:ss.00");"")

Sinon le resultat est toujours 0:00.00.0

Ceci dit je ne sais pas ce que fait ta macro donc je n'ai pas pu reproduire ton problème

A+.

Re.

Cette fois je crois ce c'est bon, il suffit d'ajuster la macro à ton tableau pour lui indiquer la première ligne,
par exemple j'ai mis H2 mais c'est peu etre H16 chez toi voir commentaires

Voici la macro

Sub macro1()
Dim C As String
Range("H2").Select ' AJUSTER SUIVANT TON TABLEAU PAR EXEMPLE "H16"
C = ActiveCell.Column
ActiveCell.Value = "=IF(AND(A" & C & "=A" & C - 1 & _
",F" & C & "=" & Chr(34) & "OUV" & Chr(34) & _
",F" & C - 1 & "=" & Chr(34) & "OUV" & Chr(34) & ",G" & C & "<>" & _
Chr(34) & "M " & Chr(34) & ",G" & C - 1 & "<>" & Chr(34) & "M " & _
Chr(34) & "),TEXT(B" & C & "-B" & C - 1 & "," & Chr(34) & _
"h:mm:ss.00" & Chr(34) & ")," & Chr(34) & Chr(34) & ")"
Selection.AutoFill Destination:=Range("H2:H65536"), Type:=xlFillDefault ' AJUSTER
End Sub

ça marche meme avec les fitres, attendre juste quelques secondes, l'execution est plus longe avec des filtres, surtout s'il y a 10000 lignes.

A+.

A+.