Bug sur VBA insertion date du jour

[bambi]

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é.

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

 

[phlaurent55]

Re : Bug sur VBA insertion date du jour

Bonjour Bambi,

tu peux aussi mettre

Range("A3").Value = Date

ou

Range("A3").Value = Now

à+
Philippe

 

[bambi]

Re : Bug sur VBA insertion date du jour

Merci phlaurant55
C'est effectivement bien plus simple que ce que j'ai
Du coup je vais modifier d'autres macros de mon classeur

Je crois que le bug vient du format de date
Si je l'enlève je n'ai pas de bug
Il y a surement un façon plus simple de l'insérer

 

[youky(BJ)]

Re : Bug sur VBA insertion date du jour

Bonjour Bambi,

remplace ce qui est en rouge par ce code

[A3] = Format(Date, "[$-409]ddmmmyy;@")

Bruno

 

[ROGER2327]

Re : Bug sur VBA insertion date du jour

Bonjour

Essayez en remplaçant

[COLOR="DarkSlateGray"][B]   '  Date du jour en A3
    ActiveCell.FormulaR1C1 = DateValue(Date)
    ActiveCell.Offset(1, 0).Range("A3").Select
    Selection.NumberFormat = "[$-409]ddmmmyy;@"
[/B][/COLOR]

par

[COLOR="DarkSlateGray"][B]   '  Date du jour en A3
    ActiveCell.FormulaR1C1 = DateValue(Date)
    ActiveCell.NumberFormat = "[$-409]ddmmmyy;@"
[/B][/COLOR]

ROGER2327
#2740

 

[bambi]

Re : Bug sur VBA insertion date du jour

merci youki, c'est parfait 🙂

[edit] Merci roger
Je vois que finalement avec deux lignes seulement, on s'en sort très bien et sans bug

Merci à vous tous