Re : Indenter
Bonjour MJ13 à toutes et tous
Je te remercie de jeter un œil.
Je n’ai pas encore testé ta procédure. Pour l’instant je m’absente.
Tout comme toi il y a longtemps que je voulais le faire, mais trop occupé.
Toutefois j’ai fait évoluer le programme, voici un petit bout.
Il donne la tabulation juste pour les mots clés.
'------------------------
For i = 2 To 23
Texte = Cells(i, 1).Value
For J = K To Y
Don = Globale(J)
P = InStr(Texte & " ", Don)
If P = 1 Then
'------- Indentation montante -------
If Don = "For" Or Don = "If" Or Don = "With" Or Don = "Select Cse" Then
Z = Z + 1: Cells(i, 3).Value = Z: W = 1
'----- Indentation descendante -------
ElseIf Don = "Next" Or Don = "End If" Or Don = "End With" Or Don = "End Select" Then
Cells(i, 3).Value = Z: Z = Z - 1: W = 2
End If
End If
Next J
Next i
'------------------------
Donc je tente de traiter le résultat de la tabulation.
ligne attendu
9
10 1 1
11 2
12 2 2
13 3
14 3
15 3 3
16 4
17 4
18 3 3
19 3
20 2 2
21 1 1
22
23
Avec plusieurs conditions, 1 – 2 – 3 montant.
Entre 1 et 2 ce sera (1+1), entre 2 et 3 ce sera ( 2+1), et entre 3 et 3 ce sera (3+1)
Et descendant, entre 3 et 2 ce sera (3-1), etc.
Voilà ce qu’il me reste à faire. Ce n’est pas évident.
A+ Jean-Paul