Créer date et ligne par click

[apdf]

Bonjour

Je recherche un code par VBA que lorsque je click dans colonne "A" sa me donne la date du jour et sa créer une nouvelle ligne avec les bordures

je vous remercie d'avance

 

[Robert]

Re : Créer date et ligne par click

Bonjour Max, bonjour le forum,

Un exemple d'une ligne avec les bordures serait le bien venu ! Sinon pour la date, une macro événementielle qui réagit au double-clic :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub 'si la cellule double-cliqué est ailleurs que dans la colonne A, sort de la procédure
Cancel = True 'evite le mode édition lié au double-clic
'place la date en évitant les problèmes d'inversion jour/mois
Target.Value = Format(Day(Date), "00") & "/" & Format(Month(Date), "00") & "/" & Year(Date)
End Sub

 

[apdf]

Re : Créer date et ligne par click

Bonjour Robert,

Je te remercie beaucoup.
Voila je joins un fichier pour illustrer ma demande, si bien sur est possible et que le temps te le permet.

Les explications son sur le fichier joint.

Bonne journée

 

[Robert]

Re : Créer date et ligne par click

Bonjour Max, bonjour le forum,

Le code modifié :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub 'si la cellule double-cliqué est ailleurs que dans la colonne A, sort de la procédure
Cancel = True 'evite le mode édition lié au double-clic

'place la date en évitant les problèmes d'inversion jour/mois
Target.Value = Format(Day(Date), "00") & "/" & Format(Month(Date), "00") & "/" & Year(Date)

'mise en forme de la ligne
With Range(Cells(Target.Row, 1), Cells(Target.Row, 10)) 'prend en compte les cellules des colonnes A à J de la cellule double-cliquée
    With .Borders(xlEdgeLeft) 'ligne à gauche
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop) 'ligne du haut
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeBottom) 'ligne du bas
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight) 'ligne à drote
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
End With 'fin de la prose en compte des...

'mise en forme et valeur de la cellule en colonne G
Target.Offset(0, 6).NumberFormat = "#,##0.00 $" 'format
Target.Offset(0, 6).Font.Bold = True 'gras
Target.Offset(0, 6).Value = 0 'valeur

'mise en forme et valeur de la cellule en colonne J
Target.Offset(0, 9).NumberFormat = "#,##0.00 $" 'format
Target.Offset(0, 9).Value = Target.Offset(-1, 9) 'valeur
End Sub

 

[apdf]

Re : Créer date et ligne par click

Re Robert

Génial ..!

Bonne soirée