bambi
XLDnaute Occasionnel
Re bonjour le forum
J'ai une macro qui m'insère une ligne, rentre des données d'une box, encadre certaines cellules et met la date du jour en cellule A3.
Mais après un petit "nettoyage" du code, la date s'insère un peu n'importe où alors que je n'ai pas touché au code de l'insertion date. 😕
Si quelqu'un voit où est le bug, je le remercie d'avance 😉
En rouge la date qui bug, en vert ce que j'ai modifié.
J'ai une macro qui m'insère une ligne, rentre des données d'une box, encadre certaines cellules et met la date du jour en cellule A3.
Mais après un petit "nettoyage" du code, la date s'insère un peu n'importe où alors que je n'ai pas touché au code de l'insertion date. 😕
Si quelqu'un voit où est le bug, je le remercie d'avance 😉
En rouge la date qui bug, en vert ce que j'ai modifié.
Code:
Private Sub Valider_Click()
Application.ScreenUpdating = False
[COLOR=SeaGreen] Rows("3:3").Insert Shift:=xlDown[/COLOR]
[COLOR=Black]' Date du jour en A3[/COLOR][B][COLOR=Red]
ActiveCell.FormulaR1C1 = DateValue(Date)
ActiveCell.Offset(1, 0).Range("A3").Select
Selection.NumberFormat = "[$-409]ddmmmyy;@"[/COLOR][/B]
Range("B3").Value = GainLoss.Value
Range("C3").Select
ActiveCell.FormulaR1C1 = "=R[1]C+RC[-1]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/2100"
[COLOR=SeaGreen]With Range("A3:D3").CurrentRegion
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With[/COLOR]
Application.ScreenUpdating = False
Unload Me
End Sub