Souci macro excel 2003
Résolu
Utilisateur anonyme
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j' ai recopié cette macro pour un petit suivi bancaire ..............
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
fin = [C65536].End(xlUp).Row
Set laPlage = Range("C2:C" & fin)
Range("E" & fin) = Format(" Solde =", " @")
Range("F" & fin) = Application.WorksheetFunction.Sum(laPlage)
Range("F" & fin).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("E2:F" & fin - 1).ClearContents
With Range("E:F")
.EntireColumn.AutoFit
.Font.Bold = True
End With
End Sub
j' ai 2 banques . donc 2 feuilles
première feuille , tout va bien ..... les positifs sont en bleus et les négatifs en rouge
seconde feuille , tout est en rouge ( + et - )
et c ' est la même macro ... je n' y comprends rien car cela devait être bon il y a quelques mois .
si vous avez une idée , merci d' avance
j' ai recopié cette macro pour un petit suivi bancaire ..............
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
fin = [C65536].End(xlUp).Row
Set laPlage = Range("C2:C" & fin)
Range("E" & fin) = Format(" Solde =", " @")
Range("F" & fin) = Application.WorksheetFunction.Sum(laPlage)
Range("F" & fin).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Range("E2:F" & fin - 1).ClearContents
With Range("E:F")
.EntireColumn.AutoFit
.Font.Bold = True
End With
End Sub
j' ai 2 banques . donc 2 feuilles
première feuille , tout va bien ..... les positifs sont en bleus et les négatifs en rouge
seconde feuille , tout est en rouge ( + et - )
et c ' est la même macro ... je n' y comprends rien car cela devait être bon il y a quelques mois .
si vous avez une idée , merci d' avance
