[VBA] Status Bar figée

Fermé

nostub - 28 févr. 2008 à 15:19
nostub - 29 févr. 2008 à 09:51

Bonjour tout le monde,
J'ai un problème assez ennuyeux en vba sur Excel:
j'ai un gros traitement à faire et pour qu'on ne pense pas que le programme à planter, j'affiche régulièrement (toutes les secondes environ) des messages dans une status bar, ce qui marche très bien sauf quand je clique sur une autre fenêtre (genre pour surfer sur le web...), ce qui a pour effet de bloquer la status bar qui n'affiche plus de nouveaux messages alors que le programme continue à tourner.

Merci d'avance à tout ceux qui pourront m'aider.

A voir également:

[VBA] Status Bar figée
Tray status - Télécharger - Divers Utilitaires
Battery bar - Télécharger - Informations & Diagnostic
Excel compter cellule couleur sans vba - Guide
Delivery status notification (failure) - Forum Mail
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

nostub
29 févr. 2008 à 09:51

Une petite idée???

Discussions similaires

usb device over current

Bonjour,

au démarrage le message suivant s'affiche et arr^te le PC
"usb device over current detected, plase remove over current usb device"

le pc ne demarre plus que faire?

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Usb device over current status detected

Bonjour a tous je viens d'acquérir une Carte mère p5q Asus et je peine a me débrouiller pour ce qui est de la connectique car les explications du schéma fourni avec la carte sont misérables!!
J'ai beau essayer tous les réglages,lorsque j'allume le pc,j'entend un bip....puis deux successifs et la le message d'erreur s'affiche :
USB DEVICE OVER CURRENT STATUS DETECTED
SYSTEME WILL SHUT DOWN IN 15 SECONDES

Et la impossibilité de faire quoique ce soit et le pc s'arrête au bout de 15 sec....

Je fais donc appel a vous pour pouvoir résoudre ce problème...
Merci beaucoup d'avance

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...