Insertion image d'un commandbutton dans une feuille fiche
bonjour
voici mon code pour insertion de l'image sur mon commandbutton
Private Sub CommandButton3_Click()
Dim a
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then CommandButton3.Picture = LoadPicture(a)
End Sub
ensuite cette image après validation de l'userform elle doit s’intègre dans ma fiche et le chemin du fichier dans mon tableau en colonne aw
ci-joints mon code
Option Explicit
Private Sub CommandButton2_Click() 'Bouton VALIDER
Dim NewLig As Long
Dim laconcat As String
'ELEMENT ENREGISTRE DANS LE TABLEAU PRESENTATION RECAP
With Sheets("02-Présentation Recap")
NewLig = Application.Max(10, .Range("A" & Rows.Count).End(xlUp).Row + 1)
.Range("A" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
laconcat = ComboBox4.Value & " _ " & TextBoxfiche.Text & " _ " & TextBoxannée.Text & " " & ComboBox5.Value
.Range("B" & NewLig).Value = laconcat
.Range("C" & NewLig).Value = TextBoxobjet
.Range("D" & NewLig).Value = ComboBox1
End With
'ELEMENT ENREGISTRE DANS LE TABLEAU RECAP
With Sheets("00-Recap")
NewLig = Application.Max(10, .Range("A" & Rows.Count).End(xlUp).Row + 1)
.Range("A" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1
.Range("C" & NewLig).Value = TextBoxobjet
.Range("Y" & NewLig).Value = ComboBox4
.Range("Z" & NewLig).Value = TextBoxfiche
.Range("AA" & NewLig).Value = CDate(TextBoxdate)
.Range("AB" & NewLig).Value = TextBoximputation
.Range("AC" & NewLig).Value = TextBoxlocalisation
.Range("AD" & NewLig).Value = ComboBox1
.Range("D" & NewLig).Value = ComboBox1
.Range("AE" & NewLig).Value = TextBoxannée
.Range("AF" & NewLig).Value = CheckBox1
.Range("AG" & NewLig).Value = CheckBox2
.Range("AH" & NewLig).Value = CheckBox3
.Range("AI" & NewLig).Value = TextBoxconstat
.Range("AJ" & NewLig).Value = TextBoxrisque
.Range("AK" & NewLig).Value = TextBoxorigine
.Range("AL" & NewLig).Value = CheckBox4
.Range("AM" & NewLig).Value = CheckBox5
.Range("AN" & NewLig).Value = CheckBox6
.Range("AO" & NewLig).Value = TextBoxtravaux
.Range("AP" & NewLig).Value = CheckBox7
.Range("AQ" & NewLig).Value = CheckBox8
.Range("AR" & NewLig).Value = CheckBox9
.Range("AS" & NewLig).Value = TextBoxobservation
.Range("AT" & NewLig).Value = TextBoxconstructeur
.Range("AU" & NewLig).Value = TextBoxdureevie1
.Range("AV" & NewLig).Value = TextBoxdureevie2
laconcat = ComboBox4.Value & " _ " & TextBoxfiche.Text & " _ " & TextBoxannée.Text & " " & ComboBox5.Value
.Range("B" & NewLig).Value = laconcat
End With
Application.ScreenUpdating = False
'On crée les onglets
'on copie le modèle en dernier
Worksheets("03-TRAME").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
With ActiveSheet
.Name = Worksheets("00-RECAP").Range("B" & NewLig) 'je renome
'Je remplit mon modèle comme je veut...
.Range("B3") = TextBoxobjet
.Range("A6") = TextBoxfiche
.Range("B6") = TextBoxdate
.Range("C6") = TextBoximputation
.Range("D6") = TextBoxlocalisation
.Range("E6") = ComboBox1
.Range("F6") = TextBoxannée
.Range("G6") = ComboBox4
.Range("A9") = TextBoxconstat
.Range("E11") = CheckBox1
.Range("E12") = CheckBox2
.Range("E13") = CheckBox3
.Range("A16") = TextBoxrisque
.Range("A21") = TextBoxorigine
.Range("E23") = CheckBox4
.Range("E24") = CheckBox5
.Range("E25") = CheckBox6
.Range("A28") = TextBoxtravaux
.Range("E31") = CheckBox7
.Range("E32") = CheckBox8
.Range("E33") = CheckBox9
.Range("A36") = TextBoxobservation
.Range("H15") = TextBoxconstructeur
.Range("K17") = TextBoxdureevie1
.Range("K18") = TextBoxdureevie2
End With
Application.ScreenUpdating = True
Unload UserForm1
End Sub
mais cela me place une série de chiffre
pouvez vous m'aider
ci joints mon fichiers
Bonjour,
Tout fonctionne normalement ...
Je viens de tester ton code de ta UserForm3 avec plus d'une dizaine d'images ...
Tout roule ...
a oui sa fonctionne
mais ce qui ne fonctione pas
c est quand je rajoute
pour mon tableau
.Range("Aw" & NewLig).Value = CommandButton3.Picture.text
cela ne me mais pas le chemin du fichier
et dans ma fiche
.Range("H20") = CommandButton3.Picture
Cela me place que des chiffres
encore merci de ton aides
Bonjour,
Tout fonctionne normalement ...
Je viens de tester ton code de ta UserForm3 avec plus d'une dizaine d'images ...
Tout roule ...
a oui sa fonctionne
mais ce qui ne fonctione pas
c est quand je rajoute
pour mon tableau
.Range("Aw" & NewLig).Value = CommandButton3.Picture.text
cela ne me mais pas le chemin du fichier
et dans ma fiche
.Range("H20") = CommandButton3.Picture
Cela me place que des chiffres
encore merci de ton aides
Re,
En ce qui concerne le chemin ... tu peux le stocker dans une variable ... pour pouvoir le ré-utiliser ...
par exemple ... à tester :
chemin = Left$(a, InStrRev(a, "\"))
En espèrant que cela t'aide
Re,
En ce qui concerne le chemin ... tu peux le stocker dans une variable ... pour pouvoir le ré-utiliser ...
par exemple ... à tester :
chemin = Left$(a, InStrRev(a, "\"))
En espèrant que cela t'aide
cela ne marche pas je comprend pas
j 'ai declare les variables pourtant
dim chemin as long
Bonjour,
Il faudrait tester
Dim chemin As String
En espèrant que cela t'aide