Re : Image dans UsFrm
Bonjour Kjin
Bon je viens de regarder ton code (je fais du carrelage en même temps
) et je vois pas trop de différence par rapport a ce qu'il y avait avant, si ce n'est que tu fais ta sélection sur la colonne AF (où se trouve les noms des images)
Private Sub CmbNom_Click()
Dim nom_image As String, chemin As String
If Me.CmbNom.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
Image1.Picture = LoadPicture()
'Dim Cell As Object
'nom_image = Cells(CmbNom.ListIndex + 2, 32).Text
'On Error GoTo gestion
If Me.CmbNom.ListIndex = -1 Then Exit Sub 'ON sort si pas de sélection
T1 = WS.Range("A" & Me.CmbNom.ListIndex + 2) 'On alimente les données correspondant à la ligne
...........
T27 = WS.Range("AC" & Me.CmbNom.ListIndex + 2) 'de l'index de la Combobox + 2 pour la ligne de Feuille
nom_image = WS.Range("AF" & Me.CmbNom.ListIndex + 2)
chemin = ActiveWorkbook.Path & "\_dossierphotos" & "\" & nom_image
If Dir(chemin) <> "" And nom_image <> "" Then Image1.Picture = LoadPicture(chemin)
'If nom_image = "" Then Me.Image1.Picture = Nothing
'Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\_dossierphotos" & "\" & nom_image)
'ici on initialise les Variable pour mémoriser le valeur précédente en cas de Modif
With Me
Nom = .CmbNom
End With
'gestion: 'si pas d'image disponible pour chargement
'If Err.Number = 53 Then
'Label1.Caption = ""
'Image1.Picture = LoadPicture()
'End If
End Sub
Je ne comprend pas trop ... ! ! !
Et j'ai un autre petit probleme dans mes textbox de prix je voudrai que çà apparaise en € seulement dans ma TextBox Total je n'obtiens pas le résulat de mon opération à savoir ma TxtBox Prix x par la TxtBox Qté......
de même j'aimerai que le prix que je rentre dans ma TxBox Prix unitaire il calcule 30% en moins du prix que je tape (je rentre des prix en $)
D'avance merci de m'aiguiller sur les procédures à suivre