Incrémenter en minute

Bonjour à tous,

Je permets de faire appel à votre aide car étant novice sur VBA, j'ai encore du mal à tout comprendre et dans le programme que voici, j'ai divers messages d'erreurs dont celui lié à la ligne surlignée (Erreur incompatibilité de type)

Avez vous des idées pour corriger cette erreur s'il vous plait ?

Je vous remercie d'avance pour l'attention portée à ma demande

PS: Si vous voyez d'autres erreurs dans mon codage n'hésitez pas

Cordialement

Bonjour,

En ce qui concerne la ligne surlignée en jaune je te propose

Format(Time, "hh" & " " & "n") qui te donnera "15 38" (qui est l'heure et minutes à laquelle j'ai écrit ce post) dans la cellule A1. Est ce cela convient ?

 Range("A1").Value = Format(Time, "hh" & " " & "n")

Quant à la suite ton fichier aurait été le bien venu

Bien cordialement
Jacky

Bonjour Jacky,

Je vous remercie tout d'abord pour votre intervention. J'ai testé votre proposition et j'ai bien un résultat, l'heure actuelle s'affiche bien dans les cellules demandées.

Cependant, je crois le programme ne fait que ça et ne prend pas en compte les instructions suivantes, car dans le cas présent à 8h26, soit 26 minutes de l'heure, il aurait du s'arreter de tourner et afficher un message ce qui n'a pas étét le cas et seulement l'heure actuelle s'est affichée.

Avez vous une idée d'où vient le problème ?

Je vous mets le fichier ci joint, il est dans le module 2

Bonjour,

Je vous ai envoyé un Message Privé
A+