XL 2016 bon de commande

[MASSJIPE]

Bonjour le forum
Je crée un bon de commande via un userform j’ai fait ce que je savais faire mais il manque ceci
Les images seront dans le même dossier que le fichier bon de commande
Dans l’onglet Référence on retrouve la référence, la désignation et le prix, Définir un nom, deux listes Client et centre de coût
Toutes les idées sont les bienvenues je ne suis pas arrêter sur la conception

• La T1 (TextBox)doit être comme une recherche intuitive qui alimente la Listview1 je ne sais pas faire
• Lorsqu’on sélectionne la désignation dans la listview fait apparaitre l’image correspondante dans image1 je ne sais pas faire
• La T2 doit affiche la date et l’insère dans l’onglet BON en B4 code ok
• La C1 (Combobox) alimente l’onglet BON cellule B2 liste dans RowSource=Client code ok
• La T5 doit afficher le centre de coût en relation avec C1 je ne sais pas faire
• La T3 doit afficher le prix en relation avec la référence ou la désignation je ne sais pas faire
• La T4 est une saisie manuelle
• Le CommandButton1 ajouter doit ajouter le tout dans l’onglet BON sauf l’image à chaque ajout je ne sais pas faire
• D'avance merci

 

[fanfan38]

Bonjour
Une première ébauche à améliorer (mais là je dois partir)
A+ François

 

[fanfan38]

re,
Alors les images doivent être dans le même répertoire que ce fichier
Les noms correspondants sont en colonne E
Au lieu de saisir une référence tu clic sur un article dans la listbox
T1, image1 et T3 vont se mettre à jour...

Tu essaie et tu me tiens au courant....
A+ François

 

[MASSJIPE]

Bonjour
J' ai tester j'ai que les 4 premières qui s'affiche
Certaines ligne n’aurons pas de photo
Lorsque deux lignes sont sélectionner une erreur

 

[fanfan38]

Pour l'affichage: je pense que tu dois avoir une ligne vide...
Pour le problème des images ajoute "Me.Image1.Picture = LoadPicture() " dans la macro listbox1.click (comme ci dessous)
pour effacer l'image existante...
Private Sub ListBox1_Click()
Dim mavar As String
mavar = ActiveWorkbook.Path & "\" & Cells(ListBox1.ListIndex + 2, 5).Value
T1.Value = ListBox1.Value
T3.Value = Cells(ListBox1.ListIndex + 2, 4).Value
Me.Image1.Picture = LoadPicture()
If Len(Cells(ListBox1.ListIndex + 2, 5).Value) > 0 Then Me.Image1.Picture = LoadPicture(mavar)
End Sub

Par contre comment tu fait pour selectionner 2 lignes? je n'y suis pas arrivé...
A+ François

 

[MASSJIPE]

Re
j'ai 4 lignes en ouvrant l'userform par le bouton
si j'ouvre le fichier par Private Sub Workbook_Open() j'ai tout
Mais si j'ouvre et ferme l'userform j' ai 4 lignes
à la dernière question c'est quant je ferme l'userform sans avoir cliquer sur ajouter et si j'ouvre et que je sélectionne une nouvelle ligne qui donne erreur

 

[fanfan38]

Quel bouton?
Par contre pour lancer l'userform on ajoute à la feuille Référence une macro
Pour ce faire clic droit sur l'onglet Référence
selectionner visualiser le code
ajouter la macro ci dessous
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
REFERENCE.Show
End Sub

et quand tu double clic sur la feuille ça lance le formulaire...
A+ François