Indenter

[VIARD]

Bonjour à toutes et tous

C'est une manip que je fais pour le plaisir.
Je mets un listing de programme sur un formulaire puis je l'indente.
j'arrive à indenter correctement sur les mots clés mais pas entre-eux.
j'ai tenté plusieurs solution sans succès.
Tout est clair dans le fichier avec ce que je voudrais obtenir en rouge colonne "D".
fichier joint.

amicalement

Jean-Paul

 

[VIARD]

Bonjour à toutes et tous

Voici le dernier jet, et agrémenté de l'impression avec ou sans couleur.
je pense avoir résolu tous les problèmes.

Amicalement

Jean-Paul

 

[Modeste geedee]

Bonsour®

je pense avoir résolu tous les problèmes.

encore un petit effort pour le traitement des lignes commentaires
problème avec le caractère apostrophe en début de ligne...

: utiliser Cells( , ).Text plutôt que Value

 

[VIARD]

Bonjour Modeste geedee et à tous

Ok pour le renseignement, l'apostrophe je ne m'en suis jamais inquiété, par contre je ne sais pourquoi il disparaît !
toutefois je cherche à réécrire tout ça différemment.

A+ Jean-Paul

 

[MJ13]

Bonjour à tous


Pour le quote, j'utilise "Chr$(39)", c'est la seule solution que j'ai trouvé pour que cela fonctionne.

Par contre, il faudra que je teste avec .text comme l'a souligné MDG .

 

[VIARD]

Bonjour Michel, MDG et à tous

Oui pour CHR$(39), je vais voir.
par contre, je tente de mettre la valeur de la tabulation sous forme data pour éviter la colonne "C".

A+ jean-Paul

 

[Modeste geedee]

Bonsour®

Bonjour à tous


Pour le quote, j'utilise "Chr$(39)", c'est la seule solution que j'ai trouvé pour que cela fonctionne.

Par contre, il faudra que je teste avec .text comme l'a souligné MDG .

dans le cas de l'utilisation de Cells(x,y).Value
l'apostrophe est interprétée en tant que "PrefixCharacter" et non comme "apostrophe texte"
car "By Design" l'interprétation feuille de calcul est prise en compte automatiquement, VBA n'y voit que du feu
(c'est ce qui ce produit également dans la reconnaissance automatique d'une date et les problèmes récurrent dates US / FR)

MsgBox "The prefix character is " & _
Worksheets("Sheet1").Range("A1").PrefixCharacter

Lors de la copie du code VBE dans la page EXCEL il conviendra donc de pré formater les cellules au format "Text"

 

[VIARD]

Bonjour à toutes et tous

J'ai continué les manips en vue de supprimer l'indice de tabulation sur le formulaire.
J'ai utilisé le Dico pour la première fois, ça marche mais il y a des répétitions de tri.
Donc j'ai fait une autre version avec tableau, c'est bien plus légé.

Voici le fichier avec ses 2 autres versions.

CDT Jean-Paul

 

[VIARD]

Bonjours à toutes et tous

Comme je ne lâche pas le morceau, j'ai résolu le problème du caractère "CHR(39)" en tête de ligne.
Et je remercie vivement "Modeste Geedee" pour l'éclairage qu'il apporte avec "PrefixCaract", je ne connaissais pas.
Donc voici 2 fichiers, l'un regroupe les 3 manip (avec colonne auxiliaire, avec dico et sans).
L'autre uniquement sans dico.

A+ Jean-Paul

 

[eriiic]

Bonjour,

par contre, je tente de mettre la valeur de la tabulation sous forme data pour éviter la colonne "C".

A la place des Tab tu pourrais te servir de .IndentLevel des cellules.
Plus besoin de stocker. Pour indenter/désindenter lire le niveau de la cellule au-dessus +/-1.
Plus de traitement de chaine pour gérer ça non plus.
eric

PS : j'ai voulu tester en ajoutant des lignes à la main. Les mots sans initiale en majuscule ne sont pas reconnus. Je verrais bien les comparer tout en majuscule avec ucase().
Pour Select Case ça donne :

Z = 0: Col = 3
      Select Case a
            Case 1
            a = 1

je verrais mieux :

    Z = 0: Col = 3
    Select Case a
    Case 1
        a = 1

 

[VIARD]

Bonjour Modeste Geedee, Eriic, Mj13 à toutes et tous


C’est la suite de l’indentation, comme préconisé par ″Eriiic″ que je remercie au passage de m’avoir mis sur la piste. Réalisé une indentation direct en utilisant ″IndentLevel″ encore un terme que je ne connaissais pas, après quelques manip, je l’ai adapté au programme, par contre ici, le pas de l’indentation est fixe et limité de (0 à 15), contrairement à la tabulation ajustable.

Le programme qui suit comprend 2 versions une en comparaison avec tab et ″indentlevel″, et l’autre avec ″indentlevel″ seul, cette version prend 100 lignes de code.

Je remercie également ″Modeste Geedee″, la colonne ″A″ est au format texte et CHR(39) est traité (.PrefixCaract) (Commentaire).

Je pense que cette fois, c’est terminé.


Amicalement à tous Jean-Paul

 

[eriiic]

Bonjour,

par contre ici, le pas de l’indentation est fixe et limité de (0 à 15)

Je pense qu'ils ont oublié de mettre à jour leur doc depuis 2003.
Sur 2010 on peut aller jusqu'à 250 pour le retrait (vérifiable dans la boite de dialogue)
Du coup tu peux offrir la possibilité de mettre 2-3 indentlevel par incrémentation pour ceux qui trouve que c'est un peu juste.
eric

PS: Souhait de eriiic est un mot un peu fort ;-) C'était juste une proposition pour alléger et simplifier

 

[VIARD]

Bonjour à toutes et tous


J’ai repris la manip sur INDENTLEVEL, pour rendre l’indentation ajustable.

Toutefois j’ai rencontré des cas ou l’indentation ne fonctionnait pas, après analyse, les mots clés et certains espaces

En général étaient des ″Chr(160) ″ au lieu du ″Chr(32)″ , pourquoi ? ,quel en est la raison !


Le programme gère cette éventualité.


Amicalement à tous

Jean-Paul