Appliquer une date à un contenu de cellule
Fermé
Utilisateur anonyme
-
22 oct. 2010 à 13:35
zefade Messages postés 1 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 26 octobre 2010 - 26 oct. 2010 à 11:08
zefade Messages postés 1 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 26 octobre 2010 - 26 oct. 2010 à 11:08
A voir également:
- Appliquer une date à un contenu de cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
2 réponses
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
574
Modifié par g le 22/10/2010 à 16:30
Modifié par g le 22/10/2010 à 16:30
Bonjour,
Dans ce cas il faut passer par le code VBA.
Le code ci-dessous est à copier dans le module de feuille accessible par Alt+F11.
Pour une saisie sur toute la colonne A:
Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 1 And Cells(i, 1) = "v" Then 'Saisie de v en colonne 1
Cells(i, 2).Value = Date 'Date fixée en colonne 2
End If
End Sub
Pour une saisie uniquement en A1:
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "v" Then 'Saisie de v A1
[B1] = Date 'Date fixée en B1
End If
End Sub
Bonne soirée.
Dans ce cas il faut passer par le code VBA.
Le code ci-dessous est à copier dans le module de feuille accessible par Alt+F11.
Pour une saisie sur toute la colonne A:
Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Column = 1 And Cells(i, 1) = "v" Then 'Saisie de v en colonne 1
Cells(i, 2).Value = Date 'Date fixée en colonne 2
End If
End Sub
Pour une saisie uniquement en A1:
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "v" Then 'Saisie de v A1
[B1] = Date 'Date fixée en B1
End If
End Sub
Bonne soirée.
zefade
Messages postés
1
Date d'inscription
mardi 26 octobre 2010
Statut
Membre
Dernière intervention
26 octobre 2010
26 oct. 2010 à 11:08
26 oct. 2010 à 11:08
Merci beaucoup!!!
C'est super gentil !!
Bonne Journée !!
Cordialement
Adeline
C'est super gentil !!
Bonne Journée !!
Cordialement
Adeline