VBA dans LaTeX

**Juunii** · 03/05/2015, 20h08

Hello,

Je cherche à introduire un code source et j'ai un problème avec les accents français c'est-à-dire que quand je mets des commentaires, après avoir compilé le document tex, le pdf s'ouvre avec des erreurs d'accents.

Voici mon code, par exemple :

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
44
45
46
47
 
\usepackage{listings,xcolor}
 
\lstset
{
    breaklines=true,
    tabsize=3,
    showstringspaces=false
}
 
 
\lstdefinestyle{Common}
{
    extendedchars=\true,
    language={[Visual]Basic},
    frame=single,
    %===========================================================
    framesep=3pt,%expand outward.
    framerule=0.4pt,%expand outward.
    xleftmargin=3.4pt,%make the frame fits in the text area. 
    xrightmargin=3.4pt,%make the frame fits in the text area.
    %=========================================================== 
    %rulecolor=\color{Red}
}
 
\lstdefinestyle{A}
{
    style=Common,
    %backgroundcolor=\color{Yellow!10},
    basicstyle=\scriptsize\color{Black}\ttfamily,
    keywordstyle=\color{Blue},
    %identifierstyle=\color{Cyan},
    stringstyle=\color{Red},
    commentstyle=\color{Green}
}
 
[....]
 
 
\begin{lstlisting}[style=A]
Sub TitreEtMax()
    'Déclarations des cell
 
    [...]
 
End Sub
\end{lstlisting}

Le résultat : 'éDclarations des cell avec le "é" déplacé au début du mot...

Merci de votre aide,

Juunii

**clementmarcotte** · 03/05/2015, 20h35

Ce n'est pas du VBA. Il n'y a jamais eu de BASIC avec des accolades, ni avec des lignes qui se terminent par des virgules. C'est peut-être du JAVAudiable, mais pas du VB.

**Juunii** · 03/05/2015, 20h40

Merci d'avoir répondu.

Je viens de modifier mon premier post en corrigeant :

Code :

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

language={[Visual]Basic}

Mais cela ne change rien...

**Juunii** · 03/05/2015, 20h43

Merci d'avoir répondu.

Je viens de modifier mon premier code en corrigeant :

Code :

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

language={[Visual]Basic}

source : http://tex.stackexchange.com/questio...-code-in-latex

Des idées ?

**Benoists** · 03/05/2015, 20h44

Bonsoir,

En allant voir dans la documentation de listings, on trouve un paragraphe sur les caractères unicodes (2.5 § National characters). Il faut les activer en ajoutant extendedchars=true dans la définition de ton style.

J'ai testé avec pdfLaTeX, et comme dit dans la documentation, il y a une incompatibilité. Malheureusement, il semblerait qu'il n'y ai pas de solution actuellement.

Par contre, bonne nouvelle, ça fonctionne à la perfection avec XeLaTeX. Du coup tu as deux options :

soit tu utilises pdfLaTeX (donc tu ne changes rien à ton préambule) et tu te passes des accents dans les commentaires des codes ;
soit tu passes à XeLaTeX et tu peux utiliser des caractères accentués dans tes codes sources. Ce changement implique quelques modifications dans le préambule.

À toi de voir ce qui est le mieux dans ton cas

**Juunii** · 03/05/2015, 20h53

Ok, je ne peux pas me passer des accents car dans mon code VBA, je demande également de chercher un mot qui contient "é" comme "secrétaire"... :/

**Benoists** · 03/05/2015, 21h05

