Bonjour, Le résultat est là, grand chapeau pour vous monsieur. Jusqu'au moindre détail vous êtes un grand perfectionniste. J'ai l'habitude de laisser entre deux Sub un espace de 2 ou 3 lignes, pour isoler les Sub et mieux les repérer. Ex: normaliser les espaces entre les SUB. Sub Calculer() code End Sub . . Sub Recalculer code End Sub Je ne sais pas si ça serait possible dans de futures versions éventuelles . Encore merci.
@patrictaratata55602 ай бұрын
Oui c'est une idée il serait intéressant de pouvoir normaliser les espaces entre les subs et les fonctions afin d'éviter des sauts de ligne complètement inutiles et sale dans un code merci pour l'idée je vais réfléchir sur la question
dipo bientot sur excel-downloads.com/resources/complement-vba-indenter-interface.1537/updates
@eliaselias26052 ай бұрын
Merci pour ton partage. Il serait très utile d'ajouter le lien vers la discussion.
@patrictaratata55602 ай бұрын
Bonjour Elias oui en effet il serait bien de pouvoir mettre le lien sur la discussion sur Excel download
@johnhendrick87942 ай бұрын
Trop fort! 💯👍👏
@patrictaratata55602 ай бұрын
Merci pour le compliment mais en fait c'est très simple c'est un calendrier que j'ai fait dans un userform autonome complètement autonome pour s'en servir il suffit comme je le montre dans la vidéo de le faire glisser dans votre projet et de l'appeler dans les événements soit des cellules soit des contrôles texte box dans les userform de la même manière que je le fais objet= Calendar.Showx(Objet,2,0,1) Termiiné C'est un projet qui a démarré en 2013 2014 quand avec les versions 2016 et 2000 exetera exetera il y avait plus de calendar disponibles alors je l'ai fait depuis il ne cesse d'évoluer en fonction de vos demandes sur les forums développée.com ou Excel downloads voir même sur exel pratique.com Au fur et à mesure des années selon vos demandes j'ai rajouté des langues j'ai rajouté plein d'options et depuis peu j'ai rajouté le Skinner
@rodriguekinda92552 ай бұрын
C'est magnifique çà
@rodriguekinda92552 ай бұрын
Une autre question, es ce possible d'afficher la date du jour en fonction des cases cocher a la place de 1? Merci d'avance !!!
@rodriguekinda92552 ай бұрын
Bonsoir professeur merci bien. J'ai pu afficher les checkbox, mais les items ne s'affiche pas.
@rodriguekinda92552 ай бұрын
Magnifique tuto. Merci bien professeur. Mais comment faire pour mettre des checkbox dans la liste box. Merci d'avance
@patrictaratata55602 ай бұрын
Bonjour pour mettre une listbox acec des checkboxs il faut mettre sa propriété ListStyle à 1 Tu vas dans le VBE tu cliques sur ton contrôle liste box tu vas dans les propriétés tu cherches la propriété liste style tu es dans la combo box à droite tu choisis le 1 soit fmlistStyleOption Voila :)
@rodriguekinda92552 ай бұрын
@@patrictaratata5560 Merci bien professeur
@cektools2 ай бұрын
Bonjour Patrick, Grand merci pour tes efforts et pour la gratuité aussi. Bonne continuation.
@patrictaratata55602 ай бұрын
De rien c'est un plaisir j ai vu que tu avais regardé la version 1.3 je suis à la version 2.0 maintenant bientôt disponible en téléchargement sur Excel download
Félicitations pour ton super travail. Et merci pour le partage. Une proposition : Est ce possible d'avoir le mode sombre dans le module, a mon âge je me tape des lumens en plein yeux. Encore merci et bonne continuation.
@patrictaratata55602 ай бұрын
Bonjour@cektools merci pour tes encouragement le mode sombre fait partie des paramètres dans l'éditeur VBE et n'est absolument pas commandé par aucune application d'indentation maintenant effectivement je peux essayer de trouver comment commander par VBA dès que j'ai trouvé quelque chose je pense que cette option sera rajoutée dans mon applicatif La version finale arrive dans les ressources Excel download
Hi Patric - The requested resource could not be found.
@MJLCabral3 ай бұрын
Salut Patric, encore une fois J'ai trouvé un petit problème et cela concerne l'introduction, même involontaire, d'un espace dans la combobox. Même si je supprime cet espace, je ne peux pas récupérer les données du tableau et si je clique sur le bouton "ajouter", une ligne vide est ajoutée au tableau, même si elle n'apparaît pas dans la combobox . Comment puis-je remédier à ce petit problème, c'est-à-dire que si j'entre un espace dans la combobox puis que je le supprime, tout le contenu du tableau est répertorié dans la combobox ?
@patrictaratata55603 ай бұрын
Private Sub CommandButton1_Click() If ComboBox1.ListCount > 0 Then Exit Sub If Trim(ComboBox1.Value) = "" Then Exit Sub Set l = [tableau1].ListObject.ListRows.Add l.Range = ComboBox1.Value reliste End Sub
@MJLCabral3 ай бұрын
@@patrictaratata5560 Cette solution résout le problème de ne pas écrire de lignes vides dans la table, mais je ne vois plus quel est le contenu de la table dans la combobox, après avoir inséré un espace et l'avoir supprimé.
@patrictaratata55603 ай бұрын
je pige pas ton problème je n'arrive pas à le reproduire viens sur le lien et explique toi clairement étape par étape
Bonjour Patrick, ne pouvant utiliser de complément Office sur ma version professionnel, j'ai cherché un calendrier et je suis arrivé sur ta vidéo. Ta vidéo est très explicite et propose l'option Thème créator en option. Ton Calendar est vraiment Tip-Top. Un grand Merci pour ton travail et le partage de connaissances.
@patrictaratata55605 ай бұрын
Merci @jpsonicHD ca fait plaisir un retour comme ça
je vous met les codes ici Public Sub RollIN_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ActiveSheet.Shapes("Infobulle").Visible = True ActiveSheet.Shapes("rollin").Visible = False With ActiveSheet.Shapes("rollout") .Visible = True .Top = 0 .Left = 0 .Width = ActiveWindow.VisibleRange.Width .Height = ActiveWindow.VisibleRange.Width End With End Sub Private Sub RollOut_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ActiveSheet.Shapes("infobulle").Visible = False ActiveSheet.Shapes("rollin").Visible = True With ActiveSheet.Shapes("rollout") .Visible = False .Top = ActiveSheet.Shapes("rollin").Top - 5 .Left = ActiveSheet.Shapes("rollin").Left - 5 .Width = ActiveSheet.Shapes("rollin").Width + 10 .Height = ActiveSheet.Shapes("rollin").Height + 10 End With End Sub
@patrictaratata556011 ай бұрын
e lien vers le fichier excel-downloads.com/resources/collection-fausse-boite-de-dialogue-patricktoulon-episode-1-le-calendrier-modal.1119/
@MJLCabral Жыл бұрын
C'est de plus en plus spectaculaire. Il ne reste plus qu'à montrer, en haut de l'Userform, à quoi ressemble le ruban, WYSIWYG, :)
@alxb6274 Жыл бұрын
Super les nouveautés 👍👍🔥🔥 Je veux bien les textbox désactivé selon l'élément et son contexte sur Mac, c'est. tellement Top 😉
@MJLCabral Жыл бұрын
Je vous ai envoyé un exemple de code, pour OnActionButton ; GetVisible et GetEnabled, ce type de procédure peut être étendu à presque tous les autres contrôles
@MJLCabral Жыл бұрын
Quelle est la raison pour laquelle la version 4.9.9 n'a pas la possibilité de mettre une image, n'importe quelle image, sur les boutons ?
@MJLCabral Жыл бұрын
Quand la version 4.9.7 sera-t-elle disponible?
@MJLCabral Жыл бұрын
Est-il possible de partager ces exemples ?
@patrictaratata5560 Жыл бұрын
Bonjour @MJLCabral qu'entends tu par partager ?
@MJLCabral Жыл бұрын
Bonjour @@patrictaratata5560 mettre à disposition, ...., c'est ce que je veux dire par partager. Le français n'est pas ma langue maternelle donc je dois mal utiliser le mot partage
@patrictaratata5560 Жыл бұрын
@@MJLCabral apartir du moment ou c'est gratuit tu peux le distribuer si c'est sur un site payant non
@MJLCabral Жыл бұрын
@@patrictaratata5560 Je ne me suis pas fait comprendre, je ne veux ni partager ni vendre ton travail, je ne ferais jamais ça !!! Ce que j'ai demandé, c'est si vous ne fournissez pas les exemples que vous faites. Lorsque vous montrez comment créer une Combobox, vous générez un fichier, ce que je vous demande, c'est si vous pouvez partager ces exemples