[VBA - Excel] Date de saisie d'une données
Fermé
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
- Déplacer une colonne excel - Guide
- Trier des données excel - Guide
- Calculer une moyenne sur excel - Guide
- Si et excel - Guide
3 réponses
Armojax
Messages postés
1860
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
2 octobre 2024
1 528
1 avril 2006 à 08:52
1 avril 2006 à 08:52
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