JCG_13
Nouveau membre
Bonjour à tous, merci d'avance à ceux qui auront pitié d'un débutant
Pourriez vous m'aider SVP, j'essaie d'appliquer une macro (réussie celle là) à plusieurs cellules discontinues dans une m^me colonne (colonne 1) mais je n'y arrive pas, à moins d'appliquer ma macro à chacune des cellules (et j'en ai plus de 150)
voici ma macro :
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Ecarts"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Besoins"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Pourriez vous m'aider SVP, j'essaie d'appliquer une macro (réussie celle là) à plusieurs cellules discontinues dans une m^me colonne (colonne 1) mais je n'y arrive pas, à moins d'appliquer ma macro à chacune des cellules (et j'en ai plus de 150)
voici ma macro :
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Ecarts"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Besoins"
With ActiveCell.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub