Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans une cellule
Dim r As Range 'déclare la variable r (Recherche)
Dim li As Integer 'déclare la variable li (LIgne)
If Target.Value = "" Then Exit Sub 'si la cellule double-cliquée est vide, sort de la procédure
Cancel = True 'évite le mode édition lié au double-clic
ref = CStr(Cells(Target.Row, 6).Value) 'définit la référence ref (variable déclarée publique dans le module1)
With Sheets("Etatdustock") 'prend en compte l'onglet "Etatdustock"
Set r = .Columns(1).Find(ref, , xlValues, xlWhole) 'définit la recherche r
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence
li = r.Row 'définit la ligne li
Else 'sinon
MsgBox "Référence non trouvée !" 'message
Exit Sub 'sort de la procédure
End If 'fin de la condition
UserForm1.llstock.Caption = .Cells(li, 4).Value 'renseigne le label "Quantité"
UserForm1.llreference.Caption = .Cells(li, 1).Value 'renseigne le label "Référence"
UserForm1.llprix.Caption = .Cells(li, 3).Value 'renseigne le label "Prix"
UserForm1.llprix = Format(UserForm1.llprix, "#,##0.00")
UserForm1.Show 'affiche l'UserForm1
End With 'fin de la prise en compte de l'onglet "Etatdustock"
End Sub