Après un petit tour sur internet, j'ai une solution fonctionnelle à te proposer. Il suffit de rajouter ceci dans le \lstset :

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
literate=%
            {é}{{\'{e}}}1
            {è}{{\`{e}}}1
            {ê}{{\^{e}}}1
            {ë}{{\¨{e}}}1
            {û}{{\^{u}}}1
            {ù}{{\`{u}}}1
            {â}{{\^{a}}}1
            {à}{{\`{a}}}1
            {î}{{\^{i}}}1
            {ô}{{\^{o}}}1
            {ç}{{\c{c}}}1
            {Ç}{{\c{C}}}1
            {É}{{\'{E}}}1
            {Ê}{{\^{E}}}1
            {À}{{\`{A}}}1
            {Â}{{\^{A}}}1
            {Î}{{\^{I}}}1,

En gros, ça va dire à listings de transformer les caractères spéciaux en leur équivalent LaTeX. Ainsi, le "é" deviendra \'e. Sur les tests que j'ai réalisé, ça fonctionne. À voir si cela fonctionne sur un code plus conséquent

**Juunii** · 03/05/2015, 21h45

Presque résolu... Latex écrit Î à la place de é... J'ai regardé sur Google qu'il existe une autre solution avec la commande \lstinputlisting mais je n'ai pas réussi à insérer le code dans Latex !

**Winnt** · 04/05/2015, 09h38

Bonjour,

Fournissez un ECM(cf. signature) complet, le code fourni au premier message n'en est pas un.
Avec celui-ci il sera sûrement plus facile de cerner ce qui ne fonctionne pas.

**Juunii** · 04/05/2015, 12h32

D'accord voici le code "complet" :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
 
\documentclass[dvipsnames,cmyk]{article}%           autres choix : report, book
 
\usepackage[utf8]{inputenc}%       encodage du fichier source
\usepackage[T1]{fontenc}%          gestion des accents (pour les pdf)
\usepackage[francais]{babel}%      rajouter éventuellement english, greek, etc.
\usepackage{textcomp}%             caractères additionnels
\usepackage{amsmath,amssymb}%      pour les maths
\usepackage{lmodern}%              remplacer éventuellement par txfonts, fourier, etc.
\usepackage[a4paper]{geometry}%    taille correcte du papier
\usepackage{graphicx}%             pour inclure des images
\usepackage{xcolor}%               pour gérer les couleurs
\usepackage{microtype}%            améliorations typographiques
 
\usepackage{listings,xcolor}
 
\title{VBA}
 
\makeindex
 
\usepackage{hyperref}%             gestion des hyperliens
\hypersetup{pdfstartview=XYZ}%     zoom par défaut
 
 
%-------------------------------------------------------------------
% CODE VBA DANS LATEX
%-------------------------------------------------------------------
 
\lstset
{
    breaklines=true,
    tabsize=3,
    showstringspaces=false
}
 
 
\lstdefinestyle{Common}
{
    extendedchars=\true,
    language=VBScript,
    frame=single,
    %===========================================================
    framesep=3pt,%expand outward.
    framerule=0.4pt,%expand outward.
    xleftmargin=3.4pt,%make the frame fits in the text area. 
    xrightmargin=3.4pt,%make the frame fits in the text area.
    %=========================================================== 
    %rulecolor=\color{Red}
}
 
\lstdefinestyle{A}
{
    style=Common,
    %backgroundcolor=\color{Yellow!10},
    basicstyle=\scriptsize\color{Black}\ttfamily,
    keywordstyle=\color{Blue},
    %identifierstyle=\color{Cyan},
    stringstyle=\color{Red},
    commentstyle=\color{Green}
}
 
%-------------------------------------------------------------------
% FIN CODE
%-------------------------------------------------------------------
 
\begin{document}
 
 
%---------------------------------------------------------------------
% TITRE ET SOMMAIRE
%---------------------------------------------------------------------
\maketitle
\clearpage
\tableofcontents
\clearpage
 
 
%---------------------------------------------------------------------
% INSTRUCTIONS
%---------------------------------------------------------------------
\section{Instructions}
 
\begin{lstlisting}[style=A]
Sub Titre()
    Dim cellTitre As Range
 
    For Each cellTitre In Worksheets("tableau des salaires").Range("E2:E16")
        Select Case cellTitre
            Case Is = "Vendeur"
                cellTitre.Font.Color = RGB(0, 255, 0)
            Case Is = "Ouvrier"
                cellTitre.Font.Color = RGB(0, 0, 255)
            Case Is = "Secrétaire"
                cellTitre.Font.Color = RGB(204, 51, 204)
            Case Is = "Administrateur"
                cellTitre.Font.Color = RGB(204, 255, 0)
        End Select
    Next
 
End Sub
\end{lstlisting}
\end{document}

En ne tenant pas compte du code VBA qui pourrait être incorrect, merci.

**Winnt** · 04/05/2015, 13h15

Bonjour,

Trouvé !

La ligne 40 du listing que vous avez posté est fausse extendedchars=\true,.
Elle devrait être extendedchars=true, (suppression de \).

Pour fonctionner avec les caractères utf8, je vous conseille d'ajouter ceci à votre définition. Lset étant cumulatif le mettre en début de vos déclarations me semble une bonne idée. En pensant à supprimer les redondances.

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
\lstset{inputencoding=utf8, extendedchars=true, literate=%
{é}{{\'e}}{1}%
{è}{{\`e}}{1}%
{à}{{\`a}}{1}%
{ç}{{\c{c}}}{1}%
{œ}{{\oe}}{1}%
{ù}{{\`u}}{1}%
{É}{{\'E}}{1}%
{È}{{\`E}}{1}%
{À}{{\`A}}{1}%
{Ç}{{\c{C}}}{1}%
{Œ}{{\OE}}{1}%
{Ê}{{\^E}}{1}%
{ê}{{\^e}}{1}%
{î}{{\^i}}{1}%
{ô}{{\^o}}{1}%
{û}{{\^u}}{1}%
{ë}{{\¨{e}}}1%
{û}{{\^{u}}}1%
{â}{{\^{a}}}1%
{Â}{{\^{A}}}1%
{Î}{{\^{I}}}1%
}

Avec ces deux seules modifications (lset et correction) j'ai obtenu un listing avec accents et parfaitement colorisé.