Pourquoi je n'arrive pas à écrire sur la feuille excel

[baguidi]

bonjour encore le forum,

Voila le problème que j'ai c'est que j'ai utilisé cet ensemble de code


Private Sub UserForm_Activate()

Dim temps As Single

temps = Timer

Do
Do Until temps + 0.5 <= Timer
DoEvents
Loop

' Si la couleur de fond du Label11 est rouge alors le fond du Label11 est noir
' sinon le fond du Label1 est rouge
If Label11.BackColor = RGB(255, 0, 0) Then
Label11.BackColor = RGB(0, 0, 0) ' Mettre la couleur que tu veux
Else
Label11.BackColor = RGB(255, 0, 0)
End If
temps = Timer
Loop
End Sub

Il permet de faire scintiller le label11.

mais je contacte que lorsque je ferme le userform, je n'est pas la main pour travailler dans la feuille excel alors je me demande quoi faire. Cé comme si mme apres la fermeture du user par un bouton Fermer bien sur la macro continue de travailler sinon pourquoi je né pas la main pour travailler sur la feuille.

aidez moi

 

[Sylvain59]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Bonjour

Tom userform est il bien "unloadé" et non pas masqué

 

[abtony]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

bonjour,

il faut que tu ouvre vba et que tu stop la macro dans la barre d'outils.

c'est le timer qui continue a tournée
sinon faut faire une procédure pour arrêter le timer a 0

a ++

 

[baguidi]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Les amis SYLVAIN59 ET ABTONY JE SUIS CONTENT POUR VOTRE PROMPTITUDE.
IL SEMBLE QUE ABTONY A RAISON SI TU POUVAIS M'AIDER A ECRIRE CETTE PROCEDURE OU BIEN TOUT SIMPLEMENT ON ECRIT UN PETIT CODE QUE NOUS METTONS SOUS LE BOUTON FERMER DU USERFORM POUR ARRETER LE TIMER A 0 (ZERO)

 

[abtony]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

re



a mettre en entête de module = dim temps as string

a mettre dans la command bouton

On Error Resume Next
temps = 0 <= Timer
unload me

a ++

 

[Compte Supprimé 979]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Salut Baguidi

Merci de ne pas ECRIRE EN MAJUSCULE
C'est moins lisible et en plus en général on écrit comme ça
pour DIRE SON MECONTENTEMENT

Mais bon ce que j'en dis, c'était juste comme ça ...

 

[baguidi]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Bonjour le forum,
En fait je viens de faire ce que abtony m'a dit pour mon problème mais cela n'arrête toujours pas le problème c'est à dire que je n'arrive toujours pas à écrire sur la feuille excel mme quant j'écris :temps = 0 <= Timer et que je met dim timer as string en début de module.
y a t'il une autre solution chers amis du forum.
Merci.

 

[abtony]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Bonjour baguidi,

met nous en pièce jointe ton fichier sans données confidentielles et inférieur à 48ko

et dis sous quelle version d'excel tu travaille.

A ++

 

[baguidi]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Ok mon cher ami Abtony je te met le fichier en pièce jointe.

 

[abtony]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

re,

voila la modif et ça fonctionne chez moi

a++

 

[baguidi]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Bonjour Abtony,
Je viens de voir la nouvelle reformulation de mon fichier. J'ai constaté que vous aviez mis private sub userform_initialise au lieu de activate. sinon tjr avec activate je né pas la main pour écrire sur la feuille. Aussi jé remarqué que vous aviez mis un 0 au niveau de userfrom.show 0. Pourriez vous m'expliquer les raisons.
Merci quand mme pour votre aide cher Abtony.

 

[abtony]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Bonjour baguidi,

j'ai mis initialize avecun bouton en feuille 1, si on laisse activate on arrive pas a reprendre la main sur la feuille de calcul et y saisir des données.

userform.show 0 te permet avec le userform ouvert de saisir sur la feuille de calcul.

Par contre il faut cliquer deux fois sur le bouton qui reste enfoncé pour ouvrir l'userform, pourquoi, j'en sait trop rien.

j'ai essayer de trouvé l'explication a çà mais en vains.

Salutations

 

[baguidi]

Re : Pourquoi je n'arrive pas à écrire sur la feuille excel

Vraiment Abtony je ne sais comment te remercier je suis satisfait totalement.

je te souhaite un super week end et on se tient pour d'autres aventures