Discussion :

[Adrian]

Ok, c'est déja pas mal.

Mais est-ce que quelqu'un connait une application W32 qui permet aussi de numéroter les lignes...

Parce que avec 3000 Lignes je vous garantis que c'est rude...

Merci d'avance.
Adrian

[Invité]

Bonjour

Va faire une recherche sur Google avec : "MZ-Tools", c'est un utilitaire qui s'intégre à l'interface VBA, il te permettra plein de choses, dont il me semble la numérotation des lignes de codes.

Starec

[Dolphy35]

Salut,

un autre outil de cafeine pour la coloration synthaxique http://cafeine.developpez.com/syntax/

pour numéroter les lignes j'utilise le compléments MZTools http://www.mztools.com/index.htm

Dolphy

[Adrian]

Hello,

Merci pour l'info...

Pour la coloration synthaxique, c'est ok, je trouve bien, mais pour numéroter les lignes, c'est vraiment a null je trouve...

Quelqu'un d'autre a une idée??

Merci.

Adrian

[Dolphy35]

Moi j'ai une autre solution que te plaiera => tu tape la numérotation à la main comme ça t'es sûr d'avoir ce qui te plaît


sinon http://silkyroad.developpez.com/VBA/...cEditor/#LII-D

Dolphy

[Adrian]

Oui elle me plait pas du tous...

Je vais pas commencer a m'amuser avec ca...

Autre idée??

[Dolphy35]

Oui elle me plait pas du tous...

Je vais pas commencer a m'amuser avec ca...

ceci était à prendre au second degrès mais ....

Autre idée??

Tu as regardé le lien ??

[Adrian]

Tu as regardé le lien ??

Oui j'ai regardé, merci...

Si ca interesse quelqu'un avec UltraEdit on a la coloration du Text, et la numérotation des lignes.

Voila...
@+

[Dolphy35]

Salut,

Si ca interesse quelqu'un avec UltraEdit on a la coloration du Text, et la numérotation des lignes.

c'est clair c'est une soluce, le problème c'est un Shareware. Dans le même style tu as Notepad++ et PSPAD Editor (ils sont gratuit)

Dolphy

[random]

sauvegarde ton module et regarde ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Function lmod(nom As String) As Boolean
'enlève numérotation
Dim mdl As Module
Dim u As Variant
Dim boucle As Long
Dim v As String
Set mdl = Modules(nom)
For boucle = 1 To mdl.CountOfLines
v = LTrim(mdl.Lines(boucle, 1))
u = val(v)
If u <> 0 Then
v = Mid(v, 1 + Len(u), Len(v) - Len(u))
mdl.ReplaceLine Line:=boucle, String:=v
End If
Next boucle
End Function
 
Function nmod(nom As String, increment As Integer)
'numérote
Dim mdl As Module
Dim boucle As Long
Dim compteur As Long
Dim maligne As String
Dim anum As Boolean
Set mdl = Modules(nom)
For boucle = mdl.CountOfDeclarationLines + 1 To mdl.CountOfLines
maligne = (mdl.Lines(boucle, 1))
anum = True
If maligne = "" Then anum = False
If Left(LTrim(maligne), 1) = "'" Then anum = False
If InStr(1, maligne, "function ") <> 0 Then anum = False
If InStr(1, maligne, "sub ") <> 0 Then anum = False
If InStr(1, maligne, "end function") <> 0 Then anum = False
If InStr(1, maligne, "end sub") <> 0 Then anum = False
 
If anum Then
compteur = compteur + increment
mdl.ReplaceLine Line:=boucle, String:=compteur & " " & maligne
End If
Next boucle
End Function

[Adrian]

Encore mieu,

j'ai découvert ca encore:

ca fait les 2... Coloriation et Numerotation et c'est gratuit...

http://charles.racaud.free.fr/code-syntaxing/

[FreeAccess]

...j'ai découvert ca encore:

ca fait les 2... Coloriation et Numerotation et c'est gratuit...

http://charles.racaud.free.fr/code-syntaxing/

Parce que avec 3000 Lignes je vous garantis que c'est rude...

Alors bon courage.... Car c'est peut-être gratuit, mais pas franchement pratique...
Alors que le compléments MZTools est directement intégré dans Access.
Sans compter les autres possibilités données par Dolphy35 et random

Enfin c'est toi qui vois en fonction de tes besoins...