cellule vide et date

Bonsoir,

Étant très novice avec Excel, j'aimerai savoir si il existe un code ou une macro pour que :

A l'ouverture d'un fichier, je trouve une cellule vide dans une colonne comportant des données et y insérer la date et l'heure du jour....et ce à chaque ouverture du fichier

J'ai essayé avec la fonction "maintenant" mais....pas gagné :?

D'avance merci pour votre aide

Cordialement,

Bonsoir dnaedb,

Voici un code qui peux t'aider.
Le code se lance à l'ouverture du classeur et rajoute dans les cellules vides de la colonnes A la date et l'heure du jour.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Workbook_Open() Dim I As Integer     For I = 2 To 20 If IsEmpty(ThisWorkbook.Worksheets("test").Cells(I, 1)) Then Cells(I, 1) = Now Next I   End Sub

---

En attendant mieux.

Bonjour

Un autre exemple sur le même évènement.

Code:

---

1 2 3 4 5 6 7 8

' déclaration Dim objSheet As Worksheet   ' affectation Set objSheet = ThisWorkbook.Worksheets("Feuil1")   ' test sur la colonne A objSheet.Range("A" & objSheet.Range("A1").End(xlDown).Row + 1).Value = Now

---

Philippe

Bonjour,

Merci pour les réponses, mais j'ai un msg : "erreur d'exécution 9, l'indice n'appartient pas à la sélection"

J'ai copié ton code ds un module VBA mais rien ne passe à l'ouverture du fichier... :) désolé de t'embêter avec cela !

J'ai surement fait quelque chose qu'il ne fallait pas faire.. :(

D'avance merci

Didier

Tu dois adapter le code qu'on te fournit à ton fichier notamment ici au niveau du nom de ta feuille
le code est à mettre dans le module ThisWorkbook (et non dans un module standard)

Bonjour,

Citation:

---

Étant très novice avec Excel

---

autant commencer par le commencement ;)

Programmer efficacement Microsoft Excel

Les évènements du module objet ThisWorkbook, dans Excel

Les évènements dans la feuille de calcul Excel

cordialement,

Didier

Bonjour,

Merci à vous, cela fonctionne !

Avec les liens que vous m'avez fourni, je reviendrais....moins idiot la prochaine fois :)

Encore merci

Cordialement,

Didier