XL 2010 application.sum

[yahya belbachir]

Bonjour
pour faire un calcul dans une feuil en vba,j'ai crée un code sur (worksheetfunction),le code suivant:
******************************
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lg As Long
lg = Cells(Rows.Count, "C").End(xlUp).Row
If Not Intersect(Target, Range("F2:F" & lg)) Is Nothing Then
Cells(lg, 6) = Cells(lg, 3) + Cells(lg, 4)
Range("A:G" & Target.Row).Borders.Weight = xlThin
End If
End Sub
****************************
mais ne fonctionne pas,pour être plus clair mon fichier çi joint.
merci

 

[jmfmarques]

Bonjour
je n'ai pas ouvert ton classeur (je ne le fais jamais)

 Range("A:G" & Target.Row)

ne saurait définir valablement un objet range ! (pas plus que ne le ferait range("A:G4")
cette notation doit spécifier la ligne de la colonne A

 

[JM27]

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Range("A" & Target.Row) <> "" Then
        With Range("A1:G" & Target.Row)
           .Borders(xlDiagonalDown).LineStyle = xlNone
           .Borders(xlDiagonalUp).LineStyle = xlNone
           .Borders(xlEdgeLeft).LineStyle = xlContinuous
           .Borders(xlEdgeTop).LineStyle = xlContinuous
           .Borders(xlEdgeBottom).LineStyle = xlContinuous
           .Borders(xlEdgeRight).LineStyle = xlContinuous
           .Borders(xlInsideVertical).LineStyle = xlContinuous
           .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        End With
    End If
    Application.EnableEvents = False
        Range("F" & Target.Row) = Range("C" & Target.Row) + Range("D" & Target.Row) - Range("E" & Target.Row)
    Application.EnableEvents = True
End Sub

 

[cp4]

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Range("A" & Target.Row) <> "" Then
        With Range("A1:G" & Target.Row)
           .Borders(xlDiagonalDown).LineStyle = xlNone
           .Borders(xlDiagonalUp).LineStyle = xlNone
           .Borders(xlEdgeLeft).LineStyle = xlContinuous
           .Borders(xlEdgeTop).LineStyle = xlContinuous
           .Borders(xlEdgeBottom).LineStyle = xlContinuous
           .Borders(xlEdgeRight).LineStyle = xlContinuous
           .Borders(xlInsideVertical).LineStyle = xlContinuous
           .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        End With
    End If
    Application.EnableEvents = False
        Range("F" & Target.Row) = Range("C" & Target.Row) + Range("D" & Target.Row) - Range("E" & Target.Row)
    Application.EnableEvents = True
End Sub

Bonjour JM27,

Je me permets d'apporter ma modeste contribution à ton code

With Range("A1:G" & Target.Row)
    .Borders.Weight = xlThin
End With

 

[yahya belbachir]

bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Range("A" & Target.Row) <> "" Then
        With Range("A1:G" & Target.Row)
           .Borders(xlDiagonalDown).LineStyle = xlNone
           .Borders(xlDiagonalUp).LineStyle = xlNone
           .Borders(xlEdgeLeft).LineStyle = xlContinuous
           .Borders(xlEdgeTop).LineStyle = xlContinuous
           .Borders(xlEdgeBottom).LineStyle = xlContinuous
           .Borders(xlEdgeRight).LineStyle = xlContinuous
           .Borders(xlInsideVertical).LineStyle = xlContinuous
           .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        End With
    End If
    Application.EnableEvents = False
        Range("F" & Target.Row) = Range("C" & Target.Row) + Range("D" & Target.Row) - Range("E" & Target.Row)
    Application.EnableEvents = True
End Sub

merci infiniment
j'ai bien résolu mon probléme grâce à ton code