Bonjour a tous
malgré avoir lu plein de chose ,Je n'arrive pas modifier une macro existante.
Cette macro tourne très bien mais elle change le format des cellules de destinations:
F8:G8", "F5", "G5", "C36", "G2", "D21:E21", "E8
elle garde le format source police : Times New Roman taille : 10
et moi je voudrais garder le format de destination police : Arial taille 24.
je ne sais pas comment insérer une ligne pour faire ce changement.
Sub Imprimer()
Dim fs, fb
Set fs = ActiveSheet
Set fb = Sheets("gestion des supports")
If Intersect(ActiveCell, Range("E10:E" & Range("E" & 65536).End(xlUp).Row)) Is Nothing Then
MsgBox "selection incorrecte." & Chr(13) & "Vous devez sélectionner un numéro de commande.", 16
End
End If
ln = ActiveCell.Row
For i = 1 To 7
t1 = Choose(i, "A", "C", "D", "E", "F", "G", "H")
t2 = Choose(i, "F8:G8", "F5", "G5", "C36", "G2", "D21:E21", "E8")
fs.Range(t1 & ln).Copy fb.Range(t2)
Next i
fb.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
fs.Select
For i = 1 To 7
t2 = Choose(i, "F8:G8", "F5", "G5", "C36", "G2", "D21:E21", "E8")
fb.Range(t2).ClearContents
Next i
End Sub
Cordialement votre