Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

DoEvents Explication ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion WILFRIED
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

WILFRIED

XLDnaute Impliqué
Bonjour à Tous (Toutes),

J'ai retrouver dans les archives des programmes télécharger sur ce forum une progressbar de THIERRY qui utilise la fonction DoEvents et un controle progressbar.

J'ai deux souci avec cette progressbar :

- Je ne peu pas l'insérer dans mon prog (Excel me dit qu'il n'est pas enregistrer)....

- Cet USF utilise la fonction DoEvents, je vois ce qu'elle fait mais je ne la comprend pas :
- Où placer l'instruction,
- Doit elle être associé à un autre Doevents,
-etc...

A+
 
Trier par date Trier par votes
Bonjour Wilfried, le Fil, le Forum

Arf Excel 97, huum...

Dans tes contrôles additionnels disponibles, je ne sais pas si tu trouveras :

Microsoft ProgressBar Control, Version 5.0 (S/P 2) (COMCTL32.OCX)

Microsoft ProgressBar Control, Version 6.0 (MSCOMCTL.OCX)

Disponibles sous Office 2000...

Bon Courage et journée
@+Thierry
 
Vote positif 0 Vote négatif
Hello José

Nan pas Byte, Integer, car si tu vas jamais en IV... Boum 256 !!! pas 255 !! lol

Mais ira-t'on jusque là !!! that is the question To Be IV or Not to Be IV lol

Bonne Journée
@+Thierry
 
Vote positif 0 Vote négatif
Salut Thierry,

Est-il possible d'installé ses Service Pack sur Excel 97?

Si oui sont-il aussi simple à insérer que ceux pour VB6.0?

Puis-je les trouver au même endroit que pour VB6.0?

En tous cas j'avait trouver ton USF sympa et apparament assez simple d'utilisation.

A+ et merci
 
Vote positif 0 Vote négatif
Re Wilfried, José; MrExcel, le Forum, Internet, la galaxie !


Good News Wilfried, dans ma hotte à 'barbabtrucs' !!!!

===> Lien supprimé Spécial Excel 97 !!!

Bon je file, pas rasé et pas encore au bureau lol
Bonne Journée
@+Thierry
 
Vote positif 0 Vote négatif
jmps écrit:

Salut à tous,

Bravo, bravo jmps 🙂 🙂 🙂
Ca m'avait échappé...comme quoi il faut sans cesse lire et relire son code ! Et apprès on s'étonne d'avoir à patcher Windows en permanence :evil:

Wilfried,

Je ne comprend pas bien ta question concernant les SP pour XL97. Si tu parles des mises à jour d'Office SP1 à SP3 (?) le mieux c'est d'aller les télécharger sur le site de M$ et de mettre à jour ta version d'office. Certains composants sont mis à jour.
Par contre je me permet de te déconseiller d'utiliser des objets hors environnement classique (j'entend ceux installés avec M$Office ou ADO). En effet si tu communiques ton programme à de tierces personnes va falloir penser à mettre à dispo une procédure d'install afin de ne pas oublier ces objets.
Le mieux c'est d'abord d'utiliser ce que M$ mets à notre disposition mais si tu veux un composant qui en fait un peu plus je te conseille vivement de rechercher dans un premier temps des comosants freeware.

A+
 
Vote positif 0 Vote négatif
VBA => X !!! Mort de Rire

Re Bonjour à tous,

José j'avais vu ton message sur une Variable Byte pour un numéro de Colonne mais j'étais trop à la bourre ce matin... Mais je viens d'y penser...

Voilà ce que ça donne :
Code: 
Sub TheColonneAsByte()
Dim Col As Byte

Col = Range('A7').End(xlToRight).Column - 1

MsgBox 'Donc Col devrait me retourner la bonne dernière colonne pleine sur la droite' & vbCrLf & _
       'sauf qui faut que j'enlève moins un à la dernière colonne trouvée' & vbCrLf & _
       'pour pas exploser la Variable Byte et qu'ensuite j'en tienne compte' & vbCrLf & _
       'pour rajouter un un à cette Byte si je veux pas me planter de Colonne ce qui ferait : ' & vbCrLf & vbCrLf & _
        Left(Cells(1, Col + 1).Address(0, 0), (Col + 1 < 27) + 2) & vbCrLf & vbCrLf & vbCrLf & _
        vbTab & 'PS en espérant qu'on tombe pas sur la Colonne ''Q'' mort de rire', vbInformation, '@+Thierry LOL'

End Sub

Et tout ça pour gagner un Octet (8 bits) sur une déclaration Integer... Wouarf LOL

Bon Appétit
@+Thierry

PS désolé pour Wilfried, ce fil par en C... olonne !!!
Ah alors la démo Lien supprimé c'est-y bon ?
 
Vote positif 0 Vote négatif
Re:VBA => X !!! Mort de Rire

Salut à tous,

jmps : Y a pas de mal, l'atout majeurs de ce Forum c'est aussi que les intervenants ne se prènne pas trop la tête et sont souvents drôle..

🙂

Donc un peu d'humour change la vie ...

J'ai lu dans une revus médical en patientant chez mon toubibe qu'il faut rire 15 minute par jour pour ralentir le viellissement (selon une étude Americaine : donc à prendre avec des '')..

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
J
  • Question Question
logiciel backest bourse à construire
Réponses
3
Affichages
1 K
JPA
J
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
116 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
M
  • Question Question
Userform de recherche + affiner
Réponses
4
Affichages
2 K
Maria
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…