\documentclass[10pt,a4paper]{article}

% Packages
\usepackage{fancyhdr}           % For header and footer
\usepackage{multicol}           % Allows multicols in tables
\usepackage{tabularx}           % Intelligent column widths
\usepackage{tabulary}           % Used in header and footer
\usepackage{hhline}             % Border under tables
\usepackage{graphicx}           % For images
\usepackage{xcolor}             % For hex colours
%\usepackage[utf8x]{inputenc}    % For unicode character support
\usepackage[T1]{fontenc}        % Without this we get weird character replacements
\usepackage{colortbl}           % For coloured tables
\usepackage{setspace}           % For line height
\usepackage{lastpage}           % Needed for total page number
\usepackage{seqsplit}           % Splits long words.
%\usepackage{opensans}          % Can't make this work so far. Shame. Would be lovely.
\usepackage[normalem]{ulem}     % For underlining links
% Most of the following are not required for the majority
% of cheat sheets but are needed for some symbol support.
\usepackage{amsmath}            % Symbols
\usepackage{MnSymbol}           % Symbols
\usepackage{wasysym}            % Symbols
%\usepackage[english,german,french,spanish,italian]{babel}              % Languages

% Document Info
\author{mambeault}
\pdfinfo{
  /Title (visual-basic-for-application.pdf)
  /Creator (Cheatography)
  /Author (mambeault)
  /Subject (Visual Basic for Application Cheat Sheet)
}

% Lengths and widths
\addtolength{\textwidth}{6cm}
\addtolength{\textheight}{-1cm}
\addtolength{\hoffset}{-3cm}
\addtolength{\voffset}{-2cm}
\setlength{\tabcolsep}{0.2cm} % Space between columns
\setlength{\headsep}{-12pt} % Reduce space between header and content
\setlength{\headheight}{85pt} % If less, LaTeX automatically increases it
\renewcommand{\footrulewidth}{0pt} % Remove footer line
\renewcommand{\headrulewidth}{0pt} % Remove header line
\renewcommand{\seqinsert}{\ifmmode\allowbreak\else\-\fi} % Hyphens in seqsplit
% This two commands together give roughly
% the right line height in the tables
\renewcommand{\arraystretch}{1.3}
\onehalfspacing

