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

macgaver2006 1 Messages postés mercredi 25 octobre 2017Date d'inscription 25 octobre 2017 Dernière intervention - 25 oct. 2017 à 13:07 - Dernière réponse : jordane45 20570 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 21 avril 2018 Dernière intervention
- 25 oct. 2017 à 16:26
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
Afficher la suite 

1 réponse

Répondre au sujet
jordane45 20570 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 21 avril 2018 Dernière intervention - 25 oct. 2017 à 16:26
0
Utile
Bonjour

Et quel est le souci exactement ?
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.