[aubelix]

Bonjour à tout le Forum.

Une fois de plus, je sollicite vos compétences.
Pour info le mot de passe du fichier est: XLD
J'ai glané dans le Forum diverses solutions pour développer mon application.
Elle est loin d'être parfaite, mais fonctionnelle. Il y'a un Bug lors de l'affichage
des cellules qui clignotent. Le clavier est bloqué, je ne peux plus rien saisir sauf
si j'arrête la macro par "Ctrl + Pause". Elle doit boucler.

- Où est le problème ?
- Comment détecter que le clavier est en majuscules pour afficher un texte dans l'USF ?
- Se servir de l'UserForm1 pour modifier ou saisir de nouvelles données.

Par avance merci à tous de votre aide.

Cordialement

[aubelix]

Rebonjour à tous.
Ci-joint fichier modifié, pour qu'il puisse passe en pièce jointe.
Je l'avais trop dégraissé...

Cordialement.

[excalibur]

bonjour aubelix le forum un peu usine a gaz ton fichier !! tu peus utiliser instruction SendKeys ou pour faire simple option compare text en haut dans ton module accepte minuscule ou majuscule . par contre ton label qui clignote le mieux c est de le supprimer je te mets un zip qui marche sous excel 2003,2007 avant je sais pas a adapter a tes besoins

[excalibur]

rebonjour le fil une macro pour detecter clavier en majuscules

Option Explicit
Public Declare Function GetKeyState Lib "user32" (ByVal iVirtualKey As Integer) As Long
Public Function Is_Majuscule() As Boolean
Is_Majuscule = (&H1 And GetKeyState(vbKeyCapital)) <> 0
End Function
Sub MACRO1()
Dim i As Variant
i = (&H1 And GetKeyState(vbKeyCapital)) <> 0
If i = True Then MsgBox "attention AUBELIX clavier en majuscules"
End Sub

[aubelix]

Bonjour Excalibur et le forum.

Merci pour tes réponses. Je vais essayer les tester.
Je te tiendrai au courant...

Si quelqu'un avait la réponse pour le clignotement qui boucle
et empêche de saisir au clavier, je suis preneur.
Par avance merci.

Cordialement.

[aubelix]

Bonjour Excalibur et le forum.

J'ai testé la détection touche majuscule. Ca fonctionne bien.
Merci pour ton aide.

Le bug du timer qui boucle, n'est toujours pas résolu.
J'ai trouvé les mêmes exemples dans le forum, tous bouclent.
Alors avis aux amateurs de VBA pour réoudre ce problème.
Car je trouve sympa le fait que le texte clignote.
Comment arrêter le timer en validant par OK ou Fermer.

Par avance merci.
Cordialement.

[bhbh]

Bonjour,
une petite question : à quel moment, cela doit clignoter?

[excalibur]

bonjour le fil ce qui faut comprendre quand tu lances ton timer a quel moment?? donc une macro il va etre difficile de faire autre chose dans excel tant que celle ci ne soit pas termine

[aubelix]

Bonsoir Bonjour Excalibur, bhbh et le forum.

Merci pour votre intérêt à mon problème.
Comme vous pouvez le voir dans le dernier fichier joint, c'est dès l'apparition
de l'UserPWD que le texte "Entrez votre mot de passe clignote".
Après avoir entré XLD et avoir validé par OK, théoriquement la feuille DataBase s'affiche
et me donne la main pour saisir ou modifier des données.
Comme la macro boucle, je n'ai pas accès aux cellules, je n'ai pas la main.
Je suis obligé de l'interrompre par "Ctrl + Pause".
Voici le code et lors du débbugage, l'arrêt se fait sur Loop
Faites la manip et vous le constaterez de vous même.

Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
If Label2.Visible = True Then Label2.Visible = False Else Label2.Visible = True

a = Timer
Loop

Me.MP.SetFocus

End Sub


Dans l'attente d'une solution...

Cordialement.

[bhbh]

Re-,
une solution quelque peu orthodoxe...

Dans le UserForm_Activate, tu rajoutes ceci :

            
.....
DoEvents
If Fin Then Exit Sub
.....

Et dans le module 1, tu rajoutes cette déclaration :

Option Explicit
Public Fin As Boolean

et enfin, dans le command button, rajoute en début de code :

Fin = True

[abtony]

Bonjour tout le monde,

je permet d'intervenir sur ce fil, car je chercher également une solution en vain.

donc bhbh, un grand merci pour ta solution qui fonctionne a merveille.

Salutation

[aubelix]

Bonsoir le BhBh et tout le forum.

Tout d'abord mille mercis pour ton aide. Le bug est corrigé...
C'est la deuxième fois que j'essaie d'envoyer ce message.
Depuis que j'ai installé la mise à jour de XP SP3, rien ne passe !

Aussi si cette fois ça passe, je voulais aussi remercier
tous les bénévoles de ce site

Cordialement.