sheets("feuille1").Range("A1").
value pour selectionner la case A1 dans la feuille "feuille1"
Sheets("feuille1").Select pour selectionner une feuille
Range("F3:F15").copy pour copier une rangee
Range("A1").Select pour selectionner une case
Range("F" & i).Value = "valeur" pour affecter une valeur
finligne = Range("A1").End(xlDown).Row l'indice de la derniere ligne non-vide
[Link] SUPPRIMER LE CONTENU
IsNumeric(Range("F5"))= True ou False fct qui test que la valeure entre ( ) est numerique ou non (true ou false)
IsEmpty(Range("F5")) = True ou False fct qui test que la case entre () est vide ou non (true ou false)
Option Explicit une option qui impose la declartions de tous les variables, elle est ecrite au debut du
programme
---------------------------------------------------Declaratons:----------------------------------------
Dim i As Integer
Dim S As Double
Dim i As Long
Dim i As Currency
Dim i As Single
Dim i As String
Dim i As Date
Dim i As Boolean
i = True
---------------------------------------------------Boucles:-------------------------------------
-------Do while:
i=1 (intialisation)
Do While Condition
Instruction
i=i+1 (incrementation)
Loop
--------For:
For i = x To y
instruction
Next i
------while:
i=1
While [condition]
Instructions
i=i+1
Loop
-------Do until:
i=1
Do Until [condition]
Instructions
i=i+1
Loop
----------------------------------------------------messageBox: et inputBox--------------------------------------------------------------------
-----> dim x as integer
MsgBox( "La ligne active" & x)
-----> MsgBox ("Bonjour tout le monde")
-----> MsgBox ("Name: " & x & " Prénom: " & y & ",AGE: " & z & " ans") (& est un suparateur entre la variable et le message)
équivalent En C : =======>{printf("Name:%s Prénom:%s, Age:%dans",x,y,z); }
-----> var = InputBox("Donner le mot") // var ici est une variable declaré string
-----> var = InputBox("Donner une valeur entiere") // var ici est une variable declarée integer
-----> var = InputBox("Donner une valeur entiere") // var ici est une variable declarée single
-----> rep = MsgBox("voulez vous ajouter un contact,", vbYesNo) // rep va prendre la valeur vbYes ou vbNo
--------------------------------------------------Les conditions et les tests-------------------------------------------------------------------
if <condition> then
<instruction>
end if
---------
If [CONDITION ICI] Then
'Instructions
Else -------SINON
'Instructions
End If
---------
Var=if("Condition",valeur1,Valeur2) ---------------
Var va prendre la valeur1 si la condition est vrai sinon ila va prendre la valeur2 (iif rassemble if et else )
---------
= est égal à
<> est différent de
< est plus petit que
<= est plus petit ou égal à
> est plus grand que
>= est plus grand ou égal à
AND 'et [condition1] AND [condition2]
Les 2 conditions doivent être vraies
OR 'ou [condition1] OR [condition2]
Au moins 1 des 2 conditions doit être vraie
NOT 'faux NOT [condition1]
La condition doit être fausse
------------------------Supprimer un ligne dans une feuille excel (Les cellules se décale en haut automatiquement)--------------------
Sheets("feuil1").Rows(index).Delete -----suprime la ligne index
------------------------------------------------------Initialiser un combobox et prendre l'index d l'item sélectionné -----------------------------
---------------------------------------
For i = 2 To 25
[Link](Range("A" & i).Value) ---------------remplissage de comboBox1 par les cellules de A2 to A25 ,cette
opération et toujours écrit dans l'évenement UserForm_Initialize()
Next i
index=[Link] ------------ pour avoir l'indice de l'élement sélectionné dans le comboBox ,NB:L'indice du 1er item
c'est "0"
[Link](i)
[Link]
la même chose pour listbox
[Link]
[Link]
[Link]
[Link]
[Link]
.caption
--------------------------------------------------------Cacher UserForm1 et afficher UserForm2-------------------------------------------------------
---------------------------------------------------------
[Link] cacher le User
[Link] afficher le User
Fermer le programme :
End ------------il est souvent écrit dans l'événement Quitter
[Link] coller ce qui est selecctionné
[Link] = "Currency" pour modifier le style
lig = [Link] l'indice de la ligne courante
col = [Link] l'indice de la colonne courante
Asc(lettre) fct qui permet de donner le code ASCII d'un lettre entré en argument
Chr(code_ascii) fct qui permet de donner la lettre correspond au code ascii entrée en
argument
Len(ch) fct qui permet de calculer la longueur de la chaine de caractere
---------------------------------------------------procedures:------------------
-----Declaration :
Sub nom_procedure()
instructions
End Sub
-----appeler :
Call nom_procedure
-----------------------------------------------------fcts:----------------------------------------
Function nbAbsence(i As Integer) As Integer
instructions .........
nbAbsence=
End Function
--------------------------------------------------------Majuscule et miniscule----------------------------------------------------------------------------
Ucase("MiLoUd") -------------------va retourné "MILOUD"
Lcase("MiLoUd") -------------------va retourné "miloud"
--------------------------------------------------------Cellule en mode Monétaire--------------------------------------------------------------------------
--------------------------------------
Range("A1").NumberFormat = "$#,0.00" ------- La cellule A1 est en mode Monétaire exemple: $100,34
--------------------------------------------------------changer le coleur d'un cellule ou du texte-------------------------------------------------------
---------------------------------------------------------
range("A1").[Link]=vbRed -------------- mettre la coleur interieur de cellule A1 Rouge
Range("A1").[Link] = vbBlue -------------- mettre la coleur du texte en bleu
les constats predefinies : vbBlack ,vbBlue,vbGreen,vbRed,vbWhite,vbYellow
[Link]
[Link]
[Link]=tab
[Link]
[Link]
.Enabled
.Enabled