' VBA INDENTER By patricktoulon V 1.XX
'Version Beta 1.0 dans un simple fichier
'Date version 30/04/2024
'Mise à jour: version 1.1
'Date 02/05/2024
'Reprise sur l'indend des 'sub'
'Interface enjolivé (version1)
'Click sur checkbox code indenté sans passer par le bouton
'Mise à jour: version 1.2
'Ajout de la surveillance de déactivation des variable en cas d'erreur dans les workbooks eventuellement ouvert
'Mise à jour V 1.3
'Ajout des bouton dans le ruban dans l'onglet developpeur group macro
'2 Show interface
'2 Activer interface indenter
'Ajout du bouton exporter le module dans l'interface
'Mise à jour 1.4
'vba Indenter Interface
'Ajout de la mémorisation des preférences
'Correctif sur les code etendu sur plusieurs lignes par Le "& _"
'Mise à jour 1.5
'Ajout du mode de compilation des blocs in one line
'Mise à jour 1.6
'Correctif dans le mode decompliation de blocs in one line(mise en place d'exeption)
'Ajout du mode d'export en html avec coloration syntaxique
'Les boutons d'export sont maintenant dans un menu
'****************************************************************************************************
Tu vois quand tu veuxBonjour à tous
Correctif sur la partie décompilation des blocs in one line
en effet il faut faire des exceptions
Les boutons d'export/enregistrer sont dans un menu
Ajout de l'export en html avec coloration syntaxique (quelque coquilles subsistent)
pour un eventuel partage sur les forum en html
Regarde la pièce jointe 1196242
récapitulatif de l'evolution
VB:' VBA INDENTER By patricktoulon V 1.XX 'Version Beta 1.0 dans un simple fichier 'Date version 30/04/2024 'Mise à jour: version 1.1 'Date 02/05/2024 'Reprise sur l'indend des 'sub' 'Interface enjolivé (version1) 'Click sur checkbox code indenté sans passer par le bouton 'Mise à jour: version 1.2 'Ajout de la surveillance de déactivation des variable en cas d'erreur dans les workbooks eventuellement ouvert 'Mise à jour V 1.3 'Ajout des bouton dans le ruban dans l'onglet developpeur group macro '2 Show interface '2 Activer interface indenter 'Ajout du bouton exporter le module dans l'interface 'Mise à jour 1.4 'vba Indenter Interface 'Ajout de la mémorisation des preférences 'Correctif sur les code etendu sur plusieurs lignes par Le "& _" 'Mise à jour 1.5 'Ajout du mode de compilation des blocs in one line 'Mise à jour 1.6 'Correctif dans le mode decompliation de blocs in one line(mise en place d'exeption) 'Ajout du mode d'export en html avec coloration syntaxique 'Les boutons d'export sont maintenant dans un menu '****************************************************************************************************
aperçu d'un export html
Regarde la pièce jointe 1196243
voila c'est tout pour le moment(dit la voix)
continuez a me faire des retours en cas de bug ou coquilles
merci d'avance
| Déclaration dans les Add-Ins : OK | |
| Lancement du complément: Facile à lancer quand on l'a trouvé ... | |
| Première surprise, la roulette de la souris ne fait pas scroller | |
| Test Indentation |
Public Equipe As String
Private Sub UserForm_Activate()
Dim Fso As Object
Dim File As String
On Error Resume Next
If [Enable_Fanny] Then
Set Fso = CreateObject("Scripting.FileSystemObject")
File = [File_Fanny].Value ' Identification de la musique à jouer
If Fso.FileExists(File) _
Then PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC ' On ne joue la musique que si le fichier existe
Set Fso = Nothing
End If
If Equipe <> vbNullString Then
Me.Caption = "L'équipe " & Equipe & " est Fanny !!!"
Me.Repaint ' On affiche l'image
Application.Wait Now + TimeValue("00:00:02") ' On attend 2 secondes
End If
Unload Me ' on décharge l'image
End SubPublic Equipe As String
Private Sub UserForm_Activate()
Dim Fso As Object
Dim File As String
On Error Resume Next
If [Enable_Fanny] Then
Set Fso = CreateObject("Scripting.FileSystemObject")
File = [File_Fanny].Value ' Identification de la musique à jouer
If Fso.FileExists(File) _
Then PlaySound File, ByVal 0&, SND_FILENAME Or SND_ASYNC ' On ne joue la musique que si le fichier existe
Set Fso = Nothing
End If
If Equipe <> vbNullString Then
Me.Caption = "L'équipe " & Equipe & " est Fanny !!!"
Me.Repaint ' On affiche l'image
Application.Wait Now + TimeValue("00:00:02") ' On attend 2 secondes
End If
Unload Me ' on décharge l'image
End SubBonsoir Patrick,
