Complément (Vba Indenter Interface)

Complément (Vba Indenter Interface) V 3.1 B

patricktoulon

XLDnaute Barbatruc
Bonjour @JPaul78
merci pour ton retour je vais vérifier ça (encore un point ou virgule pas à sa place) 🤣
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
bon ben j'ai vérifié et c'est bon
donc tu a du toucher quelque chose ou tu n'a pas pris la version 2.0 C
ou encore tu es allé toucher dans le calendar
je me demande bien ce que tu peux y faire ;)
d'abords dans l'interface
1715669647017.png



ensuite direct dans le module


1715669501895.png


 

fanch55

XLDnaute Barbatruc
@fanch55
y a qu'a demander
pour le coup histoire de bien rendre la chose difficile ,j'ai explosé l'indentation à la base
j'ai ajouté des lignes de code avec coupure" _"
regarde le résultat

Version 2.0 C
Salut Pat, j'ai téléchargé la version 2.0C .
A ce propos, peux-tu mettre la bonne version dans Const vers As String = "V 2.0"
Je m'interroge à chaque fois sur la version que j'ai ..... 😵‍💫

Test de la 2.0C :
Pour le design,
c'était peut-être pareil dans les anciennes versions, mais le texte de réclame n'est pas ( ou plus ) centré au lancement :
1715676349750.png

Test Underscore
Module source
: ( mince, toute l'indentation disparait avec l'outil citation .... 😡 Je remplace par un Rich Box)
Enrichi (BBcode):
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU = &H80000
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Sub RemoveCloseButton(frm As Object)
#If VBA7 Then
    Dim lngStyle As LongPtr
    Dim lngHWnd As LongPtr
#Else
    Dim lngStyle As Long
    Dim lngHWnd As Long
#End If

    lngHWnd = FindWindow(vbNullString, frm.Caption)
    lngStyle = GetWindowLong(lngHWnd, GWL_STYLE)

    If lngStyle And WS_SYSMENU > 0 Then
        SetWindowLong lngHWnd, GWL_STYLE, (lngStyle And Not WS_SYSMENU)
    End If

End Sub

Module indenté:
1715677332968.png


La première ligne a disparu !!!!
( pour tous les modules .... ) 😵‍💫
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
Bon je confirme l'indentation monstrueuse et du au fait que le "#else " n'etait pas pris en compte
par contre la première ligne là je suis perplexe
je ne supprime rien j'ajoute des espaces c'est tout
l'intro n'est plus centré parce que comme je remet les checkbox a jour a l'ouverture(comme précédemment enregistré et comme il agissent sur le bouton indenter dans le module forcement il endente le texte qui est présent ca va changer ça
 

patricktoulon

XLDnaute Barbatruc
je te montre avec la version 3.0 mais c'est pareil ce sera le même moteur
dans la version 3 c'est le ruban qui change c'est tout
j'ai pris plus de temps pour vous faire un joli truc
demo.gif


je regarde pour la ligne manquante et je met a jour la version 2.0
 

patricktoulon

XLDnaute Barbatruc
re
bon quand on regarde le html but
on se rend compte que la ligne manquante n'est pas dans des balises P
ce qui fait qu'a la restitution elle n'est plus la
je cherche le correctif et je reviens
en attendant quand on rajoute un vbcrlf avant le texte du code ca marche ca ajoute une ligne vide en haut c'est tout
mais je cherche la correction solide
 

patricktoulon

XLDnaute Barbatruc
version 2.0 D
tu peux la télécharger et jai changé le nom avec le "D"
1ère ligne corrigée
#else" ajouté
indentation régulière des ligne avec underscore
 

JPaul78

XLDnaute Junior
bon ben j'ai vérifié et c'est bon
donc tu a du toucher quelque chose ou tu n'a pas pris la version 2.0 C
ou encore tu es allé toucher dans le calendar
je me demande bien ce que tu peux y faire ;)
d'abords dans l'interface
Regarde la pièce jointe 1196716


ensuite direct dans le module


Regarde la pièce jointe 1196715

