Insertion date sous condition
Fermé
IG
-
21 janv. 2021 à 12:43
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 21 janv. 2021 à 14:33
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 21 janv. 2021 à 14:33
A voir également:
- Insertion date sous condition
- Excel cellule couleur si condition texte - Guide
- Insertion liste déroulante excel - Guide
- Insertion signature word - Guide
- Insertion sommaire word - Guide
- Touche insertion clavier - Guide
2 réponses
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
21 janv. 2021 à 12:59
21 janv. 2021 à 12:59
j'ai retiré mon message, il ne correspondait pas à votre demande car la formule changerait la date tous les jours
il faut passer par VBA
excuses
crdlmnt
il faut passer par VBA
excuses
crdlmnt
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 416
Modifié le 21 janv. 2021 à 14:38
Modifié le 21 janv. 2021 à 14:38
Re
en B2:
=SI(A2="OUI";AUJOURDHUI();"")
mais vous pouvez essayer, à condition d'enregistrer votre modèle en xlsm (acceptant les macros) pour placer une date du jour figée en B quand vous entrez OUI en A
exemple de ligne 2 à ligne 100
clic droit sur nom de feuille / "visualiser le code" et collez ça
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rw As Long
Rw = Target.Row
If Target.Column = 1 And Target.Row > 1 And Target.Row < 101 Then
If Target.Value = "OUI" Then
Range("B" & Rw).Select
ActiveCell.Value = Date
End If
End If
End Sub
(column =1 pour A, Row>1 pour commencer à 2 et <101 pour finir à100, sensible à la casse)
crdlmnt
en B2:
=SI(A2="OUI";AUJOURDHUI();"")
mais vous pouvez essayer, à condition d'enregistrer votre modèle en xlsm (acceptant les macros) pour placer une date du jour figée en B quand vous entrez OUI en A
exemple de ligne 2 à ligne 100
clic droit sur nom de feuille / "visualiser le code" et collez ça
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rw As Long
Rw = Target.Row
If Target.Column = 1 And Target.Row > 1 And Target.Row < 101 Then
If Target.Value = "OUI" Then
Range("B" & Rw).Select
ActiveCell.Value = Date
End If
End If
End Sub
(column =1 pour A, Row>1 pour commencer à 2 et <101 pour finir à100, sensible à la casse)
crdlmnt
21 janv. 2021 à 13:27
Merci de votre retour.
Pourriez-vous tout de même me donner la formule que vous avez mise svp?