Discussion :

[momongana]

Bonjour,
J'ai ce code qui ne fonctionne pas et lorsque je compile, un message d'erreur de ce type apparait sur le 1er mot selected : "Membre de méthode ou de données introuvable."

Private Sub RefProduit_AfterUpdate()
Dim I As Integer, REPONSE1 As String, REPONSE2 As Long
For I = 0 To RefProduit.ListCount - 1
If RefProduit.Selected(I) Then
REPONSE1 = RefProduit.Column(2, I)
REPONSE2 = RefProduit.Column(3, I)
RefProduit.Selected(I) = False
End If
Next I
Désignation = REPONSE1
PrixUnit = REPONSE2
TotalTTC = PrixUnit * QT
End Sub

Quelqu'un pourrait-il me venir en aide ?
D'avance, merci

[tee_grandbois]

Bonsoir,
peux-tu expliquer ce que tu cherches à faire : utilises-tu une zone de liste déroulante (1 choix possible) ou une zone de liste à choix multiples ?

Quand tu postes du code, n'oublie pas tes balises (icône #)

[tee_grandbois]

je me répond à moi-même : d'après le titre, c'est une liste déroulante
Je te corrige ton code dans quelques minutes (Selected n'est pas la bonne méthode).

[tee_grandbois]

Si c'est bien une zone de liste déroulante, point n'est besoin de savoir quel Item est sélectionné car il ne peut y en avoir qu'un :

Code :

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

1
2
3
4
5
6
7
Private Sub RefProduit_AfterUpdate()
 
Me.Désignation = Me.RefProduit.Column(2)
Me.PrixUnit = Me.RefProduit.Column(3)
Me.TotalTTC = Me.PrixUnit * Me.QT
 
End Sub

[momongana]

Si c'est bien une zone de liste déroulante, point n'est besoin de savoir quel Item est sélectionné car il ne peut y en avoir qu'un :

Code :

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

1
2
3
4
5
6
7
Private Sub RefProduit_AfterUpdate()
 
Me.Désignation = Me.RefProduit.Column(2)
Me.PrixUnit = Me.RefProduit.Column(3)
Me.TotalTTC = Me.PrixUnit * Me.QT
 
End Sub

Merci de cet info...