Be je dois avoir le mauvais œil car j'avais effectivement la 2.0 et j'ai donc chargé la 2.0 D (Vba Indenter Interface Patricktoulon V 2.0 D.xlam) et j'ai le même soucis (qui pour moi n'en n'est pas véritablement un car reprendre 0,01% c'est rien!) j'utilise Excel 2021... je précise que j'ai la version Version:4.2.3.3 du 30/09/2020 (c'est ce qui est marqué dans les commentaires) Je précise que je ne l'ai pas bricolé de peur de me faire engueler :rolleyes:
c'est quoi ton message @JPaul78
Attention cela ne plante pas j'ai juste les alignements qui se font "mal" pour les select case imbriqués. comme montré dans la version 2.0. Pas spécialement un pb pour moi mais qui semble fonctionner sur ta confing. J'ai fermé Excel puis relancé mais ce pb reste.
 

patricktoulon

XLDnaute Barbatruc
déja a tu supprimé la version precedente de tes addins
si tu ne l'a pas fait c'est toujours la versions 2.0 qui tourne

renvoie moi la version du calendar que tu utilise que je teste
peut être y a il eu des modifs
sinon les versions n'ont rien a voir puisque je travaille en html et texte ce qui est universel
envoie la patate je suis curieux
 

JPaul78

XLDnaute Junior
déja a tu supprimé la version precedente de tes addins
si tu ne l'a pas fait c'est toujours la versions 2.0 qui tourne

renvoie moi la version du calendar que tu utilise que je teste
peut être y a il eu des modifs
sinon les versions n'ont rien a voir puisque je travaille en html et texte ce qui est universel
envoie la patate je suis curieux
Je te joint la version de calendar que j'utilise. j'y ai fait 1 modifs : j'ai transformer les butées annuelles que tu as mis à 1800 et 100, en variable car j'avais besoin de bornes différentes entre les garages donc j'ai ajouté 2 lignes dans UserForm_Activate et modifié les lignes dans le module config; elles sont signées "modif jpb"
un dernier élément après avoir bien supprimer le complément et remis le nouveau, si je coche l'option "case (retrait)" tout se déroule comme prévu les 2 indentations sont bien en place.
 

Pièces jointes

  • Calendar.zip
    14.8 KB · Affichages: 2
Dernière édition:

fanch55

XLDnaute Barbatruc
Version 2.0d :
Module source :
VB:
Option Compare Text
#If VBA7 Then
    Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
            (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare PtrSafe Function EnumWindows Lib "user32" _
            (ByVal lpEnumFunc As LongPtr, ByVal Param As Long) As Long
    Declare PtrSafe Function IsWindowVisible Lib "user32" _
            (ByVal hwnd As Long) As Long
    Declare PtrSafe Function EnumDisplayMonitors Lib "user32" _
            (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As LongPtr, dwData As Long) As Long
#Else
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
            (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function EnumWindows Lib "user32" _
            (ByVal lpEnumFunc As Long, ByVal Param As Long) As Long
    Declare Function IsWindowVisible Lib "user32" _
            (ByVal hwnd As Long) As Long
    Declare Function EnumDisplayMonitors Lib "user32" _
            (ByVal hDC As Long, lprcClip As Any, ByVal lpfnEnum As Long, dwData As Long) As Long
#End If
Dim Results     As Dictionary
Dim Criteria    As String
Sub Msg_Verrue()
    UserConfirm _
                "Proposition pour le nom du concours du jour : " & _
                Format(Now, "DDMMYYYY") & "_" & Environ("COMPUTERNAME"), , _
                "vous pouvez faire Ctrl+v (coller)", _
                "dans la zone ", _
                """Tapez ici le nom de votre nouveau concours""", _
                "de Gc_Concours", , _
                "OK", "IMG"

End Sub

Module indenté:
1715716226865.png
 

patricktoulon

XLDnaute Barbatruc
re
la j'avoue que je suis perplexe
il n'y a aucune raison que le résultat soit différent chez toi
dit moi tu est bien en courrier new(turc) dans ton VBE ?
outils/option/format de lediteur/police
demo.gif
 
Dernière édition:

Statistiques des forums

Discussions
312 556
Messages
2 089 588
Membres
104 215
dernier inscrit
Jean Michl