Bonjour,
J’ai créé une petite application en VBA mais j’ai un gros problème avec recherche des données et des images
Merci de me donner des pistes.
merci pour votre collaboration
Private Sub CommandButton2_Click()
'double click bouton recerche
If Not listecodeleoni1BT.Value = "" Then
Dim no_ligne As Integer
no_ligne = Combocodeleoni2BT.ListIndex + 2
listecodeleoni1BT.Value = Cells(no_ligne, 1).Value
Combocodeleoni2BT.Value = Cells(no_ligne, 2).Value
Textcodeclient.Value = Cells(no_ligne, 3).Value
Textcodefournisseur.Value = Cells(no_ligne, 4).Value
Textdésignation.Value = Cells(no_ligne, 5).Value
Comboprojet.Value = Cells(no_ligne, 6).Value
Textboitier.Value = Cells(no_ligne, 7).Value
Comboplant.Value = Cells(no_ligne, 8).Value
Textcodeleoni1.Value = Cells(no_ligne, 9).Value
Textcodeclient1.Value = Cells(no_ligne, 10).Value
Textcodefournisseur1.Value = Cells(no_ligne, 11).Value
Textcodeleoni2.Value = Cells(no_ligne, 12).Value
Textcodeclient2.Value = Cells(no_ligne, 13).Value
Textcodefournisseur2.Value = Cells(no_ligne, 14).Value
Textcodeleoni3.Value = Cells(no_ligne, 15).Value
Textcodeclient3.Value = Cells(no_ligne, 16).Value
Textcodefournisseur3.Value = Cells(no_ligne, 17).Value
TextoutilouvertureDV.Value = Cells(no_ligne, 18).Value
Textoutildecontact1.Value = Cells(no_ligne, 19).Value
Textoutildecontact2.Value = Cells(no_ligne, 20).Value
Textoutildecontact3.Value = Cells(no_ligne, 21).Value
Else
End If
End Sub