Bonjour, J'essaye de faire la somme de chaque ligne en VBA dans la colonne AH Visiblement ça fonctionne pas, j'ai toujours une erreur ou placer correctement cette ligne dans le VBA ? Visiblement le VBA est compliqué pour moi, mais je ne renonce pas. Merci d'avance si une personne est plus...
excel-downloads.com
Re bonjour,
Visiblement cela ne fonctionne pas, la seul qui fonctionne est bien celle de Mr Dranreb qui a eu la bonne solution concernant cette énigme en VBA. Notons que le VBA est pas choses facile (c'est même un peu tordu).
Rien que de vouloir finalise en essayant de Récupérer la valeur restante du mois précèdent de la cellule sur l'autre feuille est aussi une galère.
Bon ! Excel reste un super jeux pour les méninges.
Si je trouve je transmet.
pour le moment ce code ci joint fonctionne grâce a Mr Dranreb.
Pout Info :
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Compte")
If Not Application.Intersect(Target, .Range("I5:I26,L5:L17,B5:F35")) Is Nothing Then 'changement dans ces plages
cancel = True
.Range("N5") = Application.WorksheetFunction.Sum(.Range("I5:I26")) 'entrees
.Range("O5") = Application.WorksheetFunction.Sum(.Range("L5:L17")) ' Charge
.Range("P5") = Application.WorksheetFunction.Sum(.Range("B5:F35")) 'Depenses
.Range("Q5") = .Range("N5") - .Range("O5") - .Range("P5") 'Reste
End If
End With
With Sheets("Mémoire") 'mise en memoire
.Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 33) = [B5:AH35].Value 'copie les valeurs
End With
End Sub
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
With Sheets("Mémoire")
[B5:AH35] = .Cells(Application.Match([A5], .[A:A], 0), 2).Resize(31, 33).Value 'copie les valeurs
End With
Application.EnableEvents = True 'réactive les évènements
Application.ScreenUpdating = True
End Sub
