VBA cumulatif dans une colonne
Ferméccm81 Messages postés 10860 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 mai 2024 - 7 juil. 2022 à 20:14
- VBA cumulatif dans une colonne
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
- Figer une colonne excel - Guide
- Trier colonne excel - Guide
6 réponses
30 juin 2022 à 17:15
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
5 juil. 2022 à 01:27
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 :-)
Modifié le 5 juil. 2022 à 21:09
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
7 juil. 2022 à 16:34
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 question7 juil. 2022 à 16:44
Bonjour
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
7 juil. 2022 à 18:01
Ça fonctionne!!!!!! Merci beaucoup !!!!!!
7 juil. 2022 à 20:14
De rien
Si c'est fini, peux tu mettre le sujet à résolu (en haut dans ton premier message > les trois petits points)
Cdlmnt
