Bonjour à tous,
LE code suivant permets d'envoyer plusieurs informations sur une page d'impression, "Image3" en autre. Pourriez-vous m'aider afin que cette "Image3" centre l'image dans le haut de sa cellule de destination, soit la cellule" B4"
Merci par avance,
Toubabou
LE code suivant permets d'envoyer plusieurs informations sur une page d'impression, "Image3" en autre. Pourriez-vous m'aider afin que cette "Image3" centre l'image dans le haut de sa cellule de destination, soit la cellule" B4"
VB:
Private Sub CommandButton5_Click() 'Envoi feuille Impression
Dim S As Shape, Tablo, I&
Application.ScreenUpdating = False
Sheets("IMPRESSION").Visible = 1
Sheets("IMPRESSION").Select
For Each S In ActiveSheet.Shapes
If Not Intersect(S.TopLeftCell, [A1:B4]) Is Nothing Then S.Delete
Next
[b16:B400].ClearContents
[a5] = Label13: [b5] = Label7
[a7] = Label5: [b7] = Label8
[a9] = Label6: [b9] = Label10
[a11] = Label11: [b11] = Label9
[a13] = Label12: [a15] = Label3
[B15] = Label4:
[A1] = ComboBox1: [b1] = ComboBox2
[A6] = Textbox2: [B6] = Textbox4
[A8] = Textbox1: [B8] = Textbox5
[A10] = Textbox3: [B10] = TextBox8
[A12] = TextBox9: [B12] = TextBox11
[A14] = TextBox10: [A16] = TextBox6
Tablo = Split(TextBox7.Text, Chr(10))
For I = LBound(Tablo) To UBound(Tablo)
Cells(I + 16, 2) = Trim(Replace(Tablo(I), Chr(10), ""))
Next I
Rows("16:400").EntireRow.AutoFit
Call InsImage(Image1.Tag, [A4], 1)
Call InsImage(Image2.Tag, [B4], 2)
If Image3.Tag = "" Then OptionButton5 = True 'lance OptionButton_Click
Call InsImage(Image3.Tag, [B4], 3)
'If CheckBox1.Value = True Then
' ActiveSheet.Shapes("Image3").Visible = True
'Else
' ActiveSheet.Shapes("Image3").Visible = False
'End If
Application.Goto [A1], True
' [A1].Activate
Unload Me
End Sub
Merci par avance,
Toubabou