'Variable privée représentant la marque, on ne peut pas y accéder depuis l'extérieur
Private m_Marque As String

'Property Get est la fonction appelée lorsque l'on veut obtenir la valeur de la propriété
Property Get Marque() As String
Marque = m_Marque
End Property

'Property Let est la procédure appelée lorsque l'on veut modifier la valeur de la propriété.
'Si elle n'existe pas, la propriété sera en lecture seule.
'Elle doit avoir un argument qui a le type de la propriété,
'soit le même que celui de la valeur renvoyée par Property Get.
Property Let Marque(value As String)
m_Marque = value
End Property

Dim UneVoiture As Voiture

Set UneVoiture = New Voiture
UneVoiture.Marque = "Renault"
MsgBox UneVoiture.Marque
Set UneVoiture = Nothing

Private Sub Echange(ByVal a As Integer, ByVal b As Integer)

Dim temp As Integer
temp = a
a = b
b = temp

End Sub

Private Sub Echange2(a As Integer, b As Integer)

Dim temp As Integer
temp = a
a = b
b = temp
End Sub

Private Sub Test()

x = 5
y = 3
Echange x, y
MsgBox x & " " & y   'affiche "5 3", les valeurs n'ont pas été modifiées par la procédure

Echange2 x, y
MsgBox x & " " & y   'affiche "3 5", parce que les valeurs ont été modifiées

End Sub

Private Sub Affiche(Optional x As Long=10)

End Sub

Private Sub Affiche(Optional x As Variant)

If IsMissing(x) Then
    'pas de valeur spécifiée
Else
    'une valeur a été spécifiée pour x
End If

End Sub

Private Sub AfficheElements(t() As Long)

Dim i As Long
For i = LBound(t) To UBound(t)
    MsgBox t(i)
Next

End Sub

Private Sub Form_Load()

Dim t(1 To 3) As Long
t(1) = 1
t(2) = 4
t(3) = 5
AfficheElements t()

End Sub

Public Function ContientElements(ByVal tableau As Variant) As Boolean

Dim indice As Long

On Error goto vide
indice = UBound(tableau)
ContientElements = True
Exit Function

vide:

End Function

Private Function EstPaire(x As Long) As Boolean
    EstPaire = (x Mod 2 = 0)
End Function

Public Function RGBparTableau(ByVal couleur As Long) As Long() 
    
Dim MonTab(0 To 2) As Long 
MonTab(2) = Int(couleur / 65536) 
MonTab(1) = Int((couleur - (65536 * MonTab(2))) / 256) 
MonTab(0) = couleur - ((MonTab(2) * 65536) + (MonTab(1) * 256)) 
RGBparTableau = MonTab 
    
End Function 

Private Sub Command1_Click() 

Dim TabCouleur() As Long, couleur As Long 

couleur = 9550940 
TabCouleur() = RGBparTableau(couleur) 
MsgBox "Le code " & couleur & " correspond en RGB à " & _ 
        TabCouleur(0) & " " & TabCouleur(1) & " " & TabCouleur(2) 
    
End Sub

Private Type CompCouleur
    Red As Long
    Green As Long
    Blue As Long
End Type

Private Function RGBparType(ByVal Couleur As Long) As CompCouleur
    
RGBparType.Blue = Int(Couleur / 65536)
RGBparType.Green = Int((Couleur - (65536 * RGBparType.Blue)) / 256)
RGBparType.Red = Couleur - ((RGBparType.Blue * 65536) + (RGBparType.Green * 256))
    
End Function

Private Sub Command1_Click()

Dim TypColor As CompCouleur

TypColor = RGBparType(9550940)
lblred.Caption = "Red = " & TypColor.Red
lblgreen.Caption = "Green = " & TypColor.Green
lblblue.Caption = "Blue = " & TypColor.Blue

End Sub

Dim Pi as Double
Pi=4*Atn(1)

Private Sub Form_Load()

'Ici CallByName renvoie la valeur de la propriété Caption de la form
Msgbox CallByName(Me, "Caption", VbGet)

'modifie la propriété Caption de la form
CallByName Me, "Caption", VbLet, "Test de callbyname"

End Sub

Private Sub Form_Load()

    'Déplace la form à la position 5000,150
    CallByName Me, "Move", VbMethod, "5000,150"

End Sub

Public Function EmailValide(ByVal email As String) As Boolean

    Dim regEx As RegExp, occurrences As MatchCollection
   
    Set regEx = New RegExp
    regEx.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$"
    regEx.IgnoreCase = True 'Ne pas distinguer les minuscules des majuscules
    regEx.Global = False 'Renvoyer seulement la première occurrence
    Set occurrences = regEx.Execute(email)
    EmailValide = (occurrences.Count = 1)
   
End Function

Application.CloseCurrentDatabase

Application.Quit

Application.FollowHyperlink "http:www.developpez.net/forums/viewtopic.php?t=228003"

  'Pour une première utilisation, cette propriété n'est pas définie et son utilisation 
 'provoque l'erreur rattrapable n°3270 : "Propriété non trouvée" 
 'Il convient alors de créer la propriété dans le code de gestion d'erreur 

Public Sub DefinirTitreApplication() 

On Error GoTo err_gestion 

    Dim prp As DAO.Property 
    Dim str As String 

    str = "nouveau titre" 

    CurrentDb.Properties("AppTitle") = str 
    RefreshTitleBar 

sortie: 
    Exit Sub 

err_gestion: 
    If Err.Number = 3270 Then 
        Set prp = CurrentDb.CreateProperty("AppTitle", dbText, str) 
        CurrentDb.Properties.Append prp 
        Resume 
    End If 

End Sub 

 Nz(LaVariable, "vide") 

Private Enum Couleurs
Bleu=1
Vert=3
Jaune=5
End Enum

Dim MaCouleur as Couleurs
MaCouleur=Couleurs.Vert
Msgbox MaCouleur

Public MaVar As String

Public Function ValeurVar() As String

 ValeurVar = MaVar

End Function

Select * FROM MaTable WHERE ID = ValeurVal() ;

Me.txtNom = "Dupond"

Dim obj as new clToto
obj.mamethode

Dim obj as clToto
Set obj= New clToto
obj.mamethode

Dim a As Object
Dim b As Object
Set a = CurrentDb
Set b = a
If b Is a Then
 MsgBox "Le même objet"
Else
 MsgBox "Objet différent"
End If
Set b = CurrentProject

If b Is a Then
 MsgBox "Le même objet"
Else
 MsgBox "Objet différent"
End If