% Commands
\newcommand{\SetRowColor}[1]{\noalign{\gdef\RowColorName{#1}}\rowcolor{\RowColorName}} % Shortcut for row colour
\newcommand{\mymulticolumn}[3]{\multicolumn{#1}{>{\columncolor{\RowColorName}}#2}{#3}} % For coloured multi-cols
\newcolumntype{x}[1]{>{\raggedright}p{#1}} % New column types for ragged-right paragraph columns
\newcommand{\tn}{\tabularnewline} % Required as custom column type in use

% Font and Colours
\definecolor{HeadBackground}{HTML}{333333}
\definecolor{FootBackground}{HTML}{666666}
\definecolor{TextColor}{HTML}{333333}
\definecolor{DarkBackground}{HTML}{81D126}
\definecolor{LightBackground}{HTML}{F7FCF1}
\renewcommand{\familydefault}{\sfdefault}
\color{TextColor}

% Header and Footer
\pagestyle{fancy}
\fancyhead{} % Set header to blank
\fancyfoot{} % Set footer to blank
\fancyhead[L]{
\noindent
\begin{multicols}{3}
\begin{tabulary}{5.8cm}{C}
    \SetRowColor{DarkBackground}
    \vspace{-7pt}
    {\parbox{\dimexpr\textwidth-2\fboxsep\relax}{\noindent
        \hspace*{-6pt}\includegraphics[width=5.8cm]{/web/www.cheatography.com/public/images/cheatography_logo.pdf}}
    }
\end{tabulary}
\columnbreak
\begin{tabulary}{11cm}{L}
    \vspace{-2pt}\large{\bf{\textcolor{DarkBackground}{\textrm{Visual Basic for Application Cheat Sheet}}}} \\
    \normalsize{by \textcolor{DarkBackground}{mambeault} via \textcolor{DarkBackground}{\uline{cheatography.com/193074/cs/40145/}}}
\end{tabulary}
\end{multicols}}

\fancyfoot[L]{ \footnotesize
\noindent
\begin{multicols}{3}
\begin{tabulary}{5.8cm}{LL}
  \SetRowColor{FootBackground}
  \mymulticolumn{2}{p{5.377cm}}{\bf\textcolor{white}{Cheatographer}}  \\
  \vspace{-2pt}mambeault \\
  \uline{cheatography.com/mambeault} \\
  \end{tabulary}
\vfill
\columnbreak
\begin{tabulary}{5.8cm}{L}
  \SetRowColor{FootBackground}
  \mymulticolumn{1}{p{5.377cm}}{\bf\textcolor{white}{Cheat Sheet}}  \\
   \vspace{-2pt}Not Yet Published.\\
   Updated 5th September, 2023.\\
   Page {\thepage} of \pageref{LastPage}.
\end{tabulary}
\vfill
\columnbreak
\begin{tabulary}{5.8cm}{L}
  \SetRowColor{FootBackground}
  \mymulticolumn{1}{p{5.377cm}}{\bf\textcolor{white}{Sponsor}}  \\
  \SetRowColor{white}
  \vspace{-5pt}
  %\includegraphics[width=48px,height=48px]{dave.jpeg}
  Measure your website readability!\\
  www.readability-score.com
\end{tabulary}
\end{multicols}}




\begin{document}
\raggedright
\raggedcolumns

% Set font size to small. Switch to any value
% from this page to resize cheat sheet text:
% www.emerson.emory.edu/services/latex/latex_169.html
\footnotesize % Small font.

\begin{multicols*}{3}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Déclaration de variable}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{visibilite \textless{}var\_name\textgreater{} As \textless{}data-type\textgreater{}} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.4885 cm} x{2.4885 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Visibilité d'une variable}}  \tn
% Row 0
\SetRowColor{LightBackground}
{\bf{Visibilité}} & {\bf{Description}} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
Dim & Privé \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
Static & Statique \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
Public & Publique \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
Private & Privé \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Déclaration d'une constante}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{visibilite Const \textless{}const\_name\textgreater{} As \textless{}data-type\textgreater{} = value} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{La visibilité peut être : Public ou Private.}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.74195 cm} x{3.23505 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{VBA data types}}  \tn
% Row 0
\SetRowColor{LightBackground}
{\bf{Type}} & {\bf{Description}} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
Byte & 0 to 255 \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
Integer & 2 bytes \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
Single & 4 Bytes \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
Long & 4 Bytes \tn 
% Row Count 5 (+ 1)
% Row 5
\SetRowColor{white}
Double & 8 Bytes \tn 
% Row Count 6 (+ 1)
% Row 6
\SetRowColor{LightBackground}
Date & Date \tn 
% Row Count 7 (+ 1)
% Row 7
\SetRowColor{white}
String & Characters \tn 
% Row Count 8 (+ 1)
% Row 8
\SetRowColor{LightBackground}
Variant & Any data type \tn 
% Row Count 9 (+ 1)
% Row 9
\SetRowColor{white}
Object & Object in VBA \tn 
% Row Count 10 (+ 1)
% Row 10
\SetRowColor{LightBackground}
Boolean & True or False \tn 
% Row Count 11 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.69349 cm} x{1.51041 cm} x{1.3731 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{3}{x{5.377cm}}{\bf\textcolor{white}{Porté d'une variable}}  \tn
% Row 0
\SetRowColor{LightBackground}
Déclaration dans & Mot réservé & Porté \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{Sous-programme} & Dim & Variable local \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
Module & Dimlic, Private &  \tn 
% Row Count 6 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}---}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Sortie}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Call MsgBox(\textless{}message\textgreater{}, {[}buttons{]}, {[}title{]})} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.3731 cm} x{1.28156 cm} x{1.92234 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{3}{x{5.377cm}}{\bf\textcolor{white}{Porté d'une variable}}  \tn
% Row 0
\SetRowColor{LightBackground}
{\bf{Déclaration}} & {\bf{Visibilité}} & {\bf{Porté}} \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{Sous-programme} & Dim & Variable local \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
Module & Dim, Private & Variable globale module \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
 & Public & Variable globale projet \tn 
% Row Count 8 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}---}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Quitter une boucle prématurément}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Exit For 'Quitter une boucle For \newline Exit Do 'Quitter une boucle Do \newline Exit Sub 'Quitter une procédure \newline Exit Function 'Quitter une fonction} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Boucle : For}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{For \textless{}variable\textgreater{} = \textless{}début\textgreater{} To \textless{}fin\textgreater{} {[}Step \textless{}incrément\textgreater{}{]} \newline     \textless{}instruction(s)\textgreater{} \newline Next \textless{}variable\textgreater{} \newline  \newline For Each \textless{}variable\textgreater{} In \textless{}...\textgreater{} \newline     \textless{}instruction(s)\textgreater{} \newline Next \textless{}variable\textgreater{}} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Boucle : While}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{While \textless{}exp. booleenne\textgreater{} \newline     \textless{}instruction(s)\textgreater{} \newline wend \newline  \newline Do While \textless{}exp. booleenne\textgreater{} \newline     \textless{}instruction(s)\textgreater{} \newline Loop \newline  \newline Do \newline     \textless{}instruction(s)\textgreater{} \newline Loop While \textless{}exp. booleenne\textgreater{} \newline  \newline Do Until \textless{}exp. booleenne\textgreater{} \newline     \textless{}instruction(s)\textgreater{} \newline Loop} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{If... Then}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{If \textless{}exp.booleenne\textgreater{} Then \newline     \textless{}instruction(s)\textgreater{} \newline {[}ElseIf \textless{}exp.booleenne\textgreater{} Then{]}    'optionale  \newline     \textless{}instruction(s)\textgreater{} \newline Else \newline     \textless{}instruction(s)\textgreater{} \newline End If} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Entré}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{\textless{}variable\textgreater{} = {[}Val{]} InputBox (\textless{}message\textgreater{}, {[}tire{]}, {[}default{]})} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Mettre "Val" si la variable est un chiffre.}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Boutons}}  \tn
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{\{\{link="https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/msgbox-function"\}\}Lien vers les différents boutons\{\{/link\}\}% Row Count 4 (+ 4)
} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{1.44333 cm} x{3.53367 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Passage paramètres}}  \tn
% Row 0
\SetRowColor{LightBackground}
ByVal & Reste pareil \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
ByRef & Change \tn 
% Row Count 2 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{1.44333 cm} x{3.53367 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Passage paramètres}}  \tn
% Row 0
\SetRowColor{LightBackground}
ByVal & Reste pareil \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
ByRef & Change \tn 
% Row Count 2 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.79172 cm} x{3.18528 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Les opérateurs}}  \tn
% Row 0
\SetRowColor{LightBackground}
{\bf{Catégorie}} & {\bf{Opérateurs}} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
\seqsplit{Arithmétiques} & +, -,  * , /, \textbackslash{}, \textasciicircum{} et Mod \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
Relationnels & \textless{}, \textless{}=,  = , \textless{}\textgreater{}, \textgreater{}= et \textgreater{} \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
Logiques & And, Or et Not. \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
\seqsplit{Concaténation} & \& \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{5.377cm}}{14 \textbackslash{} 5 vaut 2 \newline  14 Mod 5 vaut 4}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Procédure}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{visibilite Sub \textless{}nom\textgreater{}({[}\textless{}param1\textgreater{} As \textless{}type1\textgreater{}, ...{]}) \newline     \textless{}instruction(s)\textgreater{} \newline End Sub} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{La visibilité peut être : Public ou Private.}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Fonction}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{visibilite Function \textless{}nom\textgreater{}({[}\textless{}param1\textgreater{} As \textless{}type1\textgreater{}, ...{]}) As \textless{}type\textgreater{} \newline     \textless{}instruction(s)\textgreater{} \newline     \textless{}nom\textgreater{} = ... 'valeur de retour \newline End Function} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{La visibilité peut être : Public ou Private.}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{1.44333 cm} x{3.53367 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Passage paramètres}}  \tn
% Row 0
\SetRowColor{LightBackground}
ByVal & Reste pareil \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
ByRef & Change \tn 
% Row Count 2 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Appeler une procédure}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Call {[}nomModule.{]}\textless{}nom\textgreater{}({[}parametre{]})} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Appel d'une fonction}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{... 'Déclaration de maVariable \newline maVariable =  {[}nomModule.{]}\textless{}fonction\textgreater{}({[}parametre{]})} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}


% That's all folks
\end{multicols*}

\end{document}