Contenu récent par Dranreb

Bonjour. Ma solution ne nécessite ni l'un ni l'autre car elle ne fonctionne pas dans une boucle d'un procédure qui ne peut ainsi rendre la main jusqu'à ce qu'elle soit terminée.

Notez que pour faire clignoter 2 fois plus rapidement le label du nom de mois en cours vous pouvez écrire la Sub UserForm_Activate comme ça : Private Sub UserForm_Activate() Set CTrl = Me("Label" & Month(Date) + 325) RythClign.Lancer 4 End Sub

Tenez, j'ai fait clignoter comme ça un Label pris au hasard dans l'UserForm de votre classeur joint.

Bonsoir. Si ça doit clignoter indéfiniment, pour ne pas empêcher l'UserForm de fonctionner, utilisez un objet Rythmeur du classeur joint. Initialisez le dans Sub UserForm_Initialyze et lancez le dans la Sub Userform_Activate. Implantez dans le projet VBA de votre classeur le module de classe...

Non, seulement 16 lignes. D'avantage, ce serait en incluant la programmation de service, mais dans ce cas, ce serait considérablement plus que 130 lignes en comptant aussi la monstrueuse programmation en langage machine de la bibliothèque Excel, qui est en fait une importante partie du programme...

Bonjour. Vous pouvez faire : Set RngAG = Intersect(ActiveCell.EntireRows, ActiveSheet.[A:G]).Resize(100)

Bonjour. Vous avez écrit : new_cli_date = Sheets("BLLignes_X_Ecran_Livraison").Cel1s(lig_maj, 6).Value au lieu de : new_cli_date = Sheets("BLLignes_X_Ecran_Livraison").Cells(lig_maj, 6).Value

Bonsoir. Et que pensez vous de la stratégie de mon CLsCAsContacts.xlsm. Elle fait un peu ça, non ? Une ComboBox n'est pas essentiellement faite pour toujours utiliser seulement sa liste, c'est avant tout une zone de saisie.

Je joins à tout hasard mon modèle de consultation et mise à jour d'un tableau comportant à peu près ces informations Vous verrez c'est bien plus simple dans l'Userform d'application. La programmation de service, c'est autre chose évidemment, mais elle sensée ne jamais nécessiter aucune...

Bonjour. Intervertissez peut être ces deux instructions Parce que la 1ère renseigne la dernière ligne en E et la seconde renseigne la ligne qui suit la dernière

N'hésitez pas à me poser des questions pour vous aider à comprendre … Remarque: il y a des commentaires explicatifs pour chaque méthode dans le module de classe ListeAléat, notamment pour les deux premières qui sont justement les seules utilisés ici: Init et Aléat.

Bonsoir. Voyez si ça vous convient.

Bonjour. S'il existe des décalages spéciaux pour le nombre de tables, l'affichage du nombre de tours sans répétition de rencontres dans les décalages standards me semble prêter à confusion du fait qu'il devient caduque. Je pense qu'il vaut mieux afficher dans ce cas: "Les décalages ci-après...

Bonjour. Apparemment la question ne se pose pas: ces règles précisent qu'elles ne s'appliquent pas à plus de 7 tours et même 5 seulement pour 6 tables et 6 pour 8 tables. J'ai intégré ces exceptions dans le classeur.

Oui, c'est plus clair. Peut être : Sub Image13() ActiveSheet.Shapes("Image 98").Visible = Range("B13").Value And ActiveSheet.Shapes("Image 80").Visible Jointifs 43, 67, 4217, 80, 98 End Sub