[VBA - Excel] Date de saisie d'une données
CV
-
eeeeee -
eeeeee -
Bonjour je pense que la question a deja du etre posee mais je ne trouve pas desolee.
Je souhaiterias savoir comment je pourrais faire avec VBA pour afficher dans une case excel l'heure a laquelle j'ai saisie une donnee dans la case adjacente par exemple.
J'a utilise la fonction application.ontime mais je ne sais pas pkoi j'ai des messages d'erreur du style "argument non facultatif"
J'espere qu'une ame charitable voudra bien m'aider.
Merci bcp d'avance.
CV
Je souhaiterias savoir comment je pourrais faire avec VBA pour afficher dans une case excel l'heure a laquelle j'ai saisie une donnee dans la case adjacente par exemple.
J'a utilise la fonction application.ontime mais je ne sais pas pkoi j'ai des messages d'erreur du style "argument non facultatif"
J'espere qu'une ame charitable voudra bien m'aider.
Merci bcp d'avance.
CV
A voir également:
- [VBA - Excel] Date de saisie d'une données
- Liste déroulante excel - Guide
- Trier des données excel - Guide
- Déplacer une colonne excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Word et excel gratuit - Guide
3 réponses
Bonjour CV,
Ta question ressemble à celle-là :
https://forums.commentcamarche.net/forum/affich-2170438-excel-comment-indiquer-une-date-de-saisie
Regarde si la solution de Sergio63 te convient.
Ta question ressemble à celle-là :
https://forums.commentcamarche.net/forum/affich-2170438-excel-comment-indiquer-une-date-de-saisie
Regarde si la solution de Sergio63 te convient.
Bonjour, je suis vraiment novice dans la programmation vb et je m'aide avec les forums.
Est ce que qqu'un parmis vous pourrait me dire ce qu'il ne va pas dans ce code qui ne marche pas, gd merci (9-11-07):
Private Sub Worksheet_Change(ByVal Target As Range)
If plage Is Nothing Then Exit Sub
Set plage = Intersect(Target, Range("M2:M5000"))
If Target.Cells <> "distribué" Then
With Target(1, 2)
.Value = ""
.EntireColumn.AutoFit
End With
If Target(1, 2) = "" Then
If Target.Cells = "distribué" Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
With Target(1, 0)
.Value = "cloturé"
.EntireColumn.AutoFit
End With
End With
Else: Exit Sub
End If
End If
End If
End Sub
Est ce que qqu'un parmis vous pourrait me dire ce qu'il ne va pas dans ce code qui ne marche pas, gd merci (9-11-07):
Private Sub Worksheet_Change(ByVal Target As Range)
If plage Is Nothing Then Exit Sub
Set plage = Intersect(Target, Range("M2:M5000"))
If Target.Cells <> "distribué" Then
With Target(1, 2)
.Value = ""
.EntireColumn.AutoFit
End With
If Target(1, 2) = "" Then
If Target.Cells = "distribué" Then
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
With Target(1, 0)
.Value = "cloturé"
.EntireColumn.AutoFit
End With
End With
Else: Exit Sub
End If
End If
End If
End Sub