Glossaire des outils de découpe
Bonjour, je suis en train de réaliser un glossaire des outils de découpe pour mon entreprise
Je souhaiterai ajouter des images dans mon tableur en automatique via mes fichiers internes.
Je sais que Barakafrite connait un peu le sujet, s'il est dans le coin
Merci les cop1
Private Sub BTINIT_Click()
ZREP.Value = ""
ZDOC.Value = ""
ZMP3.Value = ""
ZPHOTO.Value = ""
ZDIAP.Value = ""
ZFILM.Value = ""
ZCD.Value = ""
ZDVD.Value = ""
ZUSB.Value = ""
ZDD.Value = ""
End Sub
Private Sub BTQUIT_Click()
UFCONVINF.Hide
ZREP.Value = ""
ZDOC.Value = ""
ZMP3.Value = ""
ZPHOTO.Value = ""
ZDIAP.Value = ""
ZFILM.Value = ""
ZCD.Value = ""
ZDVD.Value = ""
ZUSB.Value = ""
ZDD.Value = ""
End Sub
Private Sub BTVALID_Click()
If ZREP.Value <> "" And IsNumeric(ZREP.Value) Then
ZDOC.Value = Format(ZREP / 32, "#,##0.00000")
ZMP3.Value = Format(ZREP / 6000, "#,##0.00000")
ZPHOTO.Value = Format(ZREP / 3500, "#,##0.00000")
ZDIAP.Value = Format(ZREP / 13500, "#,##0.00000")
ZFILM.Value = Format(ZREP / 700000, "#,##0.00000")
ZCD.Value = Format(ZREP / 700000, "#,##0.00000")
ZDVD.Value = Format(ZREP / 4700000, "#,##0.00000")
ZUSB.Value = Format(ZREP / 32000000, "#,##0.00000")
ZDD.Value = Format(ZREP / 1000000000, "#,##0.00000")
Else
MsgBox "Veuillez indiquer la capacité en Kilo-octets (Ko) avant de continuer."
End If
End Sub
La fonction "Show" sert a quoi ?
Je comprends pas du coup il y a trois codes différents ? et c'est normal les dièses ? (en gros j'ai essayé de lancer le code du bas avec mes noms de variables mais ça marche pas)
POUR LE BOUTON VALIDER :
Private Sub V_Click()
If valeur.Value <> "" And IsNumeric(valeur.Value) Then 'case pour on inscrit la capacité
Doc.Value = Format(valeur / 32, "#,##0.00000")
Chanson.Value = Format(valeur / 6000, "#,##0.00000")
Photo.Value = Format(valeur / 3500, "#,##0.00000")
Diapo.Value = Format(valeur / 1350, "#,##0.00000")
Film.Value = Format(valeur / 700000, "#,##0.00000")
CD.Value = Format(valeur / 700000, "#,##0.00000")
DVD.Value = Format(valeur / 4700000#, "#,##0.00000")
USB.Value = Format(valeur / 32000000#, "#,##0.00000")
Disquedur.Value = Format(valeur / 1000000000#, "#,##0.00000")
Else
MsgBox "Veuillez indiquer la capacité en Kilo-octets (Ko) avant de continuer."
End If
End Sub
Il y a 3 codes pour les 3 boutons Pasteque
j'ai tout envoyer par mail
les "#,##0.00000" permettent de gérer à la fois le format avec les espace et les 5 chiffres derrière la virgule
Show c'est dans le module pour lancer le programme
Sub convertisseur()
capa_info.Show
End Sub
voila
c'est comma barakafrite
Private Sub QUITTER_Click()
End 'quitter le userform
End Sub
Private Sub REINITIALISER_Click()
TextBox1.Value = "" 'Vider les cases de données
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
End Sub
Private Sub VALIDER_Click()
Dim capa As Double
TextBox1.Value = Format(TextBox1.Value, " #,##0")
'Calcul de conversion
If TextBox1 = "" Then
MsgBox ("Veuillez rentrer une capacité")
Else
TextBox2.Value = TextBox1.Value / 32
TextBox3.Value = TextBox1.Value / 6000
TextBox4.Value = TextBox1.Value / 3500
TextBox5.Value = TextBox1.Value / 13500
TextBox6.Value = TextBox1.Value / 700000
TextBox7.Value = TextBox1.Value / 700000
TextBox8.Value = TextBox1.Value / 4700000
TextBox9.Value = TextBox1.Value / 32000000
TextBox10.Value = TextBox1.Value / 1000000000
'Mise en forme avec séparateur de millier et 5 chiffres après la virgule
TextBox2.Value = Format(TextBox2.Value, "#,##0.00000")
TextBox3.Value = Format(TextBox3.Value, "#,##0.00000")
TextBox4.Value = Format(TextBox4.Value, "#,##0.00000")
TextBox5.Value = Format(TextBox5.Value, "#,##0.00000")
TextBox6.Value = Format(TextBox6.Value, "#,##0.00000")
TextBox7.Value = Format(TextBox7.Value, "#,##0.00000")
TextBox8.Value = Format(TextBox8.Value, "#,##0.00000")
TextBox9.Value = Format(TextBox9.Value, "#,##0.00000")
TextBox10.Value = Format(TextBox10.Value, "#,##0.00000")
End If
End Sub
comment je fais pour que quand j'appuie sur le bouton sur le tableau excel ça lance le programme ?
tu fais un module
avec
Sub convertisseur()
nom_de_ton_userform.Show
End Sub