Complément (Vba Indenter Interface) V3.1.C Fx4

fanch55

XLDnaute Barbatruc

• 20 Mai 2024

• #121

patricktoulon à dit:

au fait tu sais pas il y a une autre nouveauté majeure
reste assis hein !!
Regarde la pièce jointe 1197224

Cliquez pour agrandir...

Ah bin en voilà une bonne nouvelle bien pratique !!!!

 

patricktoulon

XLDnaute Barbatruc

• 20 Mai 2024

• #122

tu le vois comment le sort

 

patricktoulon

XLDnaute Barbatruc

• 20 Mai 2024

• #123

et allez !!!
pour le coup une option en plus les ".sort"

 

fanch55

XLDnaute Barbatruc

• 20 Mai 2024

• #124

patricktoulon à dit:

et allez !!!
pour le coup une option en plus les ".sort"

Cliquez pour agrandir...

Ça me va bien le normalise ...
Mais c'est une expression personnelle ....

Dans le cadre absolu permis par le langage, on peut même écrire la ligne de code ainsi :

VB:

    [TRI_RESU]. _
        Resize([NBJR]). _
            Sort _
                Key1:=Range("L5"), Order1:=xlDescending, DataOption1:=xlSortTextAsNumbers, _
                Key2:=Range("P5"), Order2:=xlDescending, DataOption2:=xlSortNormal, _
                Key3:=Range("D5"), Order3:=xlAscending, DataOption3:=xlSortNormal, _
                Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

De toute façon, l'indentation est là pour "aider" :
on peut toujours modifier les lignes à sa convenance par la suite .

 

patricktoulon

XLDnaute Barbatruc

• 20 Mai 2024

• #125

purée la il ya deux regles
les 3 premières ligne décaler à au centre de la précédente et le reste à l'underscore
la désolé je peux pas hein
par contre je peux au centre de la précédente si c'est mieux

il me reste plus qu'a trouver le moyen pour le scroll en 64 et c'est prêt
puisque maintenant le scrol est partout dans l'environnement

 

patricktoulon

XLDnaute Barbatruc

• 20 Mai 2024

• #126

a recherche en avant en arrière

 

patricktoulon

XLDnaute Barbatruc

• 21 Mai 2024

• #127

patricktoulon a mis à jour Complément (Vba Indenter Interface) avec une nouvelle entrée de mise à jour:

Vba Indenter Interface v 3.1

Bonjour à tous
voici la mise à jour 3.1 comme promis

DU NOUVEAU RIEN QUE DU NOUVEAU​

1. Nouveau ruban(plus vrai que nature)
2. Nouveau moteur(bimoteur(html/string))beaucoup plus puissant
3. plus d'option d'indentation et une normalisation des cas particuliers
4. un moteur de...

Cliquez pour agrandir...

Lire le reste de cette entrée de mise à jour...

 

Dudu2

XLDnaute Barbatruc

• 22 Mai 2024

• #128

Très impressionnant ! Bravo !

 

Dudu2

XLDnaute Barbatruc

• 22 Mai 2024

• #129

Comme le fichier de @patricktoulon est un .xlam (un Complément ou Addin) , je vous passe un petit classeur que j'utilise pour gérer les Compléments rapidement sans aller dans le répertoire de stockage ni dans les options.

Pour les très rares personnes n'utilisant pas le répertoire standard de stockage des Compléments, la constante AlternativeUserLibraryPath permet de le spécifier.

 

Pièces jointes

• Liste des Compléments.xlsm

  49.9 KB · Affichages: 3

fanch55

XLDnaute Barbatruc

• 22 Mai 2024

• #130

Salut Pat, le source dans le zip

Tu as un rept avec le nombre à -1

 

Pièces jointes

• Blank.zip

  2 KB · Affichages: 2

Dernière édition: 22 Mai 2024

patricktoulon

XLDnaute Barbatruc

• 22 Mai 2024

• #131

Bonsoir fanch55
ben déjà je ne peux pas l'importer dans un classeur alors a mon avis c'est ton fichier qui a mal

 

patricktoulon

XLDnaute Barbatruc

• 22 Mai 2024

• #132

Dudu2 à dit:

Très impressionnant ! Bravo !

Cliquez pour agrandir...

merci dudu
pourtant fanch55 ne m'a pas ménagé avec ces codes de fou
mais tant mieux j'ai un résultat top
bon visiblement fanch55 a des soucis si c'est comme ces codes c'est bon je m’inquiète pas
cela dit je n'ai pas mis de sécurité sur le indent =-1 j'aurais du
donc provisoirement mettre un if sur l'attribut indent juste avant
mais a mon avis c'est vraiment exceptionnel si le code est bon le code saura l'indenter
la chez moi dans un fichier vierge le blank ne veux pas s'importer erreur en cascade pour terminer par un "memoire insuffisante" j'insiste même pas

 

fanch55

XLDnaute Barbatruc

• 22 Mai 2024

• #133

patricktoulon à dit:

Bonsoir fanch55
ben déjà je ne peux pas l'importer dans un classeur alors a mon avis c'est ton fichier qui a mal

Cliquez pour agrandir...

Je viens de l'importer dans un classeur vierge.
Je te joins celui-ci

 

Pièces jointes

• Blank_Usf.xlsm

  19.2 KB · Affichages: 0

patricktoulon

XLDnaute Barbatruc

• 22 Mai 2024

• #134

hoh!! le salo!!!
j'"ai pris le texte par le blocknote

VB:

    Cmd_Valider.Visible = Tb_Sc_0 <> vbNullString _
 And Tb_Sc_1 <> vbNullString _
 And Tb_Sc_2 <> vbNullString _
 And Tb_Sc_3 <> vbNullString

bon ben c'est simple si il y a une erreur sur le ligne " _" c'est tout simplement qu'il n'a pas trouver de repère soi "(" soit """
donc c'est tout simplement un des cas non répertorié que je cite dans la vidéo quand je parles de ces lignes
donc on met un simple correctif j'aurais du le mettre je sui bète j'etais tellement pressé d'en finir
donc l'indent du bloc parent plus une tabulation soit 8 espaces
juste avant la ligne qui plante
If IsError(SpoC) Then SpoC = Application.Rept(" ", 8)
terminer
en fait ca fait parti des exeptions qui ne permette pas de repère puisqu'il y a 2 "_" dans la ligne conclusion indentation normalisée sans pilotage (j'ai dis tout ça dans la vidéo)

Dans n'importe quel cas cette erreur se produit uniquement sur les lignes avec "_"
donc indentation normalisée s'impose


craint degun patricktoulon

 

fanch55

XLDnaute Barbatruc

• 23 Mai 2024

• #135

Toujours dans le module Blank :