Calcul de temps avec des 10 éme de secondes

[JBARBE]

Bonjour,
Je reviens vers vous pour le calcul de temps avec des 10 éme de secondes !
Merci à l'avance et bonne soirée !

 

[Dranreb]

Bonsoir.

Sub ecart()
With Feuil1.[E2:E5]
   .FormulaR1C1 = "=RC2-R1C2"
   .Value = .Value ' si on ne veut garder que les valeurs
   End With
End Sub

 

[JBARBE]

Bonsoir Draneb,
désolé je ne veux pas de formule dans la macro puisque la position de la cellule rouge colonne E se situera sur n'importe quelle ligne !
Ainsi la macro démarrera depuis la position de la sélection de la cellule colonne E sur n'importe quelle ligne !
Je n'y ai pas arrivé ( voir ma macro ecart)
Merci à l'avance !

 

[Dranreb]

Alors changez R1C2 en l'adresse R1C1 de la cellule à prendre. Par exemple :

Sub ecart()
With Feuil1.[E2:E5]
   .FormulaR1C1 = "=RC2-" & Selection.Address(True, True, xlR1C1) - 
   .Value = .Value ' si on ne veut garder que les valeurs
   End With
End Sub

Ou bien si ça doit pouvoir marcher même en sélectionnant un cellule d'une autre colonne

Sub ecart()
With Feuil1.[E2:E5]
   .FormulaR1C1 = "=RC2-R" & Selection.Row & "C"
   .Value = .Value ' si on ne veut garder que les valeurs
   End With
End Sub

 

[JBARBE]

Re,
Ce qui ne va pas c'est cela :
With Feuil1.[E2:E5]
puisque la sélection se fait n'importe ou dans la colonne E

 

[Dranreb]

Comprends pas.
Changez le en Feuil1.[E13:E17], c'est tout.
Ou si c'est toujours les 5 lignes à partir de la sélection With Selection.Resize(5)

 

[JBARBE]

Comprends pas.
Changez le en Feuil1.[E13:E17], c'est tout.
Ou si c'est toujours les 5 lignes à partir de la sélection With Selection.Resize(5)

Je positionne moi même avec ma souris le curseur sur une cellule de la colonne E et je clique sur la macro !!!
Voici un exemple de ma macro qui bug et qui n'est pas correct :

Voici le résultat de ta macro qui ne soustrait pas :

Bonne nuit !

 

[Modeste geedee]

Je positionne moi même avec ma souris le curseur sur une cellule de la colonne E et je clique sur la macro !!!
Voici un exemple de ma macro qui bug et qui n'est pas correct :
Regarde la pièce jointe 1021105

Voici le résultat de ta macro qui ne soustrait pas :
Regarde la pièce jointe 1021106
Bonne nuit !

il me semble que les cellules de la colonne 2 soient sous forme de texte, peut-être même sont-elles précédées du caractère "nul", non affichable.
il y a eu un post récent à ce propos ...
la solution immédiate est de valider dans la barre de formule , chaque cellule de cette colonne.

JOB75 ??? avait émis une proposition pour corriger ceci
https://www.excel-downloads.com/thr...le-impossible-a-gerer.20026242/#post-20199220

 

[eriiic]

Bonjour,

en reprenant la macro de dranreb :

    With ActiveCell.Offset(1).Resize(5)
        .FormulaR1C1 = "=RC[-3]-R[-1]C[-3]"
        .Value = .Value    ' si on ne veut garder que les valeurs
    End With

eric

 

[JBARBE]

Bonjour,

en reprenant la macro de dranreb :

    With ActiveCell.Offset(1).Resize(5)
        .FormulaR1C1 = "=RC[-3]-R[-1]C[-3]"
        .Value = .Value    ' si on ne veut garder que les valeurs
    End With

eric

Bonjour Eric, tous,
Non ça ne va pas :

 

[Dranreb]

Bon,jour.
C'est pour ça que je mets essentiellement des références absolues dans la formule, sauf pour la ligne courante.

 

[JBARBE]

Bonjour à tous,
désolé j'ai cru avoir la réponse !
bonne journée !

 

[Dranreb]

La boucle est inutile.

 

[eriiic]

Bonjour,

J'ai supposé que la cellule de départ à 00:00:00.00 n'était pas à traiter et seules les jaunes sous sa sélection étaient à faire.
eric

 

[JBARBE]

Re,
Je crois que j'ai la réponse en se positionnant sous la cellule rouge colonne E :

Option Explicit

Sub Ecart()
Dim i As Long
Sheets("Feuil1").Activate
For i = 1 To 4
ActiveCell.FormulaR1C1 = "=RC[-3]-R" & Selection.Row - i & "C2"
ActiveCell.Value = Selection.Value
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Merci à vous deux pour vos réponses !
Bonne journée !