Discussion :

[saiddje]

Bonjour
J'ai créé une macro pour afficher automatiquement la date du jour dans une cellule d'une colonne donnée. Mais ça ne fonctionne pas, la macro bug à un moment donné. Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 2 To 100
If Cells(i, "A").Value <> "" And Cells(i, "B") = "" Then Cells(i, "B").Value =Date & " " & Time
Cells(i, "B").NumberFormat = "m/d/yyyy"
 
Next
Range("B:B").EntireColumn.AutoFit
 
End Sub

[Philippe Tulliez]

Bonjour,

J'ai créé une macro pour afficher automatiquement la date du jour dans une cellule d'une colonne donnée

Ce n'est pas dans une cellule données mais bien dans une plage complète (100 lignes )

Mais ça ne fonctionne pas, la macro bug à un moment donné

Mais encore, quel est ce moment donné et surtout lorsque le VBA bogue, en général il envoie un message d'erreur avec un numéro ET un message assez explicite. Cela aiderait de savoir quel message est envoyé et à quel moment dans la boucle (valeur de I) cela se passe.

Autre interrogation.
Vous utilisez la procédure événementielle Worksheet_Change et vous ne vous préoccupez pas de son argument Target qui permet entre-autre de savoir le nombre de cellules concernées par changement grâce à sa propriété Count ou sur quelle colonne ou ligne ou les deux a eu lieu de changement.

Un peu plus de précisions nous aidera à apporter une réponse pertinente

[saiddje]

Bonjour Philippe,
voici le message d'erreur :

Erreur d'exécution :
La méthode " NumberFormat" de l'objet Range a échoué

Merci pour votre aide

[Tête de chat]

Bonjour,

je ne vois rien dans le numberformat que tu nous montres qui puisse attirer les foudres d'Excel

Comme l'a dit l'excellent Pierre Fauconnier que je salue, c'est bien d'avoir le message ET là où ça plante.

Je soupçonne peut-être un autre code événementiel qui serait appelé en cascade ? Ou que le code qui plante n'est pas celui qui est collé ici

À noter déjà que ton sub est appelé 2 fois : le dépôt de la date provoque un autre événement change qui relance le sub. Et si tu fais un copier/coller de 10 valeurs dans la colonne A il sera appelé 11 fois...
Ajoute un

Code :

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

Application.EnableEvents = False

au début du sub (et un =true) après pour traiter ça. Attention qu'en cas d'erreur il restera à false donc à terme intégrer ça dans une gestion d'erreur pour que le retour à true soit fait systématiquement

[saiddje]

en pj le message erreur
Merci
c'est la ligne Cells(i, "B").NumberFormat = "m/d/yyyy" qui est en surbrillance jaune

[Philippe Tulliez]

Bonjour,
C'est effectivement curieux. Quelle est la valeur de la variable I ?

Pas certain que cela vienne de là mais je constate que la ligne Cells(i, "B").NumberFormat = "m/d/yyyy" n'est pas incluse dans le SI donc le formatage se fait sur toutes les lignes. Qui a t'il dans la celleule B & i ?