Discussion :

[jubourbon]

Bonjour,

Je cherche à selectionner par le code vba un element dans une zone de liste.
J'ai trouvé sur ce site ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
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
            Liste.Selected(i) = True
        If Liste.MultiSelect = 0 Then Trouve = True
        Else
            Liste.Selected(i) = False
        End If
    Next i
 
End Function

http://access.developpez.com/faq/?page=zdl#SelLignezdl

Il fonctionne très bien, la sélection est faite. Le problème est qu'une fois que j'ai joué ce code, je ne peux plus utiliser aucun contrôle dans le formulaire. Les boutons sont inactifs

Quelqu'un a une idée car là je ne vois pas.

Merci d'avance.

[loufab]

Bonjour,

Aucun problème constaté avec ce code. Je viens de le tester à l'instant.

Vérifier que ton office est à jour.
Faire un compactage.
Tracer le code pour vérifier que c'est bien ce code et non un autre qui bloque tout.

Cordialement,