bonjour, a tous,
Je viens vers vous concernant une macro (je vous la mets en fin de message).
Il s’agit d’un macro relativement simple qui copie un onglet pour le coller a un endroit précis, et ensuite enlève les couleurs des cellules.
Je voudrais rajouter 2 choses :
- l’onglet se renomme par le nom d’une cellule de cette onglet (j’ai vu que le sujet avait déja été posté)
- qu’au moment du copier coller ce soit un coller en valeur et non un simple collé.
Merci par avance,
Voici ma macro :
Sub CopieFacture()
’
’ CopieFacture Macro
’ Permet copie pour impression sans couleur
’
’ Touche de raccourci du clavier: Ctrl+f
’
Sheets(“5 - Facture”).Select
Sheets(“5 - Facture”).Copy After:=Sheets(9)
ActiveWindow.SmallScroll Down:=-12
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=42
Range(“C46”).Select
ActiveCell.FormulaR1C1 = “”
Range(“J60”).Select
ActiveWindow.SmallScroll Down:=-48
ActiveSheet.Shapes.Range(Array(“TextBox 1”)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = “opie”
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 4). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 4).Font
.NameComplexScript = “+mn-cs”
.NameFarEast = “+mn-ea”
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = “+mn-lt”
End With
Selection.Delete
ActiveSheet.Shapes.Range(Array(“TextBox 2”)).Select
Range(“N17”).Select
ActiveSheet.Shapes.Range(Array(“TextBox 2”)).Select
Selection.Delete
End Sub