XL 2016 Rajout de lignes VBA ?

Bonjour,

Une facon de faire.

Re bonjour,

Super je n'aurais jamais trouvé
j'avais essayé plein de truc, mais là !
Je vous remercie beaucoup

Bonjour.
Pourquoi n'y laissez vous pas simplement les formules :
En N5 : En O5 : En P5 : En Q5 :

Ce qui peut être calculé par des formules simples doivent le rester à mon avis.
Si ça gêne un peu le rapatriement des données mémorisées, à supposer qu'elle doivent pouvoir être saisies aussi dans la feuille Compte :

vgendron à dit:

XL 2016 - Problème VBA

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

Cliquez pour agrandir...

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

Bonjour,

Si tu postes du code VBA directement dans tes messages, encadre-le de la balise code pour qu'il soit plus lisible. 😉

[ code=vb ]
ton code VBA
[ /code ]

Hubert1959 à dit:

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

Cliquez pour agrandir...

La règle c'est que si une réponse ne te donne pas satisfaction, on n'ouvre PAS un second post
et tu expliques dans le post d'origine pourquoi ca ne donne pas le résultat voulu..
mais ca.. ca passe aussi par répondre aux questions qui te sont posées..

vgendron à dit:

La règle c'est que si une réponse ne te donne pas satisfaction, on n'ouvre PAS un second post
et tu expliques dans le post d'origine pourquoi ca ne donne pas le résultat voulu..
mais ca.. ca passe aussi par répondre aux questions qui te sont posées..

Cliquez pour agrandir...

Désolé,
je pensais faire évoluer le sujet sans mal
après plusieurs essai pour la bonne cause

Bonjour,

J'ai créé un planning avec mémoire et (avec des noms fictifs et des horaires fictif), tout en VBA
Je cale sur le récapitulatif des heures (en formule classique Excel (no soucis))
Ex :
=SIERREUR(SI(L$5=$C6;$E6-$D6;"0");"0")+SIERREUR(SI(L$5=$F6;$H6-$G6;"0");"0")

C’est encore le VBA qui bloque ?
Evidement j’ai essayé plein de solution trouvé sur internet, mais j’ai toujours une erreur.
Exemple :

Range("U7").Formula = "=IFERROR(IF(L$5=$C6;$E6-$D6;0);0)+IFERROR(IF(L$5=$F6;$H6-$G6;0);0)"
Ou
[L6:Q26].Formula = "=IFERROR(IF(L$5=$C6,$E6-$D6,0),0)+IFERROR(IF(L$5=$F6,$H6-$G6,0),0)"

Avec un module

Mais rien !
Je remercie d'avance si cela est possible d’y jeter un œil SVP.

Je joins un fichier fictif pour l'exemple.

(J’essaie de respecter les règles j'étais pas trop au courant)

Merci d'avance