Discussion :

[Qdsckt]

Bonjour,

Je cherche à créer une liste qui figerai le temps en colonne C pour chaque saisie en colonne B et ceci en centième de seconde.

J'utilise la formule =SI(B2="";"";MAINTENANT()) mais à chaque saisie tout est rafraichit à l'heure de la dernière saisie.

Je ne peux pas utiliser les touches Ctrl pour figer car j'ai besoin de remplir très rapidement cette liste dans le cadre de chrono analyse, c.-à-d. mesurer des temps de l'ordre de de 5 à 10 secondes voir moins !!!! Donc je pensais à la VBA donc je connais que les balbutiements

Merci d'avance pour votre aide.

Vous trouverez le fichier ci dessous.

Chrono analyse.xlsm

[joe.levrai]

Bonjour,

MAINTENANT() en VBA est représenté par la fonction Now

donc en reprenant ta formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C2") = IIf(Range("B2") = "", "", Now)

Ca inscrira uniquement la valeur, sans formule volatile qui va se rafraichir

[Qdsckt]

Merci,

Mes connaissances VBA étant qu'au début de ma petite formation autodidacte, pourriez vous me dire comment appliquer ce code pour la colonne C entière ou du mois pour 200 lignes ????

[joe.levrai]

Tout dépend le contexte d'utilisation

si c'est appuyer sur un bouton pour lancer le traitement, ou si ça doit être effectué dans d'autres circonstances

dans tous les cas, ça se résume à une boucle itérée 200 fois

admettons que ça soit de C2 à C201

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim i As Long
Application.ScreenUpdating = False
    With ThisWorkbook.Worksheets("Feuil1") ' adapter le classeur / la feuille
        For i = 2 To 201
            .Cells(i, 3).Value = IIf(.Cells(i, 2).Value = "", "", Now)
        Next i
    End With
Application.ScreenUpdating = True
End Sub

[Menhir]

Encore plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target as Range) 
    If Target.Column = 2 Then Target.Offset(0, 1).Value =  Target.Offset(0, 1).Value
End Sub

A placer dans le module de la feuille concernée dans VBE.

Chaque fois que tu feras une saisie en colonne B, ça figera la valeur en colonne C de la même ligne.

[joe.levrai]

Désactive les évènements pour éviter un second appel ?

[Qdsckt]

Un grand merci pour vos solutions.

J'ai utilisé la méthode de Menhir.

J'espère un jour pouvoir arriver à cela par moi-même mais la route est encore longue.

Cordialement.