A voir également:
- [VBA - Excel] Date de saisie d'une données
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Calculer une moyenne sur excel - Guide
- Si et excel - Guide
- Aller à la ligne 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