problème recherche de données et des images sur USF

Question

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

jordane45 · Answer

Bonjour

Et quel est le souci exactement ?

Problème recherche de données et des images sur USF

1 réponse

Votre réponse

Discussions similaires