Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à voir?

[anthoYS]

bonjour, 😀


j'ai des feuilles non concernée par ça mais on vois au milieu ça qui vient s'implanter sans raison...

est-ce le code qui est mal conçu ?

bref, je me demande, faut que je poste une copie du fichier ? il est volumineux et y'a des données confidentielles...
alors dites-moi comment je peux faire ?


Merci 😉
à+

 

[13GIBE59]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Bonjour,

j'ai des feuilles non concernée par ça mais on vois au milieu ça qui vient s'implanter sans raison...

Et qu'est-ce que tu vois, au juste ???😕

Parce que sans fichier ni image, alors là, on est pas devin sur le forum...

JB

 

[anthoYS]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

voici une copie d'écran :

 

[Victor21]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Bonjour, anthoYS, JB.

Je crains une faille temporelle. Appelez les frères Bogda...
...Ou peut-être une partie du code que vous avez pris le soin de ne pas nous soumettre.

 

[anthoYS]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Re,

Dans le module 2 du classeur :


Dim temps
Sub majHeure()
ThisWorkbook.Sheets("pisc").[H2] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub


Sub auto_open2()
majHeure
Range("G3") = ""


End Sub


Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Range("G3") = "L'heure est Stoppée"
End Sub




Sub essai()
nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
If nf = False Then Exit Sub
With ActiveCell
.ClearComments
.AddComment
.Comment.Shape.Fill.UserPicture nf
.Comment.Shape.Height = 250
.Comment.Shape.Width = 250
.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
End With
End Sub
Option Explicit
Sub Commentaires_police_noire()
Dim c As Range
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
For Each c In ActiveSheet.UsedRange
If Not c.Comment Is Nothing Then
c.Comment.Shape.OLEFormat.Object.Font.ColorIndex = 1
End If
Next
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub


à+

 

[Victor21]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Re,

La sub auto_close ne devrait-elle pas être dans le module de ThisWorkbook?
(Avis de bille en VBA)

 

[Efgé]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Bonjour à tous,

Juste de passage:
A quoi sert d'écrire dans une cellule que l'heure est stoppée uniquement quand le classeur est fermé ?

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
Range("G3") = "L'heure est Stoppée"
End Sub

Ensuite une Sub auto_open2() ne partira jamais à l'ouverture du classerur.
Pour finir

Range("G3") = ""

Ne fera que vider la cellule G3 de la feuille active (a savoir n'importe laquelle suivant celle affichée à la fermeture).
D'un autre coté, ce n'est pas grave puisqu la ligne

Range("G3") = "L'heure est Stoppée"

ne précise pas non plus la feuille.

Il y a une certaine logique à tout ça: je ne sais pas où j'écris, donc pour quoi me soucier de la feuille que je vide 🙄

Enfin bref notre ami anthoYS continu de coller des bouts de code sans chercher plus loin.

Sur ce je vous laisse, bon courage à tous.


Cordialement

 

[anthoYS]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

Re,


Bon ok, j'ai enlevé les données que je trouvais confidentielles, voici le fichier téléchargeable sur le lien hypertexte du site web "ci-joint" ci-dessous (il sera hébergé 21 jours sur ce site) :



Merci à vous encore !😉

 

[anthoYS]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

UP


si y'en a qui on ouvert mon fichier, qu'est-ce qu'il(s) en pense(nt) ?


Merci bien d'avance

je remet le lien du fichier :

problème avec "l'heure est stopée" qui s'affiche là ou il ne faut pas, y'a que l'onglet PIS qui est concerné il me semble ...

à+ 😉

 

[anthoYS]

Re : Pourquoi j'ai "l'heure est stopée" en plein milieu de feuilles qui n'ont rien à

UP

Bonjour,


si quelqu'un pouvais m'aider ...

je cherche désespérément à comprendre pourquoi ça m'affiche ça ... Je ne sais toujours pas le virer. Si j'efface ça revient dans quelques feuilles.

le fichier allégé disponible ici : https://www.excel-downloads.com/thr...eu-de-feuilles-qui-nont-rien-a-voir.20002108/


merci,
en attente d'une réponse ...


bonne fin de journée à tous !
à+