cellule vide et date

**dnaedb** · 25/02/2011, 18h56

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,

**doncamelo** · 26/02/2011, 01h08

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Invité · 26/02/2011, 04h24

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**dnaedb** · 27/02/2011, 10h32

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

**mercatog** · 27/02/2011, 11h24

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)