|
nom
en anglais |
nom
en français |
nom
fr (complément) |
|
" " |
double
guillemets (VBA) |
Trouvé =
"oui"
If trouvé = "oui" Then |
|
& |
concaténation |
ex1 =
"nom " & "prénom"
Rows("1:" & i).Select
=A1 & " " & A2 ->
Marc Mallon -> A1= Marc, A2=Mallon |
|
: |
de à
(VBA) |
With
Range("F20:F29") |
|
? |
dans la
fenêtre exécution permet de savoir la valeur d'un élément |
?
vbquestion+vbyesno -> donne la valeur 36 (32+4=36) |
|
_ |
permet
de continuer une instruction à la ligne suivante |
msgbox
"La valeur de J vaut : & _
.....j |
|
< |
plus
petit (VBA) |
Do While
ex1 < ex2 … Loop |
|
<> |
différent (VBA) |
Do While
ThisWorkbook.ActiveSheet.Cells(1, I).Value <> ""
Loop
|
|
ActiveCell |
cellule
active |
Range(ActiveCell,
ActiveCell.Offset(1, 3)).Select ' à partir de la cellule active,
sélectionner 9 cellules |
|
ActiveChart |
graphique actif (Excel) |
Charts("graph1").Select
...
ActiveChart.Copy after:=Charts(Charts.Count) ' copy le
graphique après l'ensemble des graphiques |
|
ActiveSheet |
feuille
active (Excel) |
Sheets("test").Select
ActiveSheet.Copy after:=Sheets(Sheets.Count)
|
|
ActiveWindow |
fenêtre
active (Excel) |
ActiveWindow.Zoom = 50 ' zoom à 50%
ActiveWindow.Caption = "toto"
|
|
ActiveWorkbook |
classeur
actif (Excel) |
MsgBox
"Nom de activeworkbook = " & ActiveWorkbook.Name ' Nom de
activeworkbook = toto.xls |
|
add |
ajout
d'une feuille (Excel) |
sheets.add before:=Sheets(2) ' ajout d'une feuille avant la feuille
2
ThisWorkbook.Sheets.Add after:=Sheets(Sheets.Count) 'ajout
d'une feuille à la fin
Sheets.Add after:=Sheets(Sheets.Count) '
autre possibilité |
|
addItem |
ajout
d'un élément (VBA Excel) |
Me.ComboBox1.AddItem "Marc"
Me.ComboBox1.AddItem "Jean" ' ajout
de 2 prénoms dans la zone de liste déroulante (ComboBox1)
|
|
after |
après
(Excel) |
Sheets.Add after:=Sheets(Sheets(2)) 'ajout d'une feuille après la
feuille 2 |
|
application |
nom de
l'application (VBA Excel) |
?
Application
Microsoft Excel ' ici c'est Excel naturellement
|
|
array |
tableau
(VBA) |
Range("A5:A5").Value = Array("titre1", "titre2", "titre3", "titre4")
|
|
autoFill |
recopie
incrémentée |
|
|
Autofilter |
filtre
(Excel) |
Rows("1:1").Select
Selection.AutoFilter 'permet de supprimer le
filtre sur la ligne 1 s'il y en avait un |
|
autofit |
ajustement automatique |
Range("E1").EntireColumn.AutoFit |
|
before |
avant
(Excel VBA) |
Sheets.Add before:=Sheets(1) ' permet ajouter une feuille avant la
feuille 1 |
|
BeforeClose |
avant la
fermeture d'un classeur |
|
|
bold |
gras |
range("A1").font.bold = true ' mettre la cellule A1 en gras
Range("I44").Select
With Selection
.Font.Bold = True ' mise en
gras du contenu de la cellule
.Font.Color = vbRed ' mise en rouge
du texte
End With |
|
break |
pause |
|
|
break
point |
point
d'arrêt |
|
|
byte |
octet
(VBA) |
Dim
exemple As Byte |
|
call |
appeler
(VBA) |
Call
Module1.Macro1 ' appel dans le module 1 de macro1
Sub
Macro1()
..
End Sub |
|
CapsLock |
verr.
Maj. |
|
|
cells |
cellule
(ligne, colonne) |
MsgBox
"contenu de la cellule I44 =" & Cells(44, 9).Value |
|
chart |
feuille
graphique |
|
|
ChartObjects |
objet
graphique |
Set ex1
= ThisWorkbook.Worksheets("feuille1").ChartObjects(1).Chart
Debug.Print ex1.Name ' affiche le nom du graphique |
|
ChartObjects |
graphique (Excel) |
For Each
graph In ActiveSheet.ChartObjects
graph.Delete
Next ' permet
de supprimer les graphiques |
|
charts |
collection de tous les objets chart |
MsgBox
"nombre de feuille graphique =" & ActiveWorkbook.Charts.Count
|
|
checkBox |
case à
cocher |
|
|
checkSpelling |
vérification orthographique |
|
|
choose |
choisir
une valeur à partir d'un index (VBA) |
exemple
= Choose(Range("K1"), "ex1", "ex2", "ex3", "ex4", _
"ex4", "ex5",
"ex6")
MsgBox ("valeur trouvée ") & exemple
k1= 1 ex1
K2 =
2 ex2 |
|
clear |
effacement |
|
|
ClearContents |
nettoyage du contenu (Excel) |
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone '
nettoyer le contenu des cellules sélectionnés et ne pas mettre de
couleur de fond. |
|
close |
fermeture d'un classeur |
Workbooks("exemple.xls").Close 'fermeture du fichier exemple.xls
ouvert et si il y a une des modifications il demande si on veut
sauvez le fichier |
|
collection |
collection (Excel) |
Worksheets (feuille de calcul, charts (graphiques), sheets (feuilles
et graphiques) |
|
color |
couleur
(Excel) |
Sheets(i).Tab.Color = vbRed (couleur de cet onglet est rouge)
Sheets("lala").Select
Sheets("lala").Range("B19").Select
Sheets("lala").Range("B19").Interior.Color = vbBlue ' mettre la
cellule B19 en bleu de la feuille lala |
|
ColorIndex |
index de
couleur |
For i =
1 To 100 Step 2 ' permet de mettre une ligne sur deux en couleur
Rows(i).Interior.ColorIndex = 9
Next i |
|
Columns |
colonnes
(VBA Excel) |
Columns("B:D").Select ' sélection des 3 colonnes B,C,D |
|
copy |
copier
(Excel) |
selection.copy ' copier se qui est sélectionné |
|
count |
nombre
de feuilles visibles (Worksheets) |
|
|
criteria |
critère
(Excel) |
Selection.AutoFilter Field:=3, Criteria1:="<10" |
|
CurDir |
chemin
courant |
|
|
CurrentRegion |
région
courante (Excel) |
Sheets("lala").Select
Sheets("lala").Range("B15").Select
Sheets("lala").Range("B15").CurrentRegion.Select
Sheets("lala").Range("B15").CurrentRegion.Interior.Color = vbRed
|
|
Date |
variable
de type Date (VBA) |
Dim ex1
As Date |
|
Debug.print |
affichage dans la fenêtre exécution |
Debug.print i ' affichage de la valeur de i dans la fenêtre
exécution |
|
dialogs |
boîte de
dialogue (VBA Excel) |
?
Application.Dialogs(xlDialogActiveCellFont).Show |
|
dim |
dimensionnement d'une variable (Excel) |
Dim ex3
As Long
Dim ex4 As Boolean
Dim ex5 As Date
Dim ex6(1 To 5)
As String
Dim ex1 As Byte
Dim ex2 As Single |
|
Dir |
recherche de fichier (VBA) |
fichier
=dir (ThisWorkBook.Path &"*.xls",vbDirectory) |
|
DisplayAlerts |
pas
d'affichage des alertes (Excel) |
Application.DisplayAlerts = False ' pour ne pas avoir le message de
suppression de la page
Sheets("feuil1").Delete
Application.DisplayAlerts = True |
|
Do Loop
Until |
faire
jusqu'à ce que (boucle) |
i = 0
Do
exemple_rep = InputBox("Introduire un nombre > 10",
"Introduction", "ici")
i = i + 1
Loop Until
Information.IsNumeric(exemple_rep) And exemple_rep > 10
MsgBox
("Nombre d' " & i & " essais(s)")
End Sub |
|
Do Until |
faire
tant que (VBA Excel) |
Dim
fichier As String
fichier = Dir("l:" & "/*.jpg", vbDirectory)
Do Until fichier = ""
Debug.Print fichier
fichier = Dir
Loop ' permet d'afficher dans la fenêtre exécution l'ensemble des
noms fichiers qui se trouve dans l avec l'extension ".jpg"
|
|
DO While |
tant que
(VBA) |
Do While
…And…EX1<>""
…
Loop |
|
EnableCalculation |
recalcul |
|
|
EntireColumn |
colonne
entière |
|
|
EntireRow |
ligne
entière |
ActiveCell.EntireRow.Insert (ajout d'une ligne) |
|
evaluate |
calcul |
|
|
exit for |
sortir
de la boucle for |
for
….
Exit for
…
Next |
|
Exit Sub |
sortir
de la procédure |
IF
…
else
...
Exit Sub
…
End IF |
|
filecopy |
copier
un fichier (VBA excel) |
FileCopy
"c:/exemple.txt", "c:/exemple2.txt" |
|
FileDateTime |
date de
la dernière modification |
Range("K8").Value = FileDateTime("l:/toto.txt") -> R8 = 01/01/2012
14:31 |
|
FileDialog |
dialogue
pour les fichiers |
Application.FileDialog(msoFileDialogOpen).show |
|
FileSearch |
recherche de fichier (VBA) |
Dim
nombre_fichier, j As Integer
Dim tableau() As String
Dim zone
As Range
Set zone = Range("B10").CurrentRegion
zone.Delete '
nettoyage de la zone d'affichage
With Application.FileSearch
.NewSearch
.LookIn = "l:"
.SearchSubFolders = True
.Filename = "jpg"
.MatchTextExactly = True
.Execute
msoSortByFileName
ReDim tableau(.FoundFiles.Count, 2)
For
nombre_fichier = 1 To .FoundFiles.Count
For j =
Len(.FoundFiles(nombre_fichier)) To 1 Step -1
If
Mid(.FoundFiles(nombre_fichier), j, 1) = "\" Then
tableau(nombre_fichier, 0) = Left(.FoundFiles(nombre_fichier), j)
tableau(nombre_fichier, 1) = Right(.FoundFiles(nombre_fichier),
Len(.FoundFiles(nombre_fichier)) - j)
j = 1
End If
Next j
If (nombre_fichier > 5000) Then GoTo affichage ' pour l'affiche que
5000 noms
Next nombre_fichier
affichage:
Range("B10",
Cells(.FoundFiles.Count + 10, 3)) = tableau
End With |
|
find |
recherche (Excel) |
With
Range("B:B")
Set C = .Find("voiture", LookIn:=xlValues)
End
With 'recherche voiture dans la colonne B |
|
FindControl |
trouver
un contrôle |
Dim menu
As CommandBarControl
Set menu =
CommandBars.FindControl(Tag:="exemple1")
If Not menu Is Nothing
Then
menu.Delete
End If
Set menu = Nothing |
|
font |
police |
MS sans
Serif, |
|
font.Italic |
mise en
italique |
range("C14").font.italic = True |
|
Font.Name |
nom de
la police de caractère |
Range("A1").Font.Name = "arial" ' la police est mis en Arial pour la
cellule A1 |
|
Font.Strikethrough |
texte
barré |
Range("A34").Select
Range("A34").Font.Strikethrough = True
|
|
Font.underline |
souligné |
Range("A34").Select
Range("A34").Font.Underline = True
|
|
For |
pour
(VBA) |
For ex1
= 1 To 100
…
Next ex1 |
|
format |
formatage de la date (VBA Excel) |
EX1 =
Format(EX2, "yyyy") ' année en 4 positions
Range("A1").Value =
Format(Date, "dd/mm/yyyy") |
|
FormatDateTime |
formatage de la date et l'heure |
Range("A1").Value = FormatDateTime(Date, vbShortDate) ' A1 =
05/02/2012 |
|
formula |
formule
(VBA Excel) |
Range("D3").Formula = Range("C3").Formula
Range("D3").Formula =
"=SUM(C1:C3)" |
|
FreezePanes |
figer
les volets (Excel) |
ActiveWindow.FreezePanes = True |
|
function |
fonction
Vba Excel |
Function
exemple (Fichier as String) as Boolean
! retourne VRAI si le
fichier existe
exemple = Len(Dir(Fichier)) > 0
End Function
Private Sub CommandButton1_Click()
resultat = Aire(3, 2)
MsgBox " aire vaut " & resultat
End Sub
Function
Aire(lng, h)
' Calcul de l'aire du rectangle
Aire = lng * h
End Function |
|
Hidden |
cacher |
Selection.EntireRow.Hidden = True ' cacher la ligne sélectionnée
|
|
hierarchy |
hiérarchie (VBA) |
application, workbook, worksheet, |
|
Home |
début |
|
|
HorizontalAlignment |
alignement horizontal |
.HorizontalAlignment = xlLeft 'alignement vers la gauche
|
|
Hyperlinks |
line
hypertexte (VBA Excel) |
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="http://www.google.be", SubAddress:= _
"",
TextToDisplay:="Lien Internet" ' A1 = lien Internet avec un link sur
le site www.glossaire.be |
|
if |
si (VBA) |
If ex1
<> 1 Then
…
End If |
|
InputBox |
zone
d'introduction (VBA) |
v_mois =
InputBox("Introduire votre mois") |
|
inStr |
recherche une chaîne dans une autre |
|
|
Integer |
entier
(VBA) |
Dim ex1
as Integer |
|
intersect |
comparaison de plusieurs plages |
|
|
intersect |
intersection (VBA) |
Intersect(Range("A1").CurrentRegion,
Range("A1").CurrentRegion.Offset(1, 0)).Select ' permet de faire la
sélection sauf la première lignge |
|
IsDate |
test si
on a une date |
|
|
IsEmpty |
est vide
(VBA) |
|
|
IsNumeric |
c'est
une valeur numérique |
Dim
valeur As Variant
valeur = InputBox("valeur : ")
If
(IsNumeric(valeur)) Then
MsgBox "La valeur introduite est bien un
numérique"
Else
MsgBox "La valeur introduite n'est pas un
numérique"
End If |
|
IsObject |
test si
on est en présence d'un objet |
|
|
kill |
supprimer un fichier |
Kill
"c:/exemple2.txt" |
|
LBound |
retourne
le plus petit indice d'un tableau |
Dim
T1(3) As String
T1(0) = "ex0"
T1(1) = "ex1"
T1(2) = "ex2"
T1(3) = "ex3"
Debug.Print LBound(T1)
Debug.Print UBound(T1)
For i = LBound(T1) To UBound(T1)
Debug.Print T1(i)
Next i
'
résultat
0
3
ex0
ex1
ex2
ex3 |
|
LeftFooter |
pied à
gauche |
ActiveSheet.PageSetup.LeftFooter = "essais1" |
|
Legend.position |
position
de la légende d'un graphique |
Graph1.Legend.Position = xlLegendPositionBottom |
|
len |
nombre
de caractères d'une chaîne (VBA) |
Range("A2") = Len(Range("A1")) 'A1="LALA"' -> A2=4 |
|
listbox |
zone de
liste simple (VBA) |
ListBox1.AddItem ("exemple") ' ajout d'un élément dans la listbox1
|
|
LoadPicture |
chargement d'une image |
Image1.Picture = LoadPicture("c:/exemple.jpg") |
|
lTrim |
suppression des blancs à gauche |
|
|
MergeCells |
fusion
de cellules |
.MergeCells = False |
|
MID |
recherche les caractères au milieu d'un texte (Vba) |
Range("A34").Value = Mid("essais de MID", 8, 6) -> de MID
|
|
month |
donne le
mois (1 à 12) |
|
|
move |
déplacer
(Excel) |
for a =
1 to sheets.count -1
For b = a + 1 to sheets.count
if
sheets((b).name < sheets(a).name then
sheets(b).move.before=sheets(a)
end if
Next j
Next a '
exemple de tri des feuilles par ordre alphabétique
Sheets("test").Move before:=Sheets("feuil2") ' déplacer la feuille
test avant feuil2 |
|
msgbox
(Excel) |
boîte de
message |
msgbox
"la valeur de I vaut " & i |
|
name |
nom de
l'objet |
For Each
exemple In Worksheets
If exemple.Name = "feuilleA" Then
trouve = True
Exit For
End If
Next exemple
'recherche si une feuille s'appelle exempleA |
|
Nothing |
rien
(VBA) |
If not
ex1 Is Nothing Then
…
End If |
|
NumLock |
verr.
Numérique |
|
|
Offset |
décalage
(VBA Excel) |
Range(ActiveCell, ActiveCell.Offset(2, 3)).Select ' à partir de la
cellule active par exemple A7 on va sélectionner la zone qui va de
A7->D9 donc 2 lignes et 3 colonnes de décallage |
|
on Error
Goto |
sur
erreur aller à l'étiquette |
On Error
GoTo voir_erreur
...
voir_erreur:
MsgBox "Erreur" & Err,
vbCritical
MsgBox "description de l'erreur" & Err.Description
MsgBox "erreur" & Error(Err) |
|
open |
ouvrir
un fichier (Excel) |
Workbooks.Open Filename:="c:\exemple.xls"
Workbooks("exemple.xls").Sheets("feuilleEX1").Select |
|
opencurrentdatabase |
ouvrir
la base de données courante |
Dim
fichier As Access.Application
Dim i, ligne As Integer
Set
fichier = CreateObject("Access.application")
fichier.OpenCurrentDatabase ("C:\exemple.mdb")
ligne = 1
For i
= 0 To fichier.CurrentData.AllTables.Count - 1
Range("H" & ligne)
= fichier.CurrentData.AllTables(i).Name
ligne = ligne + 1
Next i ' permet d'afficher les noms des tables de la base de données
fichier.Quit
Set fichier = Nothing |
|
option
explicit |
déclaration explicite des variables |
option
explicit |
|
orientation |
orientation du texte |
|
|
Paste |
coller
(VBA) |
ActiveSheet.Paste |
|
PasteSpecial |
copier
spécial (Excel) |
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False ' copier la sélection /coller
spécial par valeur |
|
path |
chemin
d'Accès (Excel) |
Range("A1").Value = ThisWorkbook.Path ' le chemin accès du classeur
courant est mise dans la cellule A1 |
|
print |
affichage (ou ?) |
print
vbQuestion + vbYesNo ' donne 36 (32+4) dans la fenêtre exécution
|
|
PrintPreview |
aperçu
avant l'impression |
Graph1.PrintPreview ' aperçu avant l'impression d'un graphique
|
|
ProtectContents |
feuille
protégée |
|
|
Public
Type |
type de
données |
Public
Type exemple
nom As String
prenom As String
End Type
Sub macro2()
Dim personne As exemple
personne.nom =
"Dupond"
MsgBox "nom = " & personne.nom -> on affice Dupond
End Sub |
|
queryTables |
requête
de table |
Dim zone
As Range
Set zone = Range("H1").CurrentRegion
zone.Delete '
nettoyage de la zone d'affichage
With
ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data
Source=l:\exemple.mdb"), _
Destination:=Range("H1"))
.CommandType = xlCmdTable
.CommandText = Array("Employés")
.FieldNames = True
.RowNumbers = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.Refresh
BackgroundQuery:=False
End With |
|
range |
plage de
cellules |
Range("A3").Select 'à partir de la cellule A3
Range("A1").Offset(1, 1) = 3 ' permet écrire la valeur 3 dans B2
|
|
RefreshAll |
rafraichir tout |
ActiveWorkbook.RefreshAll ! Dans le classeur actif rafraîchir tout
|
|
refreshTable |
rafraîchir le tableau croisé dynamique |
Dim
tpivot As pivotTable
For Each tpivot In ActiveSheet.PivotTables
tpivot.RefreshTable
Next ' permet de rafraichir l'ensemble des
tableaux dynamiques
Sheets("fpivot").PivotTables("T_C_DYN").RefreshTable ' permet de
rafraichir le tableau dynamique T_C_DYN qui se trouve dans la
feuille fpivot |
|
replace |
remplacer (VBA) |
ex1=
Replace (cells(i,2).value,".","/") |
|
Resize |
sur
redimensionnement |
|
|
resume
next |
reprendre l'instruction à la ligne suivante |
On Error
Resume Next |
|
right |
prendre
x caractères à droite |
Range("A2") = Right(Year(Date), 2) |
|
RightFooter |
pied à
droite |
ActiveSheet.PageSetup.RightFooter = "essais2" |
|
rows |
lignes
(VBA Excel) |
Range("B15").CurrentRegion.Select
MsgBox "nombre de lignes de la
région sélectionnée " & Selection.Rows.Count |
|
RTrim |
supprime
les espaces à droite |
|
|
save |
sauvegarde du classeur |
ThisWorkbook.Save ' sauvegarde du classeur (fichier Excel)
|
|
ScreenUpdating |
mise à
jour de l'affichage (Excel) |
application.ScreenUpdating = false
..
application.ScreenUpdating = true |
|
ScrollLock |
arrêt
défilement |
|
|
select |
sélectionner (Excel) |
Rows("3000:3000").Select ' sélectionner les 3000 premières lignes
|
|
select
case |
sélection suivant la valeur d'une variable (VBA) |
Dim mois
As String
mois = InputBox("mois")
Select Case mois
Case
"Janvier", "Février"
MsgBox "hiver"
Case "Juillet", "Août"
MsgBox "été"
End Select
Select Case exemple
…
Case
is = "ex1"
…
End Select |
|
set |
mettre
(VBA) |
Dim ex1
as Range
set ex1 = .Find(…) |
|
Shapes |
dessin
(Excel) |
For Each
dessin In ActiveSheet.Shapes
dessin.Delete
Next ' suppression
des dessins |
|
sheets |
feuille
(Excel) |
Sheets("exemple").Select |
|
sheets |
collection de tous les objets worksheet et chart |
nbrfeuille = ActiveWorkbook.Sheets.Count +
ActiveWorkbook.Charts.Count
MsgBox "total des feuilles=" &
nbrfeuille |
|
show |
afficher
(VBA Excel) |
UserForm1.Show ' affichage d'un formulaire |
|
Size |
taille
(VBA) |
range("B1").Font.Size= 10 |
|
Sort |
tri
(Excel) |
|
|
split |
couper
suivant un délimiteur |
Dim
decoupage As Variant
Dim compteur As Integer
decoupage =
Split(Range("A1"), ",") ' avec A1 = nom, prénom
For compteur = 0
To UBound(decoupage)
Debug.Print "valeur n° (" & compteur & ") =
" & decoupage(compteur)
Next
valeur n° (0) = nom
valeur n°
(1) = prénom |
|
str |
nombre
converti en string |
|
|
string |
caractère (type) |
Dim
exemple(6) As String
exemple(1) = "poisson"
Dim exemple as
string
exemple="jaune" |
|
StrReverse |
inversez
un string (zone de caractères) |
Range("B1").Value = StrReverse(Cells(1, 1).Value) ' A1= marche et B1
= ehcram |
|
Sub |
procédure (VBA) |
Sub
ex1()
…
End Sub |
|
time |
temps
(VBA Excel) |
Range("A1").Value = Time() -> A1 = 3:01:08 PM |
|
toggle
button |
bouton
bascule (VBA Excel) |
Private
Sub ToggleButton1_Click()
If (Me.ToggleButton1 = True) Then
MsgBox "valeur de toogle vrai"
Else
MsgBox "valeur de toogle
faux"
End If |
|
trim |
suppression des espaces à droite et à gauche |
Range("A1") = Trim(Range("A1")) 'A1 " exemple " -> A1="exemple"
|
|
UBound |
plus
grand indice d'un tableau (Excel VBA) |
Dim
T1(3) As String
T1(0) = "ex0"
T1(1) = "ex1"
T1(2) = "ex2"
T1(3) = "ex3"
Debug.Print LBound(T1)
Debug.Print UBound(T1)
For i = LBound(T1) To UBound(T1)
Debug.Print T1(i)
Next i
'
résultat
0
3
ex0
ex1
ex2
ex3 |
|
Ucase |
met en
majuscule le texte(VBA) |
exemple=
"vase"
ex1 = Ucase(exemple) -> ex1 vaut VASE |
|
union |
/ |
Dim
exemple As Range
Set exemple = Application.Union(Cells(1, 4), _
Cells(1, 6), Cells(1, 8), Cells(1, 10)).EntireColumn
exemple.Interior.Color = vbYellow
exemple.Select ' les colonnes
D,F,HJ sont en jaune et sélectionné |
|
UserName |
Nom de
l'utilisateur du PC (Excel VB) |
C =
MsgBox("Voici votre" & Chr(10) & "UserName", 48,
Application.UserName)
Voici votre ' affichage dans la boîte de
dialogue
UserName |
|
version |
version
d'Excel |
MsgBox
"Version d'Excel :" & Application.Version |
|
VerticalAlignment |
alignement vertical |
.VerticalAlignment = xlCenter 'alignement centré |
|
visible |
visible
(Excel) |
Sheets("exemple1").Visible = False 'permet de masquer l'onglet
exemple1 |
|
watch
Window |
volet
Espions |
|
|
weekday |
jour de
la semaine (VBA Excel) |
?
weekday(now(), vbMonday) ' lundi est le premier jour de la semaine
5 ' la réponse est 5 puisque l'on est vendredi |
|
width |
largeur
d'un contrôle |
.width =
ex2 |
|
With
range |
tant que
(VBA) |
With
Range ("A:A")…End With |
|
word.application |
application WORD |
Dim
fichier As Object
Set fichier = CreateObject("word.application")
fichier.documents.Open ("c:/exemple.doc")
fichier.Visible = True
Set fichier= Nothing |
|
workbooks |
collection de tous les objets workbook |
Workbooks("exemple.xls") |
|
Worksheet |
feuille
de calcul (object) |
|
|
WorksheetFunction |
fonction
de la feuille de calcul |
|
|
worksheets |
collection de tous les objets worksheet |
worksheets("feuilleExemple") |
|
write |
écrire
dans un fichier |
Dim
fichier_sortie As Long
fichier_sortie = FreeFile
Open
"l:\fichier_de_sortie.txt" For Output As #fichier_sortie
Write
#fichier_sortie, Range("A1").Value, _ ' avec A1 = valeur1
Range("A2").Value, _ ' avec A2 = toto
Range("A3").Value ' avec A3
= tata
Close fichier_sortie
"valeur1","toto","tata" '
contenu du fichier de sortie |
|
year |
année
(fonction) |
Range("A1") = Year(Date) -> A1 = 2012 |