VBA cumulatif dans une colonne
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
J'aurais besoin d'aide pour effectuer une VBA. J'ai monté une VBA qui fait ajouter une ligne par paie pour mes employés. Mais j'aimerais que la dernière colonne de mon fichier soit le cumule des heures, donc qu'a chaque ajout de ligne, dans ma dernière colonne ça additionne la cellule du haut (qui serait les heures cumulées au total de la dernière paie) + la cellule de droite (les heures faites sur la paie). J'ai une VBA qui fait ajouter une ligne des heures sur la paie, mais j'aimerais que le cumule se calcule toute seule aussi, sans avoir à faire de manipulation. Mon tableau commence en ligne A10 et ma colonne cumule est en D10.
En espérant être claire!
- VBA cumulatif dans une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer une colonne excel - Guide
6 réponses
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement
Voici le fichier.
https://www.cjoint.com/c/LGexxheckon
Ce que j'aimerais, c'est que la cellule en jaune fasse le cumule des heures, donc qu'elle additionne la cellule juste au dessus dans la colonne D + les heures de la semaine à droite dans la colonne C. Et à chaque ajout de ligne (donc de semaine).
Merci beaucoup :-)
1. sans macro
en D11=SI(D10="";"";SI(C11="";"";D10+C11)) à tirer vers le bas
2 vba
d'abord en D11=D10+C11
puis un truc simple à ajouter à ton code lorsque tu ajoutes une ligne
li = Range("C" & Rows.Count).End(xlUp).Row
Range("D" & li - 1).Copy Range("D" & li)
cdlmnt
Merci de votre réponse!
Malheureusement, ça ne fonctionne pas... ça me donne un code d'erreur pour la 2e ligne (Range("D" & li - 1).Copy Range("D" & li) ). Avez-vous une idée du pourquoi ? Je fonctionne par onglet et je dois répéter cette formule pour chaque onglet, est-ce que ça peut-être la cause de l'erreur?
Voici la formule pour chaque onglet:
Ligne = Sheets("Onglet").Range("A8").End(xlDown).Row + 1
Sheets("Onglet_1").Range("A" & Ligne).Value = Sheets("Application").Range("A3").Value
Sheets("Onglet_1").Range("B" & Ligne).Value = Sheets("Application").Range("B3").Value
Sheets("Onglet_1").Range("C" & Ligne).Value = Sheets("Application").Range("C7").Value
Ligne = Range("C" & Rows.Count).End(xlUp).Row
Range("D" & Ligne - 1).CopyRange ("D" & Ligne)
Merci beaucoup pour votre aide :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionBonjour
Essaies ceci
Ligne est la dernière cellule remplie colonne C de la feuille Sheets("Onglet_1"). qui doit (en principe) contenir la formule à copier
Ligne = Sheets("Onglet_1").Range("C" & Rows.Count).End(xlUp).Row
Sheets("Onglet_1").Range("D" & Ligne - 1).Copy Sheets("Onglet_1").Range ("D" & Ligne)
Cdlmnt