1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
27 mars 2015 à 11:20
27 mars 2015 à 11:20
Bonjour
macro à installer dans le module feuille concerné (par ex feuil1(feuil1)
macro à installer dans le module feuille concerné (par ex feuil1(feuil1)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A")) Is Nothing Then
If Target = "oui" Then Target.Offset(0, 1) = Date
End If
End Sub
27 mars 2015 à 15:24
Merci michel_m pour votre réponse, mais le seul problème est que lorsque j'effectue un copié / glissé dans ma colonne A la macro s'applique même si je copie / glisse des "Non". Est-il possible de faire en sorte que la macro de s'effectue que pour "Oui"?
En vous remerciant pour votre aide précieuse.
27 mars 2015 à 16:17
je ne comprend pas ce que tu veux dire par copier-glisser
27 mars 2015 à 16:23
(Par exemple quand j'ai 1, 2 ,3, 4... Je tire ma cellule pour avoir 5, 6, 7, ...)
J'espère avoir été plus clair
Merci de votre aide
Modifié par michel_m le 27/03/2015 à 17:18
donc quand tu tires vers le bas cela inscris la date
si non tu vires la macro et tu écris en B1
SiA1="oui";aujourdhui();"") et tu tires vers le bas
27 mars 2015 à 18:24
Que voulez-vous dire par "attention à la casse"?
Après j'avais bien pensé à votre formule mais je crains qu'elle se mette à jour à chaque ouverture du fichier il faudrait alors la figer si jamais la date apparaît.