Discussion :

[karlgina]

Bonjour,

j'ai une feuille excel dans laquelle des opérateurs viennent renseigner une date et une heure précise à laquelle ils font une opération.

pour éviter les mauvaises saisies, je voulais faire une macro ou la date et l'heure s'inscrit toute seule en fonction de la cellule de la colonne précédente est vide ou pas



j'ai commencé à écrire un bout de code (mais je suis débutante) , et du coup a chaque nouvel enregistrement les dates déjà inscrites se mettent à jour et changent d'heure, car la j'ai utilisé la formule now() et du coup tout ce mets a jour. il faudrait qu'une fois inscrite la formule disparaisse mais que la valeur reste.



Ce que je souhaite :

- que l'opérateur, lorsqu'il saisi son nom en cellule A, la date et heure s'incrivent toutes seules dans la cellule B

- Que la date et heure ne change pas après l'enregistrement du fichier (du style copie/colle valeur),


je vous remercie pour votre aide

bonne soirée à vous

[Invité]

Bonjour,


A placer dans le module de votre onglet de saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
     If Target.Count > 1 Then Exit Sub
 
     If Not Intersect(Target, Columns(1)) Is Nothing Then
 
        If Target.Offset(0, 1) = "" Then
           Target.Offset(0, 1) = Now()
        End If
 
     End If
 
End Sub

[RAFAAJ2000]

- Que la date et heure ne change pas après l'enregistrement du fichier (du style copie/colle valeur)

Il faudrait manuellement faire le unlock the toutes les cellules, proteger la feuille et puis mettre la propriete de la cellule .Locked=True a la fin du code.

Code :

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

1
2
3
4
5
6
If Target.Offset(0, 1) = "" Then
      Target.Offset(0, 1) = Now()
      Me.Unprotect
      Target.Offset(0, 1).Locked = True
      Me.Protect
End If

[karlgina]

merci beaucoup,

en ce qui concerne la protection des cellules, j'y ai pensé mais les opérateurs ont parfois besoin de modifier à la main.

ça fera peut-être parti d'un projet un peu plus complexe.

une petite chose encore ,

est ce qu'il est possible de calculer automatiquement via la macro l'écart entre en heure entre une cellule date entrée et une cellule date sortie si cette dernière est renseignée.

je vous ai mis ce que je souhaite dans un fichier.


merci encore pour votre aide

[MarcelG]

Salut,

Par formule

=TEXTE(D2-B2;"hh:mm:ss")

Il faut savoir qu'une date seule est un entier.
Si des heures, minutes, secondes viennent s'y greffer, alors ces nombres sont avec virgule.
Les heures, minutes, secondes reviennent ainsi au fractionnement d'une journée.

A titre d'information, tu peux consulter le tutoriel de Silkyroad et la FAQ à ce sujet .

[karlgina]

Bonjour,

en fait je ne veux pas de formule a proprement dit dans mon tableau, car les opérateurs arrivent toujours à me la foutre en l'air

donc je préfére une macro

je vais regarder le tuto

merci encore

[patricktoulon]

Bonjour,


A placer dans le module de votre onglet de saisie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
     If Target.Count > 1 Then Exit Sub
 
     If Not Intersect(Target, Columns(1)) Is Nothing Then
 
        If Target.Offset(0, 1) = "" Then
           Target.Offset(0, 1) = Now()
        End If
 
     End If
 
End Sub

et qu'est ce qui empeche de surécrire sur existant hein!!!???? manuellement ou par VBA!!!!


si il n'y a pas de memo ou protection c'est pas possible

pour le memo un tableau fait l'affaire

Code :

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

1
2
3
4
5
6
7
Dim tablo As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
    If IsEmpty(tablo) Then tablo = Range("A:B")
    If tablo(Target.Row, 1) <> "" And tablo(Target.Row, 1) <> Target.Value Then Target.Value = tablo(Target.Row, 1) Else Target.Offset(, 1) = Now()
    tablo = Range("A:B")
End Sub

et encore il y a des failles


si on veut vraiment pas pouvoir bousiller ces deux colonnes
comme ceci c'est top
on ne peut pas modifier manu ou par vba les deux colonnes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim tablo As Variant    'variable tablo globale!!!!
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub    ' si il y a plus d'une cellule on sort (CA POURRAIT ETRE LA SEULE FAILLE!!!! )
'
    If Target.Column = 1 Then    ' si on est dans la colonne 1
'
        If IsEmpty(tablo) Then tablo = Range("A:B")    'si tablo n'a pas encore été dimentionné on dimentionne provisoirement a deux colonnes entieres
'
'si l'item tablo en colonne 1 meme ligne que target  n'est pas vide et different de target alors...
        If tablo(Target.Row, 1) <> "" And tablo(Target.Row, 1) <> Target.Value Then
            '
            Target.Value = tablo(Target.Row, 1)    'on le remet
            '
        Else    'autrement
            '
            Target.Offset(, 1) = Now()    'on met la date
            '
        End If    'fin de control pour target en colonne 1
        '
    ElseIf Target.Column = 2 Then    ' si target est en colonne 2
        '
        If tablo(Target.Row, 2) <> "" Then Target = tablo(Target.Row, 2)    'on remet la date du tablo colonne 2 meme ligne que targetsi l'item du tablo n'est pas vide
        '
    End If    'fin de control target en colonne 2
    '
    tablo = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row + 1)    ' on rememorise tablo mais cette fois ci a la dimmention de la plage utilisée en "A:B" car on a au moins une ligne de rempli
    '
End Sub

[Philippe Tulliez]

Bonjour,
Juste pour information.
Si tu es débutant en VBA, pourquoi ne profites-tu pas des facilités d'excel et de ces raccourcis
Tu mets la date et l'heure dans deux colonnes séparées il suffit alors d'expliquer aux utilisateurs deux petits raccourcis Ctrl + ; (pour insérer la date du jour) et Ctrl + : (pour insérer l'heure)
Si tu souhaites ensuite avoir la date et l'heure sur une même colonne, une simple addition des deux cellules fera l'affaire.

[patricktoulon]

Bonjour
la memorisation par vba dans une quelconque variable peut etre une faille en elle meme
en effet si dans une autre feuille ou module une erreur est declenché la memoire est vidé
il ne reste plus que la memorisation dans un object qui ne sera pas detruit par une erreur vba
les commentaires peuvent etre une des solutions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column > 2 Then: Exit Sub
    If Target.Column <= 2 Then
        Application.DisplayCommentIndicator = xlNoIndicator
        If Target.Comment Is Nothing Then
            If Target.Value <> "" Then
                With Target: .AddComment: .Comment.Text Text:=Target.Text: .Comment.Visible = False: .Comment.Shape.Width = 0: .Comment.Shape.Height = 0
                    If .Column = 1 Then .Offset(, 1).Value = Now()
                End With
            End If
        Else
            Target.Value = Format(Target.Comment.Text, Target.Comment.Text)
        End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayCommentIndicator = IIf(Target.Column > 2, True, False)
End Sub

une fois qu'une cellule en colonne 1 ou 2 a son commentaire c'est fini tu ne peut plus la modifier
je les reduit a la taille de zero et l'indicateur de commentaire est inhibé si la selection se trouve en colonne 1,2 pour la commodité visuelle

[mercatog]

Patrick bonjour
On peut toujours modifier le commentaire.

On peut aussi modifier la cellule par copier/ coller