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
- Word et excel gratuit - Guide
- Nombre de jours entre deux dates excel - 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