Jean-Eric a écrit :
Re,
Bonjour Galopin01,
La débutante n'a pas de questions ?
Cdlt.
Si toujours mais je ne voulais pas te saouler lol
Quel code mettre pour que le curseur se positionne sur la ligne qui a été créer ?
J'ai essayer :
Sub ajout_vae()
'
' ajout_vae Macro
'
'
Sheets("VAE").Select
Selection.End(xlDown).Select
Rows("88").Select
Selection.Insert Shift:=xlDown
Range("A88:K88").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Cells(1, 1) = Range("A7").SpecialCells(xlCellTypeLastCell).Row
Range("A88:A88").Select
Range("B88").Select
End Sub