Private Sub MaListe_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
End Sub

Dim VarLr As Variant
For Each VarLr In Me!MaListe.ItemsSelected
    Me!MaListe.Selected(VarLr) = False
Next VarLr

Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        DoCmd.RunSQL "INSERT INTO tblPrenoms ( Prénom ) SELECT """ & NewData & """;" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub 

Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    dim cn as adodb.connection 
    set cn = currentproject.connection      
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                    vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        cn.execute "Insert into tblPrenoms values(\'" & NewData & "\');" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub 

MaZoneDeListe.Value = Null

Msgbox MaZoneDeListe.ListCount

Me.Modifiable = Me.Modifiable.ItemData(0)  

Me.Modifiable = Me.Modifiable.ItemData(Me.Modifiable.ListCount - 1) 

Me.Liste.Selected(0) = True  

Me.Liste.Selected(Me.Liste.ListCount - 1) = True  

' Me.Refresh sert dans le cas où le contenu de la zone de liste 
' prend en compte les données actuelles du formulaire
' Comme par exemple si une zone de liste utilise dans sa requête source
' la valeur d'une autre zone de liste du formulaire.
Me.Refresh 
Me.MaZoneListe.Requery

Me.MaListe.RowSource = "Select ...."

MsgBox Me.MaListe.ListIndex

Me!MyList.RowSource=Me!MyList.RowSource & ";NouvelElement"

Private Sub Form_Open(Cancel As Integer) 
 ' Initialisation de la liste, elle contient deux colonnes pays et ville
Me!list.ColumnHeads = True
Me!list.ColumnCount = 2
Me!list.ColumnWidths = "4320;4320" 'on détermine la largeur des colonne
Me!list.RowSource = "Pays;Capitale;Chine;Beijing;Brésil;Brasilia "
End Sub 

Private Sub Command_Click()
Me!list.RowSource = Me!list.RowSource & ";Nouveau pays;Nouvelle ville"
End Sub

NomListe.Column(indiceColonne -1)

NomListe.Column(1)

Private Sub cmdSelectAll_Click() 
Dim i As Long 
For i = 0 To Me.lstRes.ListCount - 1 
    Me.lstRes.Selected(i) = True 
Next i 
End Sub 

Private Sub MaListeModifiable_BeforeUpdate(Cancel As Integer)
    Cancel = True
End Sub

Function Selectionner(Liste As ListBox, Colonne As Integer, Chercher As String)
Dim i As Integer
Dim Trouve As Boolean
For i = 0 To Liste.ListCount - 1
If Liste.Column(Colonne, i) = Chercher And Not Trouve Then
Me.Liste.Selected(i) = True
If Liste.MultiSelect = 0 Then Trouve = True
Else
Me.Liste.Selected(i) = False
End If
Next i
End Function

Selectionner Liste0, 1, "Monsieur"

Private Sub Maliste_KeyDown(KeyCode As Integer, Shift As Integer)
   KeyCode = 0
End Sub

Private Function verifliste(Liste As ListBox, Valeur As String) As Boolean
Dim i As Integer
For i = 0 To Liste.ListCount - 1
  If Liste.ItemData(i) = Valeur Then verifliste = True
Next i
End Function

Private Sub Commande0_Click()
MsgBox verifliste(Me.ZL3, "toto")
End Sub

Select DISTINCT [Table1].[Code des sections], [Table1].CP FROM [Tables1] Inner Join [Table2] On [Table1].[Code des sections] = [Table2].[Code Section];

Select DISTINCT [Table2].Rue
From [Table2]
Where ((([Table2].[Code Section])=[forms]![formulaire1]![lstville]));

Private Sub lstville_AfterUpdate()
Me.lstRue.Value = Null
Me.lstRue.Requery
End Sub

Select TVille.ID, TVille.Nom From TVille Where TVilles.IDPays = Forms!F_Geographie.lstPays

Private Sub lstPays_Change()
Me.lstVille.Requery
End Sub

MaZoneDeListe.RowSource = ""

NomListe.Column(indiceColonne -1, indiceligne -1)

NomListe.Column(1,2)

Private Sub MyComboBox_AfterUpdate()

Const NB_ITEMS As Long = 20 'Nombre d'éléments archivés dans la liste
Dim b As Byte
  
  'Maj de la liste des derniers critères recherchés
  With MyComboBox
    
    'Si la valeur saisie est un Null _
      ou une chaîne de longeur nulle _
      ou égale au premier item, _
      alors aucune Maj de la liste n'est nécessaire.
    If Nz(.Value, "") = "" Or .Value = .Column(0, 0) Then Exit Sub
    
    'Etant donné qu'on ne souhaite pas de doublons, _
      on va parcourir tous les éléments _
      pour éliminer un éventuel doublon avant d'ajouter notre valeur en haut de liste.
    For b = 1 To .ListCount - 1
      If .Column(0, b) = .Value Then .RemoveItem b:   Exit For
    Next b
        
    'Ajoute la nouvelle saisie
    .AddItem Item:=.Value, Index:=0
    
    'Limite la liste à NB_ITEMS éléments
    If .ListCount = NB_ITEMS Then .RemoveItem NB_ITEMS - 1
  
  End With
  
End Sub

Private Sub Modifiable_GotFocus()
Me.Modifiable.Dropdown
End Sub

Private Sub cboLaliste_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Me.cboLaliste
        .SetFocus
        .Dropdown
    End With
End Sub

Private Sub Détail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.cmdTest.SetFocus
End Sub