|
|
|
|
Configuration: Windows XP
bonjour
à mon avis tu t'es compliqué la vie car ta macro ne se déclenche que si ta cellule est modifiée Private Sub Worksheet_Change(ByVal Target As Range) 'La cellule que l'ont vient de quitter a été modifiée. 'Mettre l'action à exécuter. If Target.Column = 18 Then Target.Offset(0, 8) = Date End Sub Toujours zen |
je vais voir souvent sans modifier, c'est pour ca que je veux que ca écrive la date seulement si j'ai modifié la cellule....
merci pour l'idée.... toujours pas résolu......... Vince. |
Bonjour,
et l'option 'outils / suivi des modifications' ne te convient pas ? eric |
bonjour
je vais voir souvent sans modifier, c'est pour ca que je veux que ca écrive la date seulement si j'ai modifié la cellule.... C'est exactement ce que fait l'événement "change" car si tu regardes il ne se déclenche pas, seulement si tu modifies. Toujours zen |
essayez le code dans une feuille et vous verrez que la date ne s'écrit pas tout le temps avec mon code, il y a un probleme dnas le code en fonction de la facon dont on quitte la cellule modifiée...
de plus , il y a un probleme si on fait des selections multiples, ca fiat bugger le fichier... merci.
|
bonjour
la date ne s'écrit pas tout le temps avec mon code, il y a un probleme Je suis bien d'accord car tu as compliqué ton code inutilement et tes conditions empêchent le bon déroulement. Si tu laisses exécuter la seule condition sur la colonne cela fonctionnera mieux. En ce qui me concerne, ton code tel que tu l'a donné ne fonctionne jamais car les variables sont testées avec d'être valorisées. Comme le dit Éric, tu as essayé de mélanger du code qui reprend des valeurs de SelectionChange et dans ton cas cela ne parait pas s'imposer puisque tu veux la date si la colonne est modifiée. si on fait des selections multiples il faut aussi traiter toutes les occurrences modifiées (cas de copies multi-cellules) avec par exemple Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Object
For Each cel In Target
If cel.Column = 18 Then cel.Offset(0, 8) = Date
Next
End Sub
Toujours zen |
ca semble fonctionner beaucoup mieux,
merci les gars. C'est super ce site !!!! |
Résultats pour EXCEL : date de modification d'une cellule
Résultats pour EXCEL : date de modification d'une cellule
Résultats pour EXCEL : date de modification d'une